<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
refer_Site
<%
' Set varibles after form submit
Dim strFromName, strFromEmail, strToName, strToEmail, strMessage
strFromName = Trim(Request.Form("fromname"))
strFromEmail = Trim(Request.Form("fromemail"))
strToName = Trim(Request.Form("toname"))
strToEmail= Trim(Request.Form("toemail"))
strMessage = Trim(Request.Form("message"))
' if form already submit let start send mail
If (strFromName <> "" And strFromEmail <> "" and strToName <> "" and strToEmail <> "" and strMessage <> "") then
' Send HTML Form to refer friend email
Dim ObjMail
Set Objmail = Server.CreateObject("CDONTS.NewMail")
ObjMail.From = strFromEmail
ObjMail.To = strToEmail
ObjMail.Subject = "Check This Website out " & strToName
ObjMail.Body = strMessage
ObjMail.Send
Set ObjMail = Nothing
' Display Thank you message if submit successful
Response.Write("Thank you for your comment")
else
%>
