% 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 %>
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 %> |