Como Enviar Uma Variavel Para Outra Pagina No Asp
#1
Posted 10/05/2007, 11:06
na outra pagina nao aparece nada...mas tem o email no banco...
#2
Posted 10/05/2007, 12:19
se for passar a variavel de uma pagina pra outra vc tem q instanciar o TextFiled q esta na primeira pagina, e depois chamar ele com um request.form("nome_do_textfiled"). Colocando isso numa variavel.
pra buscar do banco vc coloca uma variavel recebendo uma consulta ao banco...
#3
Posted 10/05/2007, 13:02
posta o codigo aí...
se for passar a variavel de uma pagina pra outra vc tem q instanciar o TextFiled q esta na primeira pagina, e depois chamar ele com um request.form("nome_do_textfiled"). Colocando isso numa variavel.
pra buscar do banco vc coloca uma variavel recebendo uma consulta ao banco...
a pagina subscriberMailer5.asp, que tem este input:
<input class="boxon" type="text" name="subscriberMail" value="<%=subscriberMail%>" size="69" maxlength="100">
chama a subscriberMailercod.asp, que tem este codigo:
<%
Option Explicit
Dim IDcad
IDcad = session("sendID")
Dim emailcad, pactocad, parceiroscad, datacad
emailcad=request.form("subscriberMail")
pactocad = request.form("pactocad")
parceiroscad = request.form("parceiroscad")
datacad=date()
dim conexao, rs1,rs2,sql1,sql2,sql3
'conectando ao banco de dados'
set conexao = server.CreateObject("ADODB.connection")
conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq="&server.MapPath("./database/eunid.mdb")
sql1=("SELECT * FROM CADCOND WHERE CADCOND.ID='" & IDcad & "'")
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sql1, conexao, 3, 3
if(pactocad <> 1) then
pactocad=0
end if
if (parceiroscad <>1) then
parceiroscad=0
end if
if (rs1.eof and rs1.bof) then
'Inserindo no banco CADCOND
sql2="INSERT INTO CADCOND(ID, EMAIL, DATACAD, PACTO, PARCEIROS) VALUES ('"& IDcad & "','"& emailcad & "','" & datacad &"','"& pactocad &"','" & parceiroscad & "')"
'WHERE ID='" & IDcad & "'
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set rs2 = conexao.Execute(sql2)
response.Redirect("emailcadastrado.asp")
'conexao.open()
'rs2.Open sql2, conexao, 3, 3
'conexao.Close()
'Set rs2=nothing
'Set conexao=nothing
else
'Atualizando banco CADCOND
sql3 = "UPDATE CADCOND set EMAIL='" & emailcad & "', DATACAD= '" & datacad & "', PACTO='" & pactocad & "', PARCEIROS='" & parceiroscad & "' WHERE ID='" & IDcad & "'"
conexao.execute(sql3)
conexao.Close()
response.Redirect("emailalterado.asp")
end if
Dim subscribermail
'if (rs.BOF and not rs.EOF) Then
subscribermail=rs1.fields("EMAIL").value
conexao.Close()
Set rs1=nothing
Set rs2=nothing
Set conexao=nothing
%>
#4
Posted 11/05/2007, 06:57
#5
Posted 11/05/2007, 16:08
Qual o erro que aparece pra vc?
Não aparece erro nenhum dessa forma ai...mas eu quero que no textfield quando a pessoa entrar no site apareça o e-mail dela se tiver no banco senão ela digita....como faço não da certo de forma alguma...ah e te queria saber tbem se eu posso passar duas variaveis no action do form sendo q esta pagina e asp e a q ela chama tbem e.
Tipo:
<form name="formSubscriber" method="POST" action="subscriberMailercod.asp?sendID=<%=Session("sendID")%>">
So q queria q enviasse 2 variaveis do codigo asp, como faço pq pelo session n da certo.
pq quero pegar email e codigo...o codigo da certo mas email nao...nao pode ter 2 session numa página?
Por favor eu preciso muito fazer esta página para a empresa onde trabalho, faz tempo q to tentando e não consigo.
E o seguinte eu tenho esta pagina subscriberMailer5.asp com este codigo:
<% Dim sendIdent, Ident, sendID Ident = Session("sID") sendIdent = CStr(Ident) 'Converte o valor para string session("sendID")=sendIDent %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" <!--begin: formulario para escolha e envio do e-mails --> <HTML><HEAD><TITLE>Teste - www.teste.com.br</TITLE> <META http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <META content=3D"MSHTML 6.00.2800.1528" name=3DGENERATOR> <LINK REL="STYLESHEET" HREF="teste.css" TYPE="text/css"> <base target="home"> <script language=JavaScript src="checkForms.js"></script> </HEAD> <BODY bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <!--begin: niv02 = menu--> <!-- #INCLUDE FILE="menusup.asp" --> <!--begin: niv03 = conteudo--> <table cellspacing="0" cellpadding="0" border="0"> <tr><td ID=niv03_col01 width="5" height="350"> </td> <td ID=niv03_col02 width="170" height="350" colspan="2"> <!--begin: menu --> <!-- #INCLUDE FILE="sMenu.asp" --> </td> <td ID=niv03_col03 width="5" height="360" valign="top"> </td> <td ID=niv03_col04 width="5" height="360" valign="top"> </td> <td ID=niv03_col05 width="590" valign="top"> <!-- --> <table cellspacing="0" cellpadding="0" border="0"><tr><td height="20"> </td></tr></table> <!--begin: Identificador--> <table cellspacing="0" cellpadding="0" border="0" align=center> <tr><td width="100%" height="20" colspan="1"><p class=titleoff_cent></p></td></tr> </table> <table cellspacing="0" cellpadding="0" border="0"><tr><td height="20"> </td></tr></table> <!--begin: niv03b = cadastro e-pacto --> <table border="0" width="100%" cellpadding="0" cellspacing="2"> <tr><a name="condomino"></a> <td width="20" height="20" ID=icon_marker> </td> <td width=570 height="20"><b>Cadastro e-Pacto</b></td></tr> </table> <form name="formSubscriber" method="POST" action="subscriberMailercod.asp?input=1&sendID=<%=Session("sendID")%>"> <!-- begin: niv03a = obs Página --> <table cellspacing="2" cellpadding="0" width="100%" border="0"> <tr><td width="100%" height="20" colspan=2><p></p></td></tr> </table> <table cellspacing="0" cellpadding="0" border="0"><tr><td height="10"></td></tr></table> <!-- begin: niv03a = obs Página --> <table cellspacing="2" cellpadding="2" width=100% border="0" height="24"> <tr><td width=100% height=18 colspan=2><p><b>Email :</b> <!-- Verifica se já existe e-mail --> <!--local do email --> <input class="boxon" type="text" name="subscribermail" value="<%=subscribermail%>" size="69" maxlength="100"> </table> <!--begin: celula branca--> <table cellspacing="0" cellpadding="0" border="0"><tr><td height="10"> </td></tr></table> <!--begin: niv03b = atas e editais--> <table border="0" width="588" cellpadding="4" cellspacing="2" bgcolor=#F5F5F5> <tr><td width="574" height=20 colspan="4" id=cel_cor01><p>Aceito receber : </p></td></tr> <tr><td width="574" height=10 colspan="4"></td></tr> <tr> <td height="20" width="20"><input type="checkbox" name="pactocad" value="1" id="pactocad" class=boxoffGhost checked> </td> <td height="20" width="520"><p>Informativos da empresa teste</p></td> <td height="20" align=left valign=middle width="10"> </td> </tr> <tr><td width="574" height=10 colspan="4"><hr></td></tr> <tr> <td height="20" width="20"><input type="checkbox" name="parceiroscad" value="1" id="parceiroscad" class=boxoffGhost checked></td> <td height="20" width="520"><p>Informativos dos Parceiros da empresa teste <p></td> <td height="20" align=left valign=middle width="10"> </td> </tr> <tr><td width="574" height=10 colspan="4"></td></tr> </table> <!--begin: celula branca--> <table cellspacing="0" cellpadding="0" border="0"><tr><td height="20"> </td></tr></table> <table border="0" width="100%" cellpadding="0" cellspacing="2"> <tr><td width="100%" height="20" colspan=2> <p><b>A -</b> Solicitamos aos clientes que possuem ferramentas <a class=help href="glossaryView.asp?sendSearch=spam">AntiSpam</a> em seus e-mails, que autorizem o domínio <b>teste.com.br</b> e o e-mail <b>teste@teste.com.br</b> para o recebimento de nossos e-mails.</p> </td></tr> <tr><td height="20" colspan=2> </td></tr> <tr><td height="20" width="100%" align="center"> <input type="SUBMIT" class="cad" name="enviar" value="" onClick="return checkFormSubscriber()"> </td> <!-- <td height="20" width="205" align="center"> <input type="RESET" class="can" name="limpar" value=" "> </td>--> </tr> </table> </form> <table cellspacing="0" cellpadding="0" border="0"><tr><td height="20"> </td></tr></table> </td> <td ID=niv03_col09 width="5" height="360"> </td> </tr> </table> <!--begin: niv04 = menu inferior--> <!-- #INCLUDE FILE="menuinf.asp" --> </body> </html> <% 'end if 'rs.Close 'set rs=nothing %> e ela chama a pagina onde ta o codigo em asp a subscriberMailerCod.asp: <% Option Explicit Dim IDcad IDcad = session("sendID") Dim emailcad, testecad, parceiroscad, datacad emailcad=request.form("subscriberMail") pactocad = request.form("testecad") parceiroscad = request.form("parceiroscad") datacad=date() dim conexao, rs1,rs2,sql1,sql2,sql3 'conectando ao banco de dados' set conexao = server.CreateObject("ADODB.connection") conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq="&server.MapPath("./database/eunid.mdb") sql1=("SELECT * FROM CADCOND WHERE CADCOND.ID='" & IDcad & "'") Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open sql1, conexao, 3, 3 Dim emailcadas, subscribermailabc 'if (rs.BOF and not rs.EOF) Then subscribermailabc=rs1.fields("EMAIL").value 'if ((valuemailteste = "") OR IsEmpty(valuemailteste) OR IsNull(valuemailteste)) then 'msgEmail = " Digite aqui o seu e-mail." 'end if if(testecad <> 1) then pactocad=0 end if if (testecad <>1) then parceiroscad=0 end if if (rs1.eof and rs1.bof) then 'Testa se e final de arquivo ou inicio de arquivo 'Inserindo no banco CADCOND sql2="INSERT INTO CADCOND(ID, EMAIL, DATACAD, TESTE, PARCEIROS) VALUES ('"& IDcad & "','"& valuemailteste & "','" & datacad &"','"& testecad &"','" & parceiroscad & "')" 'WHERE ID='" & IDcad & "' Set rs2 = Server.CreateObject("ADODB.Recordset") Set rs2 = conexao.Execute(sql2) response.Redirect("emailcadastrado.asp") else 'Atualizando banco CADCOND sql3 = "UPDATE CADCOND set EMAIL='" & emailcad & "', DATACAD= '" & datacad & "', TESTE='" & valuemailteste & "', PARCEIROS='" & parceiroscad & "' WHERE ID='" & IDcad & "'" conexao.execute(sql3) conexao.Close() end if dim subscribermail subscribermail=rs1.fields.("EMAIL").value conexao.Close() Set rs1=nothing Set rs2=nothing 'Destroi objetos Set conexao=nothing 'Destroi conexao %>
eu to querendo que quando o usuario entrar na pagina apareça no textfield o email que ta no banco se tiver, senao tiver ele o usuario digita e também pode dar update no email ja existente, como faço?
Eu preciso muito de fazer esta pagina para a emprea onde trabalho.
Me ajudem!
Obrigada
OBS: utilze a opção BBcode quando for postar trechos do códigos pra facilitar.
Edição feita por: Agente Linhares, 11/05/2007, 16:44.
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)