<%
page=Request.QueryString("page")
title=Request.QueryString("title")
if page="" then
page=Request.form("page")
if page="" then
Response.Write "Error1"
Response.End
end if
end if
if Request.Form("fromEmail")="" then
showForm
else
sendEmail
end if
sub showForm
%>
OutdoorLeisureCompany.com: Tell a Friend about Outdoor Leisure Company
| Tell a Friend about OutdoorLeisureCompany.com |
|
Use the form below to send your
friend an e-mail telling them about this page.
|
|
|
|
|
<%
end sub
sub sendEmail
fromEmail=Request.Form("fromEmail")
fromName=Request.Form("fromName")
toEmail=Request.Form("toEmail")
toName=Request.Form("toName")
message=Request.Form("message")
page=Request.Form("page")
title=Request.Form("title")
title2=Request.Form("title2")
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = fromEmail
objNewMail.To = toEmail
objNewMail.Subject = fromName & " has recommended an article to you"
strBody = "Hi " & toName & ": " &Vbcrlf&Vbcrlf
strBody=strBody & fromName &" asked us to forward a message to you because "
strBody=strBody & "he/she thought you might be interested in the following article from OutdoorLeisureCompany.com entitled" & " : " &Vbcrlf&Vbcrlf
strBody=strBody & title2 & ". "
strBody=strBody &vbcrlf&vbcrlf&page&vbcrlf&vbcrlf
strBody=strBody&"__________________________________________"&vbcrlf&Vbcrlf
strBody=strBody& fromName & " wrote : " &vbcrlf&Vbcrlf
strBody=strBody&message&vbcrlf&vbcrlf
strBody=strBody&"__________________________________________"&vbcrlf
strBody=strBody&"Outdoor Leisure Company- Enjoy life again."&vbcrlf
strBody=strBody&"http://www.OutdoorLeisureCompany.com"
objNewMail.Body=strBody
objNewMail.Send
Set objNewMail = Nothing
%>
|
Tell a Friend |
|
Thanks! An e-mail has been sent to <%=toEmail%>
telling them about this page.
• Close this window
|
|
|
<%
end sub%>