Ciao a tutti...
un aiutino...
come mai con questo codice non mi manda nessuna mail....anche se non mi da errori???
__________________________________________________ ___________________
<html>
<head>
<title>Contatti</title>
<META HTTP-EQUIV="Refresh" CONTENT="8; URL=http://www.mysite.it">;
</head>
<body bgcolor="#ffffff">
<div align="center">
<%
toWho = "my@mysite.it"
data = right("0"&day(noW),2)&"/"&right("0"&month(now),2)&"/"&year(now)
ora = right("0"&hour(now),2)&":"&right("0"&minute(now),2 )
' corpo= "<html>"
corpoTestata="<font size=""2"" color=""#000000"" face=""Verdana"">"
corpoTestata=corpoTestata& "Messaggio di contatti inviato dal Sito Internet (www.mysite.it).
;"
corpoTestata=corpoTestata& "Data: " &data& " - Ora: " & ora&""
corpoTestata=corpoTestata& "</font>
"
corpo=corpo& "<font size=""2"" color=""#000000"" face=""Tahoma""> Nome: " &Request("Nome")&"</font>
"
corpo=corpo& "<font size=""2"" color=""#000000"" face=""Tahoma""> Cognome: " &Request("Cognome")&"</font>
"
corpo=corpo& "<font size=""2"" color=""#000000"" face=""Tahoma""> Indirizzo: " &Request("Indirizzo")&"</font>
"
corpo=corpo& "<font size=""2"" color=""#000000"" face=""Tahoma""> Località: " &Request("Localita")&"</font>
"
corpo=corpo& "<font size=""2"" color=""#000000"" face=""Tahoma""> Cap: " &Request("Cap")&"</font>
"
corpo=corpo& "<font size=""2"" color=""#000000"" face=""Tahoma""> Provincia: " &Request("Provincia")&"</font>
"
corpo=corpo& "<font size=""2"" color=""#000000"" face=""Tahoma""> Telefono: " &Request("Telefono")&"</font>
"
corpo=corpo& "<font size=""2"" color=""#000000"" face=""Tahoma""> Fax: " &Request("Fax")&"</font>
"
corpo=corpo& "<font size=""2"" color=""#000000"" face=""Tahoma""> E-mail: " &Request("email")&"</font>
"
corpo=corpo& "<font size=""2"" color=""#000000"" face=""Tahoma""> Messaggio: " &Request("Messaggio")&"</font>
"
subject = "E-mail dal sito www.mysite.it"
response.write "<Body>"
Sub invio_email(strFrom, strTo, strBcc, strSubject, strBody)
Dim mail
Set mail = Server.CreateObject("CDO.Message")
mail.From = "my@mysite.it"
mail.To = toWho
mail.Subject = subject
mail.textBody = corpoTestata & corpo
mail.Send
Set mail = nothing
End sub
%>
<center>
<font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif">www.mysite.it
;
Contatti</font><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<font size="2" color="#000000">Grazie per averci scritto.</font>
<a href="http://www.mysite.it"><font color="#811411" size="3">
Homepage</font></a></font>
</div>
</body>
</html>
Rispondi quotando
VVoVe: 