Effettivamente c'è qualche errore.
Per prima cosa assicurati che il tuo piano di hosting ti permetta di utilizzare l'oggetto Persits.MailSender.
In alternativa utilizza l'oggetto CdoSys o l'oggetto CdoNts
Qui ti sei dimenticata di uno spazio :
SetMail= Server.CreateObject("Persits.MailSender")
Diventa così:
Set Mail= Server.CreateObject("Persits.MailSender")
Mancano dei campi:
Mail.Host = "**smtp.dominio.it**" ' smtp del tuo dominio
Mail.From = "**
[email protected]**" ' indirizzo di chi invia l'email
Questo non è corretto:
Mail.Address="[email protected]" Diventa così:
Mail.Address "
[email protected]"
Questo proprio non lo capisco, perchè prima dici che la variabile messaggio= Request.Form ("messaggio") poi diventa messaggio="nome:"; praticamente la riga prima è inutile :D:
messaggio="nome:"
sMailBody=sMailBody&messaggio&nome&vbcrlf
sMailBody=sMailBody&messaggio&cognome&vbcrlf
sMailBody=sMailBody&messaggio&society&vbcrlf
sMailBody=sMailBody&messaggio&telefono&vbcrlf
sMailBody=sMailBody&messaggio&fax&vbcrlf
sMailBody=sMailBody&messaggio&messaggio&vbcrlf
Presumo che volevi fare + o - così:
sMailBody = "Nome: " & nome & vbcrlf
sMailBody = sMailBody & "Cognome: " & cognome & vbcrlf
sMailBody = sMailBody & "Società: " & society & vbcrlf
sMailBody = sMailBody & "Telefono: " & telefono & vbcrlf
sMailBody = sMailBody & "Fax: " & fax & vbcrlf
sMailBody = sMailBody & "Messaggio: " & messaggio
Il resto è ok.
Per chiarezza ti scrivo il codice senza interruzioni:
Dim nome, cognome, society, telefono, messaggio
nome = Request.Form ("nome")
cognome = Request.Form ("cognome")
society = Request.Form ("society")
fax = Request.Form ("fax")
telefono = Request.Form ("telefono")
messaggio = Request.Form ("messaggio")
Dim Mail
Dim sMailBody
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "**smtp.dominio.it**" ' smtp del tuo dominio
Mail.From = "**
[email protected]**" ' indirizzo di chi invia l'email
Mail.Address "
[email protected]"
Mail.Oggetto = "Messaggio dal sito"
sMailBody = "Nome: " & nome & vbcrlf
sMailBody = sMailBody & "Cognome: " & cognome & vbcrlf
sMailBody = sMailBody & "Società: " & society & vbcrlf
sMailBody = sMailBody & "Telefono: " & telefono & vbcrlf
sMailBody = sMailBody & "Fax: " & fax & vbcrlf
sMailBody = sMailBody & "Messaggio: " & messaggio
Mail.Body = sMailBody
Mail.Send
Set Mail = Nothing
