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"
%>

Rispondi quotando
