Ciao a tutti
vi mostro lo script
<%
Dim MiaMail, strIp
Set MiaMail = CreateObject("CDO.Message")
strIp = Request.ServerVariables("REMOTE_ADDR")
MiaMail.From = request.form("nome")
MiaMail.From = request.form("indirizzo")
MiaMail.From = request.form("citta")
MiaMail.From = request.form("telefono")
MiaMail.From = request.form("tipo")
MiaMail.From = request.form("provincia")
MiaMail.From = request.form("comune")
MiaMail.From = request.form("tipoimmobile")
MiaMail.From = request.form("prezzomin")
MiaMail.From = request.form("prezzomax")
MiaMail.From = request.form("info")
MiaMail.From = request.form("cognome")
MiaMail.To = "info@xxxx.com"
MiaMail.Subject = "FORM RICHIESTA INFORMAZIONE"
MiaMail.TextBody = request.form("richiesta")& vbCrlf &_
vbCrlf &_
("Questa e-mail è stata inviata il: ") & Now() & vbCrlf &_
("da: ") & ("NOME e COGNOME: ") & request.form("nome") & " " &request.form("cognome") & vbCrlf &_
("INDIRIZZO: ") & request.form("indirizzo") & vbCrlf &_
("CITTA: ") & request.form("citta") & vbCrlf &_
("TEL: ") & request.form("telefono") & vbCrlf &_
("TIPO: ") & request.form("tipo") & vbCrlf &_
("PROVINCIA: ") & request.form("provincia") & vbCrlf &_
("COMUNE: ") & request.form("comune") & vbCrlf &_
("TIPO IMMOBILE: ") & request.form("tipoimmobile") & vbCrlf &_
("PREZZO MIN: ") & request.form("prezzomin") & vbCrlf &_
("PREZZO MAX: ") & request.form("prezzomax") & vbCrlf &_
("INFO: ") & request.form("info") & vbCrlf &_
("l'indirizzo IP è: ") & strIp & vbCrlf
'("data ed ora di invio: ") & ("Now()") & vbCrlf
MiaMail.Send()
Set MiaMail = Nothing
%>
Premetto che il provider è aruba
Quando inserisco come email di destinazione il nome di dominio di posta il form arriva nelle email.
Quando inserisco come email di destinazione ad esempio tiscali libero non arriva
MiaMail.To = "info@xxxx.com"
X che ?????
Fatemi sapere.
Rispondi quotando
