<% Dim Login Login=request.item("Login") Set Database = Server.CreateObject("ADODB.Connection") Database.Open session("stringconexaobomdesorte") Set rstemp = Database.Execute("SELECT * FROM Empresas where Login='" & Login & "'") %>

Veja os produtos anunciados.

Estes anúncios são de inteira responsabilidades da empresa <%=rstemp("Nome")%>

<% if rstemp("Home_Page") <> "" then %> <% else %> <% end if %>
Nome :" target="_blank"><%=rstemp("Nome")%><%=rstemp("Nome")%>
Endereço : <%=rstemp("Endereco")%> CEP : <%=rstemp("Cep")%>
Bairro : <%=rstemp("Bairro")%> Cidade : <%=rstemp("Cidade")%>
Telefone : <%=rstemp("DDD")%> - <%=rstemp("Telefone")%>

 

<% rstemp.close Set rstemp = Database.Execute("SELECT * FROM Ofertas_Dia where Login='" & Login & "'") if rstemp.eof then %>

Não há oferta anunciada... <% else %> <% Do Until rstemp.EOF = True %> <% rstemp.MoveNext Loop %>
Produto Marca Unidade

Valor

Oferta válida até

(ou enquanto durar o estoque)
<%=rstemp("Produto")%> <%=rstemp("Marca")%> <%=rstemp("Unidade")%>

R$ <%=FormatNumber(rstemp("Valor"))%>

<%=DataBr(rstemp("Dt_Validade"))%>
<% end if %>

 
<% rstemp.close set rstemp=nothing set Database=nothing %>