<%
Dim MailBody
' change to address of your own SMTP server
strHost = "mail.bla.com"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = Request("email") ' From address
Mail.FromName = Request("name") ' optional
Mail.AddAddress "
bla@gmail.com"
MailBody = "טלפון: " & Request("phone") & vbcrlf
MailBody = MailBody & "-------------------------------" & vbcrlf
MailBody = MailBody & "הודעה: " & Request("details") & vbcrlf
' message subject
Mail.Subject = "תגובות"
' message body
Mail.Charset = "Windows-1255"
Mail.Body = MailBody
Mail.ContentTransferEncoding = "Quoted-Printable"
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>