<% Dim Login, Senha Login=request.item("Login") Senha=request.item("Senha") Set DataBase = Server.CreateObject("ADODB.Connection") DataBase.Open session("stringconexaobomdesorte") Set oRs = DataBase.Execute("SELECT * FROM EMPRESAS WHERE LOGIN = '" & Login & "' and SENHA = '" & Senha & "'") %> <% If oRs.eof then%>

Erro...

 

Senha inválida. Caso tenha esquecido entre em contato com o Clube dos Amigos Vida Simples <% else %>
Empresa : <%=oRs("Nome")%>
Endereço : <%=oRs("Endereco")%> - <%=oRs("Numero")%>
Complemento : <%=oRs("Complemento")%>
Bairro : <%=oRs("Bairro")%>
Cidade : <%=oRs("Cidade")%> - <%=oRs("Estado")%>
Cep : <%=oRs("Cep")%>
Telefone : <%=oRs("Telefone")%>
E-Mail : <%=oRs("E_Mail")%>
Home Page : <%=oRs("Home_Page")%>
Contato : <%=oRs("Contato")%>
Telefone : <%=oRs("Contato_Telefone")%> - <%=oRs("Contato_Celular")%>
E-Mail : <%=oRs("Contato_E_Mail")%>
 

Painel de Controle
&Login=<%=Login%>&Senha=<%=Senha%>"> Clientes Cadastrados &Login=<%=Login%>&Senha=<%=Senha%>"> Comprar Tickets
&Login=<%=Login%>&Senha=<%=Senha%>"> Clientes por Bairro &Login=<%=Login%>&Senha=<%=Senha%>"> Anúncio
    Anunciar Ofertas
       
<% end if %>