|
<%
If Request.form("Nome") = "" then
%>
<%
Else
'--- Spedisce email
Dim strBody , strTelef, strError , strTo
' Funzione SendEmail
Const SMTP_SERVER="smtp.akmail.it"
'--------------------------------------------------------------------
'SendEmail:
'Try to send given email using CDO component.
'Returns empty string in case of success or error message in case of error.
'--------------------------------------------------------------------
Function SendEmail(strEmailTo, strEmailFrom, strEmailSubject, strEmailBody, arrAttachments)
'declare variables
Dim objMessage 'object for sending email
Dim objConf 'object for configuration of email settings
Dim x 'loop iterator
'define default return value:
SendEmail=""
'create objects:
Set objMessage=Server.CreateObject("CDO.Message")
Set objConf=Server.CreateObject("CDO.Configuration")
'define settings:
If Len(SMTP_SERVER)=0 Then
objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=1
Else
objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'cdoSendUsingPort
End If
objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")=Server.MapPath("/")
If Len(SMTP_SERVER)>0 Then
objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")=SMTP_SERVER
End If
objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
objConf.Fields.Update
'apply settings:
Set objMessage.Configuration=objConf
'build message details:
objMessage.To=strEmailTo
objMessage.From=strEmailFrom
objMessage.Subject=strEmailSubject
objMessage.HtmlBody=strEmailBody
If IsArray(arrAttachments) Then
For x=0 To UBound(arrAttachments)
objMessage.AddAttachment arrAttachments(x)
Next
End If
'catch errors and try to send:
On Error Resume Next
objMessage.Send
If Err.Number<>0 Then
SendEmail=Err.Description
Err.Clear
End If
On Error Goto 0
'done, clear objects from the memory:
Set objMessage=Nothing
Set objConf=Nothing
End Function
'--- Spedisce email
strTelef = Request.Form("Telefonare")
strBody = "Form Richiesta informazioni corsi " & _
" " & _
"| Nome | " & Request.Form("Nome") & " | " & _
"| Cognome | " & Request.Form("Cognome") & " | " & _
"| Azienda | " & Request.Form("Azienda") & " | " & _
"| Indirizzo | " & Request.Form("Indirizzo") & " | " & _
"| Citta | " & Request.Form("Citta") & " | " & _
"| Cap | " & Request.Form("Cap") & " | " & _
"| Telefono | " & Request.Form("Telefono") & " | " & _
"| Cellulare | " & Request.Form("Cellulare") & " | " & _
"| E-mail | " & Request.Form("Email") & " | " & _
"| Nato a | " & Request.Form("LNascita") & " | " & _
"| Nato il | " & Request.Form("DNascita") & " | " & _
" " & _
"Corsi Selezionati:
" & _
" " & _
"| Nuove Professioni | " & Request.Form("Corso0") & " | " & _
"| Ufficio | " & Request.Form("Corso1") & " | " & _
"| Grafica | " & Request.Form("Corso2") & " | " & _
"| Internet | " & Request.Form("Corso3") & " | " & _
"| Programmazione | " & Request.Form("Corso4") & " | " & _
"| Crescita | " & Request.Form("Corso5") & " | " & _
"| Altre | " & Request.Form("Corso6") & " | " & _
"| Provenienza | " & Request.Form("Provenienza") & " | " & _
"| Telefonare | " & strTelef & " | " & _
"| Accetto | " & Request.Form("Accetta_Privacy") & " | " & _
"| Messaggio | " & Request.Form("Note") & " | " & _
" "
strError = SendEmail( "Informaticasud" , "Sito" , "Richiesta informazioni corsi" , strBody , "" )
if Len(strError) <> 0 Then
Response.write "Invio non riuscito :" & Err.description
Else
Response.write "OK. Invio riuscito "
End if
If strTelef = "ON" then
strBody = "Salve " & Request.Form("Nome") & ", " & _
"grazie per averci contattato. " & _
"Abbiamo ricevuto la Tua richiesta di informazioni,al più presto
" & _
"sarai contattato telefonicamente da un nostro operatore. " & _
"Se vuoi ricevere ulteriori informazioni sono a tua disposizione. A presto! " & _
"cordiali saluti. " & _
"
" & _
" | " & _
" Responsabile corsi
" & _
" Valentina Corsaro
" & _
"e-mail:corsi@informaticasud.it " & _
" Informatica sud s.r.l.
" & _
" Tel./Fax. 095 213410
" & _
" e-mail:info@informaticasud.it
" & _
" www.informaticasud.it " & _
" | " & _
"
" & _
"Avviso importante :
" & _
"le informazioni contenut nella presente comunicazione e nei relativi
" & _
"allegati posso essere riservate e sono, comunque, destinate alle persone e
" & _
"alla Societa' sopraindicati.
" & _
"La diffusione, distribuzione e/o copiatura del documento trasmesso da parte
" & _
"di qualsiasi soggetto diverso dal destinatario e' proibita, sia ai sensi
" & _
"dell'art. 616 c.p., che ai sensi del D.L.gs. N. 196/2003.
" & _
"Se avete ricevuto questo messaggio per errore, Vi preghiamo di distruggerlo
" & _
"e di informarci immediatamente inviando un messaggio all'indirizzo mail :
" & _
"corsi@informaticasud.it
" & _
"Informativa Privacy: http://www.informaticasud.it/privacy.html"
strTo = Request.Form("Nome") & " " & Request.Form("Cognome") & "<" & Request.Form("Email") & ">"
strError = SendEmail( strTo , "Informaticasud" , "RE: Richiesta informazioni corsi" , strBody , "" )
if Len(strError) <> 0 Then
Response.write "Invio non riuscito :" & Err.description
Else
Response.write "OK. Invio riuscito "
End if
Response.redirect "index.html"
else
strBody = "Salve " & Request.Form("Nome") & ", " & _
"grazie per averci contattato. " & _
"Abbiamo ricevuto la Tua richiesta di informazioni,al più presto
" & _
"sarai contattato tramite e-mail da un nostro operatore. " & _
"Se vuoi ricevere ulteriori informazioni sono a tua disposizione. A presto! " & _
"cordiali saluti. " & _
"
" & _
" | " & _
" Responsabile corsi
" & _
" Valentina Corsaro
" & _
"e-mail:corsi@informaticasud.it " & _
" Informatica sud s.r.l.
" & _
" Tel./Fax. 095 213410
" & _
" e-mail:info@informaticasud.it
" & _
" www.informaticasud.it " & _
" | " & _
"
" & _
"Avviso importante :
" & _
"le informazioni contenut nella presente comunicazione e nei relativi
" & _
"allegati posso essere riservate e sono, comunque, destinate alle persone e
" & _
"alla Societa' sopraindicati.
" & _
"La diffusione, distribuzione e/o copiatura del documento trasmesso da parte
" & _
"di qualsiasi soggetto diverso dal destinatario e' proibita, sia ai sensi
" & _
"dell'art. 616 c.p., che ai sensi del D.L.gs. N. 196/2003.
" & _
"Se avete ricevuto questo messaggio per errore, Vi preghiamo di distruggerlo
" & _
"e di informarci immediatamente inviando un messaggio all'indirizzo mail :
" & _
"corsi@informaticasud.it
" & _
"Informativa Privacy: http://www.informaticasud.it/privacy.html"
strTo = Request.Form("Nome") & " " & Request.Form("Cognome") & "<" & Request.Form("Email") & ">"
strError = SendEmail( strTo , "Informaticasud" , "RE: Richiesta informazioni corsi" , strBody , "" )
if Len(strError) <> 0 Then
Response.write "Invio non riuscito :" & Err.description
Else
Response.write "OK. Invio riuscito "
End if
Response.redirect "index.html"
End if
End if
%>
|