Tell a Friend

<% page="" qs=Request.ServerVariables("query_string") if len(qs)>0 then page=right(qs, len(qs)-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 %> 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)

Your e-mail:
Your friend's e-mail:
Additional Message:

<% 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: WhisperPhones" strBody = "Hi,"&Vbcrlf&Vbcrlf strBody=strBody & fromEmail &" thought you might be interested in the following information" strBody=strBody & " from this site."&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&"codetoad.com"&vbcrlf strBody=strBody&"http://www.codetoad.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.
Note: This message is not a guarantee of delivery.
Close this window

<% end sub%>