Oi eu fiz 4 paginas 1 q chama a outra e vai passando o codigo que e a chave primaria do banco, mas quando tentom passar email q nao e chave primaria da erro, eu to mandando pelo session...alguem sabe como enviar pela url? ou pq da esse erro
na outra pagina nao aparece nada...mas tem o email no banco...
Como Enviar Uma Variavel Para Outra Pagina No Asp
Started By LaneBH, 10/05/2007, 11:06
4 replies to this topic
#2
Gabriel2ny
-
- Usuários
-
- 107 posts
Normal
- Sexo:Masculino
Posted 10/05/2007, 12:19
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...
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
LaneBH
-
- Usuários
-
- 10 posts
Novato no fórum
- Sexo:Não informado
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
JayJr
-
- Usuários
-
- 92 posts
Normal
- Sexo:Masculino
- Localidade:São Paulo - SP
Posted 11/05/2007, 06:57
Qual o erro que aparece pra vc?
..::::.. jay ..::::..
#5
LaneBH
-
- Usuários
-
- 10 posts
Novato no fórum
- Sexo:Não informado
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.
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
