Ciao a tutti...
avreibisogno di un aiutino....ho questo codice...nn capisco cosa c'è che nn va....
qlc mi puo' aiutare???
grazie in anticipo!!!



<%
Dim IP
IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP="" Then
IP=Request.ServerVariables("REMOTE_ADDR")
End If



mittente = "info@sito.it"

'------------------------------------------------------------------------
'------------------------------------------------------------------------

messaggio = "Nome: " & ("nome") & vbCrLf &_

"Cognome: " & ("cognome") & vbCrLf &_

"Azienda: " & ("azienda") & vbCrLf &_

"Indirizzo: " & ("indirizzo") &vbCrLf &_

"Telefono: " & ("telefono") & vbCrLf &_

"Fax: " & ("fax") & vbCrLf &_

"Email: " & ("email") & vbCrLf


messaggio = messaggio & "Informazioni: " & ("message")
'Invio email
Set Mail = Server.CreateObject("CDO.Message")
Mail.To = mittente
Mail.From = ("email")
Mail.Subject = "Richiesta informazioni"
Mail.TextBody = messaggio
Mail.Send()
Set Mail = nothing



response.redirect "risposta.html"


%>