<% set Conn = Server.CreateObject("ADODB.Connection") Conn.open CDSN query = "SELECT idIrmao, nome, dddTelefoneResidencial, telefoneResidencial, dddTelefoneComercial, telefoneComercial, dddCelularResidencial, celularResidencial, emailResidencial FROM Irmaos ORDER BY nome" set RS = Conn.execute (query) %>

<% if RS.EOF then Response.write("") else %> <% end if %> Não há Irmão disponível. <% while not RS.EOF idIrmao = PegaDoBD(RS("idIrmao")) nome = PegaDoBD(RS("nome")) dddTelefoneResidencial = PegaDoBD(RS("dddTelefoneResidencial")) if (len(dddTelefoneResidencial)>0) then dddTelefoneResidencial = "(" & dddTelefoneResidencial & ")" telefoneResidencial = PegaDoBD(RS("telefoneResidencial")) if (len(telefoneResidencial)>4) then telefoneResidencial = left(telefoneResidencial, len(telefoneResidencial)-4) & "-" & right(telefoneResidencial, 4) end if dddTelefoneComercial = PegaDoBD(RS("dddTelefoneComercial")) if (len(dddTelefoneComercial)>0) then dddTelefoneComercial = "(" & dddTelefoneComercial & ")" telefoneComercial = PegaDoBD(RS("telefoneComercial")) if (len(telefoneComercial)>4) then telefoneComercial = left(telefoneComercial, len(telefoneComercial)-4) & "-" & right(telefoneComercial, 4) end if dddCelularResidencial = PegaDoBD(RS("dddCelularResidencial")) if (len(dddCelularResidencial)>0) then dddCelularResidencial = "(" & dddCelularResidencial & ")" celularResidencial = PegaDoBD(RS("celularResidencial")) if (len(celularResidencial)>4) then celularResidencial = left(celularResidencial, len(celularResidencial)-4) & "-" & right(celularResidencial, 4) end if emailResidencial = PegaDoBD(RS("emailResidencial")) %> <% RS.MoveNext wEnd %> Nome Residencial Comercial Celular E-mail <%= nome %> <% Response.write(dddTelefoneResidencial & " " & telefoneResidencial) %> <% Response.write(dddTelefoneComercial & " " & telefoneComercial) %> <% Response.write(dddCelularResidencial & " " & celularResidencial) %> <%= emailResidencial %>

<% set RS = nothing Conn.close set Conn = nothing %>