<%@LANGUAGE="VBSCRIPT"%>
Alison's Garden
<%
Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText )
Dim objMail
set objMail = server.createobject("SMTPsvg.Mailer")
objMail.FromName = sFromEmail
objMail.FromAddress = sFromEmail
objMail.RemoteHost = sEmailServer
objMail.AddRecipient sToEmail, sToEmail
objMail.Subject = sSubject
objMail.BodyText = sText
if objMail.SendMail then
SendEmail = ""
else
' Message send failure
SendEmail = objMail.Response
end if
Set objMail = nothing
End Function
Dim sSendTo
Dim sSubject
Dim sRedir
Dim sYourEmail
Dim sMessage
Dim sPage
Const g_strFromAddress = "friend@alisonsgarden.com" 'Which email address should be used for sending
Const g_strYourSite = "http://www.alisonsgarden.com"
Const g_strEmailServer = "mail.alisonsgarden.com"
sSendTo = Request.Form("emailaddress")
sSubject = Request.Form("name") & " recommends this page to you"
sRedir = Request.Form("_redir")
sYourEmail = Request.Form("youremail")
sPage = Request.Form("http://www.alisonsgarden.com")
sMessage = Request.Form("yourmessage")
sMessage = sMessage & vbCrLf & vbCrLf & g_strYourSite & vbCrLf & "delightful gifts and goods for your home"
SendEmail g_strEmailServer, g_strFromAddress, sSendTo, sSubject, sMessage
If Request.Form("metoo") = "yes" Then
SendEmail g_strEmailServer, g_strFromAddress, sYourEmail, sSubject, sMessage
End If
%>
<% if request.form("close") = "yes" and request.form("emailaddress") <> ""then %>
<% end if %>