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"> <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(" <hr> ") 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(" ") 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?Registrate!!") 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 " El dia "& rs("comentarios.fecha_com") & " " & rs("datos_usuario.nombre") & "dijo</p>" response.Write " " & rs("comentarios.comentario") & "</p>" response.Write(" <hr> ") rs.movenext loop rs.close %> </div> </body> </html>
pagina che riceve
Dovrebbe stampare la variabile eppure non stampa nullacodice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <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 %>
Dov'è l'errore?
potete provare il risultato proprio andando su 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
Rispondi quotando
