:: ffo - Fundecto ::

home | editorial | quem somos | localização | contato

<% contatomostra=rs("curContatomostra") if(not isnull(rs("curContato"))) and rs("curContato")<>0 then Set rsc = Server.CreateObject("ADODB.Recordset") rsc.Open "SELECT * FROM tbllogin where login_id = " & rs("curContato") & " ", Bco contatonome=rsc("prof_nome") contatoemail=rsc("prof_email") contatofone=rsc("prof_ddd1")&" "&rsc("prof_fone1") contatocel=rsc("prof_ddd2")&" "&rsc("prof_fone2") rsc.close set rsc = nothing %> <% if(instr(contatomostra,", ")>0) then infocontato=split(contatomostra,", ") else if(contatomostra="1") then infocontato=array("1","1","1") else infocontato=array("","","") end if end if if(infocontato(0)="1") then %> <% end if if(infocontato(1)="1") then %> <% end if if(infocontato(2)="1") then %> <% end if end if contato2mostra=rs("curContato2mostra") if(not isnull(rs("curContato2"))) and rs("curContato2")<>0 then Set rsc = Server.CreateObject("ADODB.Recordset") rsc.Open "SELECT * FROM tbllogin where login_id = " & rs("curContato2") & " ", Bco contato2nome=rsc("prof_nome") contato2email=rsc("prof_email") contato2fone=rsc("prof_ddd1")&" "&rsc("prof_fone1") contato2cel=rsc("prof_ddd2")&" "&rsc("prof_fone2") rsc.close set rsc = nothing %> <% if(instr(contato2mostra,", ")>0) then infocontato2=split(contato2mostra,", ") else if(contato2mostra="1") then infocontato2=array("1","1","1") else infocontato2=array("","","") end if end if if(infocontato2(0)="1") then %> <% end if if(infocontato2(1)="1") then %> <% end if if(infocontato2(2)="1") then %> <% end if end if if ( (not isnull(rs("curCallCenterMostra"))) and rs("curCallCenterMostra")=true) then %> <% end if %> <% if rs("curObjetivo") <> "" and not isnull(rs("curObjetivo")) then %> <% end if %> <% if rs("curPrograma") <> "" and not isnull(rs("curPrograma")) then %> <% end if %> <% if rs("curListaMateriais") <> "" and not isnull(rs("curListaMateriais")) then %> <% end if %> <% if rs("curCurriculo") <> "" and not isnull(rs("curCurriculo")) then %> <% end if %> <% if rs("curBibliografia") <> "" and not isnull(rs("curBibliografia")) then %> <% end if %> <% if rs("curObs") <> "" and not isnull(rs("curObs")) then %> <% end if %>

PARCEIROS