% send="" name="" senderemail="" friendemail="" nameeror="" senderror="" frienderror="" senderrorval="" frienderrorval="" if Request.Form("send") <> "" then if Request.Form("name") = "" then nameerror="Please enter your name." else session("name")= Request.Form("name") end if if test(Request.Form("senderemail")) <> True then senderrorval="Please enter a valid email address." else session("senderemail")=Request.Form("senderemail") end if if Request.Form("senderemail") = "" then senderror="Please enter your email address." else session("senderemail")=Request.Form("senderemail") end if if Request.Form("friendemail") = "" then frienderror= "Please enter your friend's email address." else session("friendemail")=Request.Form("friendemail") end if if test(Request.Form("friendemail")) <> True then frienderrorval="Please enter your friend's valid email address." else session("friendemail")=Request.Form("friendemail") end if if nameerror = "" and senderror = "" and frienderror = "" and frienderrorval = "" and senderrorval = "" then Response.Redirect("sendmail.asp") end if end if %>