Problema Passaggio variabili

drblis

Nuovo Utente
31 Lug 2008
21
0
0
Ciao ragazzi ho un problema con il passaggio di una variabile..praticamente quando arriva all'altra pagina risulta vuota vi posto il codice, la variabile in questione è "fin"


Questa è la pagina che invia
Codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="DbConnection.asp"--> 
<!--#include virtual="adovbs.inc"-->
<link href="formattazione.css" rel="stylesheet" type="text/css">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento senza titolo</title>
</head>

<body>
<div id = ultima>
<%
' carga la noticia entera
dim pir
dim fin
pir = request.QueryString("var")
dim sql
set rs = server.CreateObject("ADODB.Recordset")
sql = "select * from ultima where id_ult= "& pir
rs.open sql, conn 
do while not rs.eof
	response.Write "</br></br>"
	response.Write "<p class=""ulu"" ><H2>" & rs("titulo") & "</H2></p>"
	response.Write "<p class=""ulu"" ><h3>" & rs("subtitulo") & "<h3></p>"
	response.Write "<p class=""ulu"" ><h4>" & rs("fecha") & "<h4></p>"
	response.Write "<p class=""ulu"" >" & rs("texto") &" </p>"
	response.Write "</br></br>"
	response.Write("<p><hr><p>")
	rs.movenext
loop
rs.close
%>

<%
if Session("Username") <> "" then
	response.Write("<form name='comm' action='cargacomentario.asp?fin="&  pir & "'>")
	response.Write("<center>Comentà La noticia<textarea name='comentario' style='width:500px; height:150px' title='Comentà Noticia'>			</textarea>")
	response.Write("<br /><br />")
	response.Write("<input type='submit' value='Cargà Comentario' />")
	response.Write("</center>")
	response.Write("</form>")
else
	response.Write("Accedè al sito para comentar las noticias!! No estàs registrado?<a href='registrate.asp' target='iframe'>Registrate!!</a>")	
end if	
%>
</div>
<div class="comento">

<%
' carga todos los comentarios de esta noticia
sql = "select * from comentarios, datos_usuario, ultima where ultima.id_ult = comentarios.id_ult"
rs.open sql, Conn 
do while not rs.eof
	response.Write "</br></br>"
	response.Write "<p>El dia "& rs("comentarios.fecha_com") & " " & rs("datos_usuario.nombre") & "dijo</p>"
	response.Write "<p>" & rs("comentarios.comentario") & "</p>"
	response.Write("<p><hr><p>")
	rs.movenext
loop
rs.close
%>
</div>
</body>
</html>
pagina che riceve
Codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="DbConnection.asp"--> 
<!--#include virtual="adovbs.inc"-->
<link href="formattazione.css" rel="stylesheet" type="text/css">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento senza titolo</title>
</head>
<% 
ult = request.QueryString("fin")
if Session("Username") <> ""  then
Call carga_comentario()
else
response.redirect("noticia.asp?pir=" &ult)
end if
%>
<body>

</body>
</html>
<%

Sub carga_comentario()
dim ult
ult = request.QueryString("fin")
response.Write(ult)
'dim usr
'dim sql_a, sql_b, sql_c
'set rs = server.CreateObject("ADODB.Recordset")
'sql_a = "select id_usr from datos_usuario where username = '"& Session("Username") & "'"
'rs.open sql_a , Conn
'do while not rs.eof
'	usr = rs("id_usr")
'	rs.movenext
'loop
'sql_b = "insert into comentarios (id_usr,id_ult, comentario, fecha_com) values ("& usr & "," & ult & ",'" & request.Form("comentario") &' "',getdate());"
'response.Write(sql_b)
'Conn.execute(sql_b)
'Conn.close
'set Conn = nothing
end sub
%>
Dovrebbe stampare la variabile eppure non stampa nulla

Dov'è l'errore?

potete provare il risultato proprio andando su http://forum.mrwebmaster.it/asp/www.regresoyoruga.com
entrate come 'albe' e passwd 'shangrila' poi andate su "La Ultima" e ci saranno le notizie, andate poi su "ver noticia entera" e commentate ed inviate...la pagg successiva non conterrà nulla
 
Ultima modifica: