our latest Faizan e Islam Wallpapers for your PC Or simply go to our downloads
Please enter your friends
email address below and
click on the button
done = request.form("done")
if done = "" then
done = "No"
if request.form("done") = "Yes" then
dim email, sendmail
email = request.form("email")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
'put the webmaster address here
sendmail.From = "firstname.lastname@example.org"
'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.faizaneislam.org/"
'This is the content of thr message.
sendmail.Body = "Site recommendation from a friend!" & _
vbCrlf & vbCrlf & "A friend has sent you this email and thought you would should check out this site." & _
vbCrlf & url & vbCrlf
'this sets mail priority.... 0=low 1=normal 2=high
sendmail.Importance = 2
sendmail.Send 'Send the email!
'Response.write ("Sent to ") & email