Olá galera, é o seguinte...eu tenho este código aqui:
<!--#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"),"'","")
strSQL = "SELECT CADASTRO.*,ALBUM.Senha FROM ALBUM INNER JOIN CADASTRO ON ALBUM.id = CADASTRO.IdAlbum WHERE (((CADASTRO.Login)='"&Nome&"') AND ((CADASTRO.IdAlbum)="&idalbum&") AND ((ALBUM.Senha)='"&Senha&"'))"
'Response.Write strSQL
Set rs = Conexao.Execute(strSQL)
If NOT rs.EOF Then
If Trim(Nome) = Trim(rs("Login")) AND Trim(Senha) = Trim(rs("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
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 Senha Invalida</h1><br>"%>
<div id="prim" style="text-align:center;padding:50px;">
<br><font face="Verdana" size="2"><b>Login para ver o <%=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>Senha:</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>
ele é responsavel por conferir o login e senha de acesso...o que eu estou querendo é que se a pessoa digitar o login e senha corretos, além dele entrar, o que já faz, gostaria de pegar o nome de login e a senha digitados e salvar dentro de uma outra tabela que tenho aqui, pois dai eu só mando listar depois num relatório, mas como eu consigo pegar o login e senha e armazenar nessa tabela?
Pergunta
Mateustg
Olá galera, é o seguinte...eu tenho este código aqui:
<!--#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"),"'","") strSQL = "SELECT CADASTRO.*,ALBUM.Senha FROM ALBUM INNER JOIN CADASTRO ON ALBUM.id = CADASTRO.IdAlbum WHERE (((CADASTRO.Login)='"&Nome&"') AND ((CADASTRO.IdAlbum)="&idalbum&") AND ((ALBUM.Senha)='"&Senha&"'))" 'Response.Write strSQL Set rs = Conexao.Execute(strSQL) If NOT rs.EOF Then If Trim(Nome) = Trim(rs("Login")) AND Trim(Senha) = Trim(rs("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 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 Senha Invalida</h1><br>"%> <div id="prim" style="text-align:center;padding:50px;"> <br><font face="Verdana" size="2"><b>Login para ver o <%=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>Senha:</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>ele é responsavel por conferir o login e senha de acesso...o que eu estou querendo é que se a pessoa digitar o login e senha corretos, além dele entrar, o que já faz, gostaria de pegar o nome de login e a senha digitados e salvar dentro de uma outra tabela que tenho aqui, pois dai eu só mando listar depois num relatório, mas como eu consigo pegar o login e senha e armazenar nessa tabela?
Vlw
Link para o comentário
Compartilhar em outros sites
7 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.