<%
' change To address of your own SMTP server
dim MailTo
strHost = "mail.ultralpg.com"
MailTo = "info@ultralpg.com"
If Request("Send" ) <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender" )
' enter valid SMTP host
Mail.Host = strHost
Mail.From = Request("From" ) ' From address
Mail.FromName = Request("FromName" ) ' optional
Mail.AddAddress MailTo
' message subject
Mail.Subject = Request("Subject" ) &" Websiteden Gelen Mesaj"
' message body
Mail.Body = Request("Body" )
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
%>
<% If strErr <> "" Then
response.Write ("Hata Lütfen Tekrar Deneyiniz."&strErr )
End If
If bSuccess Then
response.Write ("Mesajınız Gönderilmiştir." &Mailto)
End If %>
