Jump to content

  2. → Viewing Profile: Posts: LaneBH

LaneBH

Member Since 01/04/2007
Offline Last Active 13/05/2007, 15:40
-----

Posts I've Made

In Topic: Como Enviar Uma Variavel Para Outra Pagina No Asp

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">
  &lt;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">&nbsp;</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">&nbsp;</td>	
  <td ID=niv03_col04 width="5" height="360" valign="top">&nbsp;</td>
  <td ID=niv03_col05 width="590" valign="top">
  
<!--  -->
	<table cellspacing="0" cellpadding="0" border="0"><tr><td height="20">&nbsp;</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">&nbsp;</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>&nbsp;</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">&nbsp;</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> &nbsp;</td>				
				  <td height="20" width="520"><p>Informativos da empresa teste</p></td>
		  <td height="20" align=left valign=middle width="10">&nbsp;
			
		  </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">&nbsp;
			
		  </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">&nbsp;</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>&nbsp;</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">&nbsp;</td></tr></table>

	</td>
	<td ID=niv03_col09 width="5" height="360">&nbsp;</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 = "&nbsp;&nbsp;&nbsp;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.

In Topic: Como Enviar Uma Variavel Para Outra Pagina No Asp

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
%>

In Topic: Problemas Com Firefox

12/04/2007, 08:59

Pod mover para la entao

In Topic: Problemas Com Firefox

07/04/2007, 17:31

O rapaz q fez o site ja saiu da empresa e agora eu sou responsavel pela manutenção e desenvolvimentyo do q for necessário la. Aparece uma lista de erros apontando erros do CSS, mas eu n sei o q pode estar errado pq no IE funciona perfeitamente.
Vcs saberiam me dizer +- o q deve ser?

Obrigada pelas ajudas....

In Topic: Como Fazer Galeria De Imagens Usando Somente Asp

05/04/2007, 16:52

Lane, Algo pronto é dificil lembrar por hora para te indicar, voce sabe programar algo usando asp?se souber é facil adaptar seu codigo ou ate mesmo ir montando um por aqui com a ajuda do pessoal, o proxima e anterior, se for usando banco de dados nada mais é que registro +1 e registro -1 e o javascript para abrir na propria paginausando ou nao frame.

[]'s


Oi Generation, o codigo é esse a seguir e eu estou chamando essa pagina(pod.asp) através da index.htm, onde eu coloco somente

<a href="java script:window.open('pod.asp?pod=lizpod','pod','width=400,height=380');void(0)"> + fotos </a>

e ela recebe o codigo da pagina em xml abaixo:

<?xml version="1.0"?>
<pod>

<pictures title="Galeria de fotos">bed_1.jpg</pictures>
<pictures>bed_2.jpg</pictures>
<pictures>bed_3.jpg</pictures>
<pictures>bed_7.jpg</pictures>

</pod>

na pagina principal(index.htm) que deveria abrir a galeria de fotos, porém esta abrindo 2 paginas ao mesmo tempo(1 da erro e outra e da galeria), como faço para corrigir este erro?... :blink:

<%@ language="javascript" %>

<%
var pod_type = Request.QueryString("pod")

var xmlPod = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
xmlPod.load(Server.MapPath(pod_type+".xml"))
xmlPod.async = false
var xmlPodRoot = xmlPod.documentElement
var xmlPodChildren = xmlPodRoot.childNodes
var xmlPodChildLength = xmlPodChildren.length
%>
<HTML>
<HEAD>
<TITLE> Pacto administradora- <%=(xmlPodChildren.item(0).attributes.item(0).value+" - ("+xmlPodChildLength+" fotos)")%></TITLE>

<style type="text/css">
<!--
A {color: #9999CC;}
-->
</style>

<script language="javascript">
<!--
<%
for (var y = 0; y < xmlPodChildLength; y++) {
Response.Write("var picPod"+y+"= new Image()\n")
Response.Write("picPod"+y+".src = 'images/"+xmlPodChildren.item(y).text+"'\n")
}
%>

var img = new Array()
<%
for (var x = 0; x < xmlPodChildLength; x++) {
Response.Write("img["+x+"] = 'images/"+xmlPodChildren.item(x).text+"'\n")
}
%>
var n = 0
var i = img.length - 1

function next() {
n=n+1
document.img1.src = img[n]
if (n >= img.length) {
document.img1.src = img[0]
n=0
}
}

function previous() {
n=n-1
document.img1.src = img[n]
if (n < 0) {
document.img1.src = img[i]
n = i
}
}
//-->
</script>

</HEAD>

<BODY leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" width="100%" align="center">
<tr><td align="center" valign="top">
<p>
<map name="pod_top">
<area alt="" coords="289,4,349,29" href="java script:window.close();void(0)">
</map>
<img src="images/pod_top.gif" border="0" usemap="#pod_top"> </p>
<p><br>
</p></td></tr>
<tr><td align="center" valign="middle">
<%
Response.Write("<img name=img1 src=images/"+xmlPodChildren.item(0).text+" border=0 align=center>")
%>
</td></tr>
<tr><td align="center" valign="bottom">
<br>
<img src="images/pod_bot.gif" alt="" border="0" usemap="#podmap"><br>
<map name="podmap">
<area alt="" coords="183,6,257,27" href="java script:next()" shape="RECT">
<area alt="" coords="65,6,152,26" href="java script:previous()" shape="RECT">
</map>
</p>
</td></tr>
</table>

</BODY>
</HTML>

<%
xmlPod = null
xmlPodRoot = null
xmlPodChildren = null
xmlPodChildLength = null
pod_type = null
%>



Por favor eu preciso muito dessa ajuda!!!...

Obrigada...

  1. Fórum WMO
  2. → Viewing Profile: Posts: LaneBH
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq