<%
dim done
done = request.form("done")
if done = "" then
done = "No"
blnHome = True
%>
Tell A Friend - B. A. Barker - "Everything Doggie" - Dog Lover Gifts and Accessories
<%
Else
if request.form("done") = "Yes" then
'sets variables
dim email, sendmail, url
email = request.form("email")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
'put the webmaster address here
sendmail.From = "babarker@babarker.com"
'The mail is sent to the address entered in the previous page.
sendmail.To = email
'Enter the subject of your mail here
sendmail.Subject = "Check out this website"
'send a specific page or send a site url
'url = Request.ServerVariables("HTTP_REFERER")
url = "http://www.babarker.com"
'This is the content of thr message.
sendmail.Body = "Site recommendation from a friend!" & _
vbCrlf & vbCrlf & "A friend sent you this email and thought you should check out this site." & _
vbCrlf & url & vbCrlf
'this sets mail priority.... 0=low 1=normal 2=high
sendmail.Importance = 1
sendmail.Send 'Send the email!
response.redirect Request.ServerVariables("HTTP_REFERER")
'Response.write ("Sent to ") & email
End if
End if
%>
