Volevo dire as...e questa la pagina asp:
e grazie.
<%@ Language=VBScript %>
<%
' dichiaro alcuni variabili
Dim iMsg
Dim iConf
Dim Flds
Dim strTosend
Dim strNome
Dim strCognome
Dim strIndirizzo
Dim strEmail
Dim strNote
Dim strMessage
Dim strOggetto
' strTosend è la variabile che memorizza l’email del destinatario (es. email del nostro cliente)
strTosend="fbarillaro@hotmail.com"
' l’oggetto del nostra email
strOggetto="Invio informazioni"
' recupero il nome dell’utente con Request(nome_proprietà_oggettoflash)
strNome=Request("nome")
' recuperp il cognome
strCognome= Request("cognome")
' recupero l’email
strEmail= Request("email")
' recupero l’indirizzo
strIndirizzo=Request("indirizzo")
' recupero il messaggio note
strNote= Request("note")
' vado a comporre il messaggio che il destinatario riceverà nella sua casella email
' vbcrlf è il carattere speciale che aggiunge un ritorno a capo
strMessage="Nome: "&strNome&vbcrlf
strMessage=strMessage&"Cognome: "&strCognome&vbcrlf
strMessage=strMessage&"Email: "&strEmail&vbcrlf
strMessage=strMessage&"Messaggio: "&strNote&vbcrlf
' creo gli oggetti necessari per l’invio dell’email
' queste righe possono cambiare in relazione al provider
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
With iMsg
Set .Configuration = iConf
.To = strTosend
.From = strEmail
.Subject = strOggetto
.TextBody=strMessage
.Send
End With
' alla fine del send recuperiamo la variabile err.number che identifica un numero di errore
' se esiste un numero di errore vuol dire che err.numer è true quindi c’è stato un errore altrimenti ‘error risulterebbe false
if err.number then
Response.Write "error=true"
else
Response.Write "error=false"
end if
%>
