<% Dim Conn, RS, q, ida, nome, equipe, logo, desc, pc, t1, t2, f, m, s, e, c1, c2, contato, tel1, tel2, fax Dim rua, numero, compl, bairro, cidade, uf, cep, endereco ida = Request("id") Conn = 0: RS = 0 getConnection Conn, jetSQL q = "SELECT nome, equipe, logomarca, descricao FROM associacao WHERE (((ID_associacao) = "& ida &"))" getRecordSet RS, q, Conn nome = RS(0): equipe = RS(1): logo = RS(2): desc = RS(3) RS.Close() q = "SELECT contato, tel1, tel2, fax, email, homepage, executivo, cargo1, cargo2 FROM associacao_contato " _ &"WHERE (((ID_associacao) = "& ida &"))" getRecordSet RS, q, Conn If Not(RS.eof) Then pc = RS(0): t1 = RS(1): t2 = RS(2): f = RS(3): m = RS(4): s = RS(5): e = RS(6): c1 = RS(7): c2 = RS(8) End if contato = "": tel1 = "": tel2 = "": fax = "" If e <> "" Then contato = (contato &"Principal Executivo: "& e) If c1 <> "" Then contato = (contato &" - "& c1) If pc <> "" Then contato = (contato &"
Contato: "& pc) If c2 <> "" Then contato = (contato &" - "& c2) If t1 <> "" Then tel1 = "("& Left(t1, 2) &") "& Mid(t1, 3, Len(t1)) If t2 <> "" Then tel2 = "("& Left(t2, 2) &") "& Mid(t2, 3, Len(t2)) If f <> "" Then fax = "("& Left(f, 2) &") "& Mid(f, 3, Len(f)) RS.Close() q = "SELECT logradouro, numero, compl, bairro, cidade, uf, cep FROM associacao_endereco WHERE " _ &"(((ID_associacao) = "& ida &"))" getRecordSet RS, q, Conn If Not(RS.eof) Then rua = RS(0): numero = RS(1): compl = RS(2): bairro = RS(3): cidade = RS(4): uf = RS(5): cep = RS(6) End if CloseNothing(RS): CloseNothing(Conn) endereco = "" If rua <> "" Then endereco = (endereco & rua) If Not(isNull(numero)) Then endereco = (endereco &", "& numero) If compl <> "" Then endereco = (endereco &" "& compl) If bairro <> "" Then endereco = (endereco &" - "& vbCrLf & bairro) If cidade <> "" Then endereco = (endereco &"
"& cidade) If Not(isNull(uf)) Then endereco = (endereco &", "& NMUF(uf)) If cep <> "" Then endereco = (endereco &"
"& cep) %> Portal Itália - O portal da Comunidade Ítalo-Brasileira <%If (((contato) <> "") OR ((tel1) <> "") OR ((tel2) <> "") OR ((fax) <> "") OR ((m) <> "") OR ((s) <> "")) Then%> <%End if%>
Página Inicial de Associações Italianas
 
<% With Response Response.Write("
"& vbCrLf) If logo <> "" Then .Write("
") .Write("
"& nome &"
"& vbCrLf) .Write("
"& vbCrLf) If equipe <> "" Then .Write("Equipe formada por:"& vbCrLf &"
"& equipe & vbCrLf) If contato <> "" Then .Write("
"& contato &"
"& vbCrLf) End With %>
 
<%=desc%>
 
<%=endereco%>
 
<% With Response If tel1 <> "" Then .Write("Telefone: "& tel1) If tel2 <> "" Then .Write(" / "& tel2) .Write(vbCrLf &"
"& vbCrLf) If fax <> "" Then .Write("Fax: "& fax & vbCrLf &"
"& vbCrLf) If m <> "" Then .Write("E-mail: "& m &"
"& vbCrLf) If s <> "" Then .Write("Site: "& s &""& vbCrLf) End With %>