<%
page=""
if len(Request.ServerVariables("query_string"))>0 then
page=right(Request.ServerVariables("query_string"),len(Request.ServerVariables("query_string"))-5)
end if
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
%>
ASP-f-f.com: Tell a Friend
| Tell a Friend |
|
Use the form below to send your friend an e-mail telling them about this page (we do not store the email addresses and will never contact you using email addresses entered only in tell-a-friend)
|
|
|
|
|
<% end sub
sub sendEmail
fromEmail=Request.Form("fromEmail")
toEmail=Request.Form("toEmail")
message=Request.Form("message")
page=Request.Form("page")
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = fromEmail
objNewMail.To = toEmail
objNewMail.Subject = "FW: Free Code"
strBody = "Hi,"&Vbcrlf&Vbcrlf
strBody=strBody& fromEmail &" asked us to forward a message to you because they thought you might be interested in the following Web site at forgotten-future.com: "&vbcrlf&vbcrlf&page&vbcrlf&vbcrlf
strBody=strBody&"__________________________________________"&vbcrlf&Vbcrlf
strBody=strBody& fromEmail & " wrote : " &vbcrlf&Vbcrlf
strBody=strBody&message&vbcrlf&vbcrlf
strBody=strBody&"__________________________________________"&vbcrlf
strBody=strBody&"forgotten-future.com"&vbcrlf
strBody=strBody&"http://www.forgotten-future.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. We appreciate you taking the time to help spread the word
about forgotten-future.com - Cause & Effect; Truth & Common Sense!
Note: This message is not a guarantee of delivery.
Go Back To 
|
|
|
<%
end sub%>