%@ LANGUAGE="VBScript"%>
<%
' Imposta l'indirizzo e-mail del mittente
senderMsg = Request.Form("msg_sender")
' Imposta l'indirizzo e-mail del destinatario
recipientMsg = Request.Form("msg_recipient")
If Request.Form.Count > 0 Then
' Elaborazione dati e invio del messaggio e-mail
For i = 1 To Request.Form.Count
bodyMsg = bodyMsg & Request.Form.Key(i) & ": " &_
Request.Form.Item(i) & vbCRLF
Next
Set Msg = Server.CreateObject("JMail.SMTPMail")
Msg.ServerAddress = "localhost"
Msg.Sender = senderMsg
Msg.Subject = Request.Form("oggetto_msg")
Msg.AddRecipient recipientMsg
Msg.Priority = 3
Msg.Body = bodyMsg
On Error Resume Next
If Msg.Execute Then
errMsg="Il messaggio è stato spedito correttamente. " &_
"Grazie per la Vostra collaborazione. "
Else
errMsg="Il messaggio non è stato spedito a causa di un " &_
"problema sul server. Si prega di riprovare più tardi. "
End If
Set Msg = Nothing
End If
%>
Studio CDL Alessandro Alessandri - studio commerciale
Mandateci una e-mail e sarete
ricontattati il prima possibile: