<%
invia = request.querystring("invia")
if invia = "ok" then
if InStr(request.form("email"),".")=0 OR InStr(request.form("email"),"@")=0 then
%>
Inserire una mail valida!
<%
else
'costanti invio email
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoImportance = "urn:schemas:httpmail:importance"
Set objMail = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")
With objConf.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
'se la mail non viene inviata, impostare l'SMTP del provider
'che fornisce la connessione a internet, es: mail.tin.it
.Item(cdoSMTPServer) = "localhost"
.Update
End With
With objMail
' Valore di priorità
objMail.Fields(cdoImportance).Value = 2
'inserisce la richiesta di conferma di lettura a uno specifico destinatario
'può non coincidere con il mittente
objMail.Fields("urn:schemas:mailheader:Disposition-Notification-To").Value = request.form("email")
objMail.Fields.update() 'va chiamato se si modifica l'header
set .Configuration = objConf
.From = request.form("email")
.To = "info@barbellaceramiche.it"
.Subject = uCase(request.form("nome")) & " cerca informazioni."
.HTMLBody = request.form("testo")
'.Textody = "ciao"
'.AddAttachment("c:\file.txt") ' eventuali allegati
.Send()
End With
set objConf = nothing
set objMail = nothing
%>
Email inviata!
<%
end if
end if
%>