tenho um BD onde nele existe a tabela CADASTO e uma outra tabela de nome SENHA...no CADASTRO são armazenados os nomes dos usuários e na SENHA uma única senha.
quero fazer um login disso...sendo q a senha permanece a mesma o que muda é só o nome do usuário....mas como comparo uma tabela com outra..pra pegar o nome e verificar a senha...eu fiz assim...mas ta dando um erro:
<!--#include file="conectar.asp"-->
<%
Response.Buffer = TRUE
erro = ""
AbreConexao
idcat = request.querystring("idcat")
idalbum= request.querystring("idalbum")
cat = request.querystring("cat")
album = Replace(Request.QueryString("album"),"'","")
Nome = Replace(Request.Form("Nome"), "'","")
Senha = Replace(Request.Form("Senha"),"'","")
SQL = "SELECT senha From SENHA"
Set rs1 = Conexao.Execute(SQL)
strSQL = "SELECT login From CADASTRO WHERE login = '" & login & "'"
Set rs2 = Conexao.Execute(strSQL)
If NOT rs1.EOF and rs2.EOF Then
If Login = rs2("Login") AND Senha = rs1("Senha") Then
strPode = "album" & idalbum
Session("pode") = strPode
Session("senha")= Trim(Senha)
Redir = "SIM"
Else
If Request.Form("ev") <> "" Then
Session("pode") = ""
Session("senha")= NULL
erro = "ERRO 01"
End If
End If
Else
If Request.Form("ev") <> "" Then
Session("pode") = ""
Session("senha")= NULL
erro = "ERRO 02"
End If
End If
LA = "default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & idalbum & "&album=" & album
LF = "logiver.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & idalbum & "&album=" & album
If Redir = "SIM" Then
sql_relatorio = "INSERT INTO acessos (Nome, data) VALUES ('" & Nome & "', '" & now() & "')"
set tab_acessos = conexao.execute (sql_relatorio)
Response.Redirect LA
Else
erro1 = "ERRO 03"
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Área restrita de Lotes</title>
</head>
<body bgcolor="#045979" text="#FFFFFF" link="#73BCF2" vlink="#73BCF2" alink="#73BCF2">
<%If erro <> "" Then Response.Write "<h1 style=""text-align:center"">Login ou Password Invalidos<br>(Login or Password wrong)</h1><br>"%>
<div id="prim" style="text-align:center;padding:50px;">
<br><font face="Verdana" size="2"><b>Login - <%=album%></b></font>
<form method="post" action="<%=LF%>">
<table id="log" style="color:#fff;background-color:#C0C0C0;">
<tr>
<td><label><font face="Verdana" size="2" color="#000000"><b>Login:</b></font></label></td>
<td><input type="text" name="Nome" value=""></td>
</tr>
<tr>
<td><label><font face="Verdana" size="2" color="#000000"><b>Password:</b></font></label></td>
<td><input type="password" name="Senha" value=""></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="ev" value="Entrar"></td>
</tr>
</table>
</form>
<a href="default.asp?idcat=1&cat=Lotes" style="color: #FFFFFF"><b><img src="imagem/fechar.gif" border="0"> <font face="Verdana" size="2">Sair</font></b></a>
</div>
</body>
</html>
Pergunta
Mateustg
galera...to querendo fazer o seguinte:
tenho um BD onde nele existe a tabela CADASTO e uma outra tabela de nome SENHA...no CADASTRO são armazenados os nomes dos usuários e na SENHA uma única senha.
quero fazer um login disso...sendo q a senha permanece a mesma o que muda é só o nome do usuário....mas como comparo uma tabela com outra..pra pegar o nome e verificar a senha...eu fiz assim...mas ta dando um erro:
<!--#include file="conectar.asp"--> <% Response.Buffer = TRUE erro = "" AbreConexao idcat = request.querystring("idcat") idalbum= request.querystring("idalbum") cat = request.querystring("cat") album = Replace(Request.QueryString("album"),"'","") Nome = Replace(Request.Form("Nome"), "'","") Senha = Replace(Request.Form("Senha"),"'","") SQL = "SELECT senha From SENHA" Set rs1 = Conexao.Execute(SQL) strSQL = "SELECT login From CADASTRO WHERE login = '" & login & "'" Set rs2 = Conexao.Execute(strSQL) If NOT rs1.EOF and rs2.EOF Then If Login = rs2("Login") AND Senha = rs1("Senha") Then strPode = "album" & idalbum Session("pode") = strPode Session("senha")= Trim(Senha) Redir = "SIM" Else If Request.Form("ev") <> "" Then Session("pode") = "" Session("senha")= NULL erro = "ERRO 01" End If End If Else If Request.Form("ev") <> "" Then Session("pode") = "" Session("senha")= NULL erro = "ERRO 02" End If End If LA = "default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & idalbum & "&album=" & album LF = "logiver.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & idalbum & "&album=" & album If Redir = "SIM" Then sql_relatorio = "INSERT INTO acessos (Nome, data) VALUES ('" & Nome & "', '" & now() & "')" set tab_acessos = conexao.execute (sql_relatorio) Response.Redirect LA Else erro1 = "ERRO 03" End If %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Área restrita de Lotes</title> </head> <body bgcolor="#045979" text="#FFFFFF" link="#73BCF2" vlink="#73BCF2" alink="#73BCF2"> <%If erro <> "" Then Response.Write "<h1 style=""text-align:center"">Login ou Password Invalidos<br>(Login or Password wrong)</h1><br>"%> <div id="prim" style="text-align:center;padding:50px;"> <br><font face="Verdana" size="2"><b>Login - <%=album%></b></font> <form method="post" action="<%=LF%>"> <table id="log" style="color:#fff;background-color:#C0C0C0;"> <tr> <td><label><font face="Verdana" size="2" color="#000000"><b>Login:</b></font></label></td> <td><input type="text" name="Nome" value=""></td> </tr> <tr> <td><label><font face="Verdana" size="2" color="#000000"><b>Password:</b></font></label></td> <td><input type="password" name="Senha" value=""></td> </tr> <tr> <td colspan="2" align="center"><input type="submit" name="ev" value="Entrar"></td> </tr> </table> </form> <a href="default.asp?idcat=1&cat=Lotes" style="color: #FFFFFF"><b><img src="imagem/fechar.gif" border="0"> <font face="Verdana" size="2">Sair</font></b></a> </div> </body> </html>O erro q dá é este:
error '80020009'
/album/logiver.asp, line 20
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.