Ciao a tutti,
premetto che di ASP non so proprio nulla e non so se sono nella sezione giusta.
Vi chiederei gentilmente, se è possibile, un aiuto su un modulo di contatti in ASP per l'invio di mail da un mio sito. Ho dovuto convertire il modulo da CDONTS a CDOSYS, e già questo non mi ha dato pochi problemi...
Con il precedente formato (CDONTS), riuscivo a far comparire, dopo l'invio della mail, una pagina di conferma che il messaggio era stato inviato con successo.
Ora, con il modulo in formato CDOSYS, il server mi da questo messaggio di errore:
Microsoft VBScript compilation error '800a0400'
Expected statement
/contatti/contattimodifica.asp, line 60
End select
Se è di aiuto, posto tutto il codice:
<%@ Language = "VBScript" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Set oMail = Server.CreateObject("CDO.Message")
Set oMailConfig = Server.CreateObject ("CDO.Configuration")
on error resume next
'Set variables
Dim BackURL
Dim strName
Dim strEmail
Dim strSubject
Dim strMessage
Dim strUserIP
Dim strToEmail
Dim daCdoMail
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oMailConfig.Fields.Update
strToEmail = "info@miosito.it"
BackURL = Request.ServerVariables("HTTP_REFERER")
strName = Request.form("Name")
strEmail = Request.form("Email")
strSubject = Request.form("Subject")
strMessage = Request.form("Message")
strUserIP = Request.ServerVariables("REMOTE_ADDR")
Set oMail.Configuration = oMailConfig
oMail.From = strEmail
oMail.To = strToEmail
oMail.Subject = strSubject
oMail.HTMLBody = "Questo messaggio è stato spedito da"
If strToEmail = "" OR strEmail = "" Then
Session("msg") = "Il campo Email è vuoto. Il messaggio non può essere spedito. Per cortesia, riprovare."
Response.redirect (BackURL)
Else
oMail.Send
End If
Set oMail = Nothing
Session("MsgSent") = "Messaggio inviato con successo, verrete contattati al più presto. Grazie."
'Redirect and show the result
Response.redirect (BackURL)
End select
%>
Se tolgo le ultime due parti Session("msg") e Session ("MsgSent"), ricevo la mail senza alcun problema.
Vi ringrazio anticipatamente.
Rispondi quotando
