<% Login=request.Item("Login") Senha=request.Item("Senha") Set strConexao = Server.CreateObject("ADODB.Connection") strConexao.Open session("stringconexaobomdesorte") Set rstemp = strConexao.Execute("SELECT * FROM Empresas where Login='" & Login & "'") %>
<% If rstemp.eof then %>

Cliente não encontrado. Entre em contato com o Clube dos Amigos Vida Simples <% else If rstemp("Senha")=Senha then wQt_Permitida=rstemp("QT_OFERTAS") rstemp.close Set rstemp = strConexao.Execute("select count(*) as Qt_Anunciada from OFERTAS_DIA where Login='" & Login & "'") %> <% if rstemp("Qt_Anunciada") >= wQt_Permitida then %>

Quantidade de anúncios permitidos já esgotada.

Quantidade de produtos anunciados: 0<%=rstemp("Qt_Anunciada")%>

Para aumentar a quantidade de anúncios entre em contato com o Clube dos Amigos Vida Simples.

Listagem de ofertas publicadas

<% else %>

 

 

 

Descreva abaixo suas ofertas

Listagem de ofertas publicadas

 

Produto :  
Unidade :  
Marca :  
Valor :   Formato do valor: 0,00
Oferta válida até :   Formato da Data: 00/00/0000

 

 

 

 

<% end if %> <% else %>

Senha inválida. Caso tenha esquecido entre em contato com o Clube dos Amigos Vida Simples <% end if %> <% end if %> <% rstemp.close strConexao.close set rstemp=nothing set strConexao=nothing %>