non riesco a capire come mai in questo modulo per contatti tramite sito web, la parte che riguarda la richiesta di informazioni (messaggio) da parte dell'utente non mi viene inviata.
Tutti gli altri campi (nome, telefono, email, eccc) vengono regolarmente "stampati" nella mail che arriva all'indirizzo che ho configurato tranne la parte dove l'utente può scrivere un commento o un messaggio.
Prima di far inviare il form, ho messo un javascript che mi fa il controllo dei vari campi.
Il modulo è il seguente:
pagina in html dei contatti:
<TABLE border=0 align=center cellpadding="1" cellspacing="0">
<FORM name=modulo method=post>
<TBODY>
<TR>
<TD><font color="#475C77">Nome</font></TD>
<TD><INPUT name=nome class="txt"></TD>
</TR>
<TR>
<TD><font color="#475C77">Cognome/Ragione Sociale</font></TD>
<TD><INPUT name=cognome class="txt" ></TD>
</TR>
<TR>
<TD><font color="#475C77">Data di nascita (es: 12/04/1978)</font></TD>
<TD><INPUT name=nascita class="txt"></TD>
</TR>
<TR>
<TD><font color="#475C77">Città</font></TD>
<TD><input type="text" name="citta" class="txt"> </TD>
</TR>
<TR>
<TD><font color="#475C77">Indirizzo</font></TD>
<TD><INPUT name=indirizzo class="txt"></TD>
</TR>
<TR>
<TD><font color="#475C77">Telefono (senza spazi nè simboli)</font></TD>
<TD><INPUT name=telefono class="txt"></TD>
</TR>
<TR>
<TD><font color="#475C77">Email</font></TD>
<TD><INPUT name=email class="txt"></TD>
</TR>
<TR>
<TD><font color="#475C77">Messaggio</font></TD>
<TD align=middle colSpan=2><TEXTAREA name=messaggio rows=5 cols=32 class="txt"></TEXTAREA>
</TD>
</TR>
<TR valign="middle">
<TD height="25" colSpan=2 align=right> <div align="left"><font color="#475C77" size="2">*Tutti
i Campi sono Obbligatori</font></div></TD>
</TR>
<TR align="center" valign="bottom">
<TD height="75" colSpan=2> <div align="center">
<INPUT onclick=Modulo() type=button value=Invia class="sub">
</p>
</p>
</div></TD>
</TR>
</FORM>
</TABLE>
script in asp:
<%
DIM corpoMessaggio, numeroCampi, invioA, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
invioA = "mia@mail.it"
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'*rilevo i campi del form
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "server.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('grazie.htm');
</script>