Salve a tutti, ho creato un form con 3 pagine, ma non mi funziona, qualcuno potrebbe dirmi dove è l'errore? Tutto funzionava ho aggiunto una textarea e non funziona più, sicuramente sarà un errore nella pagina riepilogo:
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:
<%
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"%>
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%
Dim Nome, Azienda, Settore, NumeroTelefono, Mobile, EMail
Dim Fax, Indirizzo, Numero
Dim Citta, Cap, Privacy, Sesso, Messaggio, Body
Nome = Request.form("Nome")
Azienda = Request.Form("Azienda")
Settore = Request.Form("Settore")
NumeroTelefono = Request.Form("Telefono")
Mobile = Request.Form("Mobile")
EMail = Request.Form("Mail")
Fax = Request.Form("Fax")
Indirizzo = Request.Form("Indirizzo")
Numero = Request.Form("Numero")
Citta = Request.Form("Citta")
Cap = Request.Form("Cap")
Sesso = Request.Form("Sesso")
Messaggio = Request.Form("Messaggio")
Privacy = Request.Form("Privacy")
Dim nomedominio, indirizzoIp, modulo, browserSistemaOperativo
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
Body = "<font face=verdana size=2>Questi i dati inseriti nella scheda informazioni:<br> " & nome & " </b><br />" & Azienda &"</b><br /> " & Settore & " </b><br />" & NumeroTelefono &"</b><br /> " & Mobile &"</b><br /> " & EMail &"</b><br /> " & Fax &"</b><br /> " & Indirizzo &"</b><br /> " & Numero &"</b><br /> " & Citta &"</b><br /> " & Cap &"</b><br /> "& Sesso &"</b><br /> " & Messaggio &"</b><br /> "& Privacy &"</b><br />"
' Info server
strMessage = "Email address is empty. Cannot send email."
cSmtpServer = "smtp.aruba.it"
cSmtpPort = "25"
cSMTPUser = ""
cSMTPPassword = ""
' Windows XP / 2003
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Richiesta Informazioni dal dominio " & nomeDominio
myMail.From = "schedainformazioni@liaspallino.it"
myMail.To = "cicognetta1981@libero.it;nadiamatteo.ag@libero.it" ' Destinatario
' myMail.bCC = "" 'destinatario nascosto
' Corpo messaggio
myMail.HTMLBody= "<font face=verdana size=2>Questi i dati inseriti nel Scheda Informazioni presente alla pagina <b> " & modulo & " </b><br />da utente con indirizzo IP <b>" & indirizzoIp & " </b><br />browser e sistema operativo <b>" & browserSistemaOperativo & "</b><br>" & Body
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= cSmtpServer
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= cSmtpPort
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = cSMTPPassword
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = cSMTPUser
myMail.Configuration.Fields.Update
myMail.Send
Set myMail = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Invio</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
Le informazioni sono state spedite correttamente
</body>
</html>
Sviluppare applicazioni web mobile con HTML5 e jQuery mobile