Login - De Novo - ASP

Oi, sei que tem vários posts sobre o assunto, pesquisei antes de postar, mas infelizmente nenhum post que eu visitei pôde me auxiliar no que eu necessito.
Bom, acredito que seja simples, tenho uma página de cadastro, terminado o mesmo, o cliente clica em "continuar" (dãã) e cai em uma página de login, lá ele digita novamente o e-mail e senha para que possa abrir uma página com uma guia de pagamento bancário, com os dados informados no cadastro.
Simples né?
O que ocorre é que no momento do login não está passando o "ID" para a outra página para que o ASP possa buscar as informações no banco e preencher os campos da guia.
PERGUNTA:
Como fazer o Recordset da página de login mandar o ID para a próxima página?
segue o código:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

<%
var qr_login = Server.CreateObject("ADODB.Recordset");
qr_login.ActiveConnection = MM_GRCS_STRING;
qr_login.Source = "SELECT * FROM associado";
qr_login.CursorType = 0;
qr_login.CursorLocation = 2;
qr_login.LockType = 1;
qr_login.Open();
var qr_login_numRows = 0;
%>
<%
// *** Validate request to log in to this site.
var MM_LoginAction = Request.ServerVariables("URL");
if (Request.QueryString!="") MM_LoginAction += "?" + Server.HTMLEncode(Request.QueryString);
var MM_valUsername=String(Request.Form("email"));
if (MM_valUsername != "undefined") {
var MM_fldUserAuthorization="";
var MM_redirectLoginSuccess="passo3.asp";
var MM_redirectLoginFailed="Untitled-1.html";
var MM_flag="ADODB.Recordset";
var MM_rsUser = Server.CreateObject(MM_flag);
MM_rsUser.ActiveConnection = MM_GRCS_STRING;
MM_rsUser.Source = "SELECT Email, Senha";
if (MM_fldUserAuthorization != "") MM_rsUser.Source += "," + MM_fldUserAuthorization;
MM_rsUser.Source += " FROM associado WHERE Email='" + MM_valUsername.replace(/'/g, "''") + "' AND Senha='" + String(Request.Form("senha")).replace(/'/g, "''") + "'";
MM_rsUser.CursorType = 0;
MM_rsUser.CursorLocation = 2;
MM_rsUser.LockType = 3;
MM_rsUser.Open();
if (!MM_rsUser.EOF || !MM_rsUser.BOF) {
// username and password match - this is a valid user
Session("MM_Username") = MM_valUsername;
if (MM_fldUserAuthorization != "") {
Session("MM_UserAuthorization") = String(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value);
} else {
Session("MM_UserAuthorization") = "";
}
if (String(Request.QueryString("accessdenied")) != "undefined" && false) {
MM_redirectLoginSuccess = Request.QueryString("accessdenied");
}
MM_rsUser.Close();
Response.Redirect(MM_redirectLoginSuccess);
}
MM_rsUser.Close();
Response.Redirect(MM_redirectLoginFailed);
}
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...nsitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<style type="text/css">

</style>
</head>

<body>
<p>Cadastro Efetuado.</p>
<p>Informe seu e-mail e senha nos campos abaixo para gerar a guia de contribuição
sindical</p>
<form id="form1" name="form1" method="POST" action="<%=MM_LoginAction%>">
<table width="300" border="0">
<tr>
<td align="right" valign="middle"><span class="style5">E-mail</span></td>
<td colspan="2" align="left" valign="middle"><span class="style5">
<label>
<input name="email" type="text" id="email" size="20" />
</label>
</span></td>
</tr>
<tr>
<td align="right" valign="middle"><span class="style5">Senha</span></td>
<td colspan="2" align="left" valign="middle"><span class="style5">
<label>
<input name="senha" type="password" id="senha" size="10" />
</label>
</span></td>
</tr>
<tr>
<td height="28"><span class="style6"></span></td>
<td><span class="style6"></span></td>
<td align="right" valign="middle"><span class="style5">
<label>
<input type="submit" name="Submit" value="OK" />
</label>
</span></td>
</tr>
</table>
</form>
<p>  </p>
</body>
</html>
<%
qr_login.Close();
%>

e a página que recebe o login com sucesso:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

<%
var qr_exibir__MMColParam = "1";
if (String(Request.QueryString("Email")) != "undefined" &&
String(Request.QueryString("Email")) != "") {
qr_exibir__MMColParam = String(Request.QueryString("Email"));
}
%>
<%
var qr_exibir = Server.CreateObject("ADODB.Recordset");
qr_exibir.ActiveConnection = MM_GRCS_STRING;
qr_exibir.Source = "SELECT * FROM associado WHERE Email = '"+ qr_exibir__MMColParam.replace(/'/g, "''") + "'";
qr_exibir.CursorType = 0;
qr_exibir.CursorLocation = 2;
qr_exibir.LockType = 1;
qr_exibir.Open();
var qr_exibir_numRows = 0;
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...nsitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>
<%=(qr_exibir.Fields.Item("Nome").Value)%>
, sua guia está pronta, clique <a href="grcsu.asp?<%=(qr_exibir.Fields.Item("ID").Value)%>=">aqui</a> para imprimir.<br />
<br />
Leia essas instruções com atenção.<br />
BláBláBláBláBláBláBláBláBláBláBláBlá<br />
BláBláBláBláBláBláBláBláBláBláBláBlá<br />
BláBláBláBláBláBláBláBláBláBláBláBlá<br />
BláBláBláBláBláBláBláBláBláBláBláBlá
</body>
</html>
<%
qr_exibir.Close();
%>

É isso...espero que possam me ajudar, dei uma olhada na busca do fórum, mas realmente não vi nada concreto que pudesse me auxiliar.

pq vc nao faz assim??

login.asp

<form name="form1" method="post" action="recebe.asp">
  <p>Login:<br>
    <input name="login" type="text" id="login">
  </p>
  <p>Senha:<br>
    <input name="senha" type="password" id="senha">
</p>
  <p>
    <input name="Continuar" type="submit" id="Continuar" value="Continuar">
</p>
</form>

recebe.asp

<!--#include file="conexao.asp"-->
<%
vlogin=request.form("login")
vsenha=request.form("senha")
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = conn
RS.open "select*from usuarios where login='"&vlogin&"' and senha='"&vsenha&"'"
%>

<%
if RS.EOF then
%>
<script>
alert("Usuário ou Senha Inválidos");
location="index.asp"
</script>
<%
else
session("logado")="sim" 
response.write""
'cria as variaveis buscando os campos no access
'nome = rs("nome") e por ai vai...
Session("login") = Rs("login")
end if
%>
Olá <%=nome%>

dai basta vc adaptar para o seu sistema...

Login - De Novo

#1 Marcelo-M4

#2 abc2

#3 Marcelo-M4

#4 abc2

1 user(s) are reading this topic