<%
' Defining Standart Variables at here
koAddress="mert@eser.org"
koPerson="SAYKAD"
koSubject="SAYKAD Siteden Gelen Mesaj"
' End of Define
' Getting Variables from ASP Request Objects
fromAddress=Request.QueryString("fromAddress")
fromName=Request.QueryString("fromName")
message=Request.QueryString("msg")
' End of Variable Receiver
If fromAddress <> "" and fromName <> "" and message <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost"
Mail.From = fromAddress
Mail.FromName = fromName
Mail.AddAddress koAddress, koPerson
Mail.Subject = koSubject
Mail.Body = message
End If
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "darkMailer DEBUG : " & Err.Description
Else
Response.Write "Mesajınız gönderilmiştir."
End If
%>