posto il codice esatto di entrambe le pagina ... possibile che io abbia le fette di prosciutto negli occhi ...![]()
Pagina che visualizza il messaggio
Invece questa è la pagina che serve per rispondere al messaggio sopra visualizzato e mi fa vedere, oltre al form di inserimento, anche il testo del messaggio a cui devo risponderecodice:<%@ LANGUAGE = VBScript %> <% pm_id = Request.QueryString("pm_id") 'aggiorno lo stato del messaggio: rs_modify_sql = "UPDATE PRIVATE_MESSAGE SET PM_LETTO=1 WHERE PM_ID=" & pm_id set rs_modify = oConn.Execute(rs_modify_sql) 'seleziono i messaggi privati rs_pm_sql = "SELECT * FROM PRIVATE_MESSAGE WHERE PM_ID=" & pm_id set rs_pm = oConn.Execute(rs_pm_sql) %> <html> <head> <title><%=title%></title> <link href="<%=path_intranet%>/style.css" rel="stylesheet" type="text/css"> </head> <body> <table width="768" border="0" cellpadding="0" cellspacing="0"> <tr> <td> <table width="100%" cellspacing="1" cellpadding="0"> <tr> <td bgcolor="#F6F6F6"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="2"> </td> </tr> <tr> <td width="82%" height="20"> </td> <td width="132" rowspan="2"> </td> </tr> <tr> <td valign="top"> <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#CCCCCC"> <form action="form_rispondi_pm.asp" name="pmForm" method="post"> <table width="100%" border="0" cellspacing="1" cellpadding="3"> <tr bgcolor="#ECECEC"> <td width="18%">autore</td> <td width="49%">messaggio</td> </tr> <tr> <td><%=rs_pm("PM_MITTENTE_NOME")%></td> <td><%=rs_pm("PM_TITOLO")%> <%=rs_pm("PM_TESTO")%></td> </tr> <tr><td><%=rs_pm("PM_DATA")%></td> <td> <input type="hidden" name="pm_id" value="<%=rs_pm("PM_ID")%>"> <input type="hidden" name="id_mittente_pm" value="<%=rs_pm("PM_MITTENTE_ID")%>"> <input type="hidden" name="nome_mittente_pm" value="<%=rs_pm("PM_MITTENTE_NOME")%>"> <input type="hidden" name="id_dest_pm" value="<%=rs_pm("PM_UT_FK")%>"> <input type="hidden" name="titolo_pm" value="<%=setting(rs_pm("PM_TITOLO"))%>"> <input type="hidden" name="pm_testo" value="<%=rs_pm("PM_TESTO")%>"> <input type="hidden" name="pm_data" value="<%=rs_pm("PM_DATA")%>"> <input type="image" src="<%=path_intranet%>/images/rispondi.gif"> <a href="delete_pm.asp?pm_id=<%=pm_id%>"> [img]<%=path_intranet%>/images/cancella.gif[/img] </a></td> </tr> </table> </form> </td> </tr> </table> </td> </tr> </table> </td> </tr> <tr><td colspan="2">[img]<%=path_intranet%>/images/space.gif[/img]</td></tr> </table> </td> </tr> </table> </td> </tr> </table> </body> </html>
Naturalmente il response Write non visualizza un fico secco ...codice:<% pm_id = Request.Form("pm_id") id_mittente_pm = Request.Form("pm_id") nome_mittente_pm = setting(Request.Form("nome_mittente_pm")) id_dest_pm = Request.Form("id_dest_pm") titolo_pm = setting(Request.Form("titolo_pm")) pm_testo = setting(Request.Form("pm_testo")) pm_data = Request.Form("pm_data") 'seleziono i messaggi privati rs_pm_sql = "SELECT * FROM PRIVATE_MESSAGE WHERE PM_ID=" & pm_id set rs_pm = oConn.Execute(rs_pm_sql) Response.Write("testo: " & pm_testo) %>![]()


Rispondi quotando
