<%
action=Request("action")
select case action
case ""
call showMain()
case "send"
call sendMail()
end select
SUB sendMail()
strHost = "localhost"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = Request("From")
Mail.FromName = Request("FromName")
Mail.AddAddress Request("To")
' message subject
Mail.Subject = Request("Subject")
' message body
Mail.Body = Request("Body")
On Error Resume Next
Mail.Send
If Err <> 0 Then
strErr = Err.Description
Response.Write "Hata: "& strErr &"
"
else
bSuccess = True
Response.Write "Mesajınız "& Request("To") &" 'a gönderildi.
"
%>
<%
End If
End Sub
%>
**TAVSİYE**
<%
sub showMain()
referrer=Request.ServerVariables("HTTP_REFERER")
if referrer="" then
referrer="http://"&request.servervariables("SERVER_NAME")&"/"&request.servervariables("PATH_INFO")
end if
message=VBNewLine&"Okuduğum bu yemek tarifini çok beğendim ve Seninle paylaşmak istedim. Okuduğunda senin de beğeneceğini umuyorum. Yemek tarifini görebilmek için lütfen aşağıdaki linki tıklar mısın:"&VBNewLine&VBNewLine&referrer&VBNewLine
%>
<% End SUB %>