Problemi textarea

[dolores]

Salve a tutti, ho creato un form con 3 pagine, funzionava tutto, appena ho aggiunto una textarea, non funziona più, spero possiate aiutarmi:

form.htm:
<tr>
<td height="1" align="left" valign="top"><div align="right">Maggiori Informazioni </div></td>
<td align="left"><label>
<textarea name="messaggio" cols="40" rows="20"></textarea>
</label> </td></tr>

riepilogo.asp:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Messaggio
Messaggio = Request.Form("Messaggio")
<input type="hidden" name="Messaggio" value="<%=Request.Form("Messaggio") %>"/>
<% if (Request.Form("Messaggio") <> "") then
%><tr>
<td width="398">Maggiori Informazioni</td>
<td width="184"><%=Request.Form("Messaggio") End If
%></td>
</tr>

invio.asp:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Dim Citta, Messaggio, Body

Messaggio = Request.Form("Messaggio")

Body = "<font face=verdana size=2>Questi i dati inseriti nella scheda informazioni:<br> " & Citta & " </b><br />" & Messaggio &"</b><br />

Grazie

 

[alessandro1997]

Prova a modificare riepilogo.asp così:

<tr>
<td height="1" align="left" valign="top"><div align="right">Maggiori Informazioni </div></td>
<td align="left"><label>
<textarea name="messaggio" cols="40" rows="20"></textarea>
</label> </td></tr>

riepilogo.asp:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Messaggio
Messaggio = Request.Form("Messaggio")
%>
<input type="hidden" name="Messaggio" value="<%=Request.Form("Messaggio") %>"/>
<% if (Request.Form("Messaggio") <> "") then
%><tr>
<td width="398">Maggiori Informazioni</td>
<td width="184"><%=Request.Form("Messaggio") End If
%></td>
</tr>

 

[Paolo69]

Ho notato questa incongruenza:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Messaggio
Messaggio = Request.Form("Messaggio")
<input type="hidden" name="Messaggio" value="<%=Request.Form("Messaggio") %>"/>
<% if (Request.Form("Messaggio") <> "") then %>
[B]<tr>
<td width="398">Maggiori Informazioni</td>
<td width="184"><%=Request.Form("Messaggio") End If
%>[/B]</td>
</tr>

In pratica la condizione "If" inizia dal TR e finisce con il TD, poi mai mettere "<%= .... End If %>".

Prova così:

<%
    Dim Messaggio
          Messaggio = Request.Form("Messaggio")
%>
<input type="hidden" name="Messaggio" value="<%=Messaggio %>"/>
<% 
    If  Messaggio <> "" then 
%>
<tr>
<td width="398">Maggiori Informazioni</td>
<td width="184"><%=Messaggio%></td>
</tr>
<%
    End If
%>