<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID=request.item("ID") SQL= " SELECT * " SQL=SQL & " FROM EMPRESAS E " SQL=SQL & " WHERE ID=" & wID Set TabParceiro = Database.Execute(SQL) %>

Empresas participantes da Rede

(Todos os anúncios são de inteira responsabilidades de seus anunciantes)

 
Você poderá solicitar seu ticket na empresa abaixo, conforme o regulamento da mesma:

Nome : <%=TabParceiro("Nome")%> <% if TabParceiro("ARQUIVO_LOGO") <> "" then %> " width="217" height="137"> <% end if %>
Endereço : <%=TabParceiro("Endereco")%>
Complemento : <%=TabParceiro("Complemento")%>
Bairro : <%=TabParceiro("Bairro")%>
Cidade : <%=TabParceiro("Cidade")%>
Cep : <%=TabParceiro("CEP")%>
Telefone : <%=TabParceiro("Telefone")%>
E-mail : <%=TabParceiro("E_Mail")%>
Home : "><%=TabParceiro("Home_Page")%>
Anuncio/Ofertas : <%=TabParceiro("Anuncio")%>