<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wATIVIDADE=request.item("Atividade") wID=session("ID_Cliente") wSQL=" SELECT * " wSQL=wSQL & " FROM LOJAS_CREDENCIADAS LC " wSQL=wSQL & " WHERE LC.ATIVIDADE = '" & wATIVIDADE & "'" wSQL=wSQL & " ORDER BY LC.ATIVIDADE " Set TabLojas = Database.Execute(wSQL) %>

Rede Credenciada

<%=wAtividade%>

 
<% While NOT TabLojas.EoF %> <% TabLojas.MoveNext %> <% Wend %>
Nome : <%=TabLojas("Nome")%>
Endereço : <%=TabLojas("Endereco")%> - <%=TabLojas("Numero")%>
Complemento : <%=TabLojas("Complemento")%>
Bairro : <%=TabLojas("Bairro")%>
Cidade : <%=TabLojas("Cidade")%> - <%=TabLojas("Estado")%>
Telefone : <%=TabLojas("Telefone_DDD")%> - <%=TabLojas("Telefone")%>
Fax : <%=TabLojas("FAX_DDD")%> - <%=TabLojas("FAX")%>
E-mail : "> <%=TabLojas("E_Mail")%>
Home Page : <%=TabLojas("Home_Page")%>
Observações : <%=TabLojas("Observacoes")%>