Postagens
Não informado
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:
e a página que recebe o login com sucesso:<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/GRCS.asp" -->
<%
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">
<!--
.style5 {font-family: Arial, Helvetica, sans-serif; font-size: 12; }
.style6 {font-size: 12}
-->
</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();
%>
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/GRCS.asp" -->
<%
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.
