Ciao a tutti,
ho un problema e non riesco a venirne fuori.
Allora ho un script tra flash/asp per l'invio dell'email dal sito che montato su un serrver aruba non dà problemi.
Monto il medesimo script in uno spazio consultingweb e mi dà come esito "invio riuscito"..ma non ricevo nulla.
Ho controllato sul sito consultingweb ma non capisco come poter adattare lo script alle loro esigenze
quello che ho io è questo:
<%@ Language=VBScript %>
<%
Dim iMsg
Dim iConf
Dim Flds
Dim strTosend
Dim strNome
Dim strCognome
Dim strIndirizzo
Dim strEmail
Dim strNote
Dim strMessage
Dim strOggetto
strTosend="prova@prova.it"
strOggetto="Invio informazioni"
strNome=Request("nome")
strCognome= Request("cognome")
strEmail= Request("email")
strIndirizzo=Request("indirizzo")
strNote= Request("note")
strMessage="Nome: "&strNome&vbcrlf
strMessage=strMessage&"Cognome: "&strCognome&vbcrlf
strMessage=strMessage&"Email: "&strEmail&vbcrlf
strMessage=strMessage&"Messaggio: "&strNote&vbcrlf
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
if err.number then
Response.Write "error=true"
else
Response.Write "error=false"
end if
%>
Rispondi quotando
