<%
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
%>
Lal Soft
<%
sub showMain()
referrer=Request.ServerVariables("HTTP_REFERER")
if referrer="" then
referrer="http://"&request.servervariables("SERVER_NAME")&"/"&request.servervariables("PATH_INFO")
end if
message=VBNewLine&"Bu siteyi ve içerigini çok begendim . Seninle paylaşmak istedim. "&VBNewLine&VBNewLine&referrer&VBNewLine&""
%>