% If Request.QueryString("Validate") = "1" Then Public strMessage Public strCustomer Public strFirstName Public strLastName Public strEmailAddress Dim intPassed intPassed = 0 If Request.Form("customer") = "1" OR Request.Form("firstName") = "" OR Request.Form("lastName") = "" OR Request.Form("emailAddress") = "" Then If Request.Form("customer") = "1" Then strMessage = "You have not completed all the required fields." strCustomer = "Please tell us what you are." intPassed = 1 End If If Request.Form("firstName") = "" Then strMessage = "You have not completed all the required fields." strFirstName = "Please tell us your first name." intPassed = 1 End If If Request.Form("lastName") = "" Then strMessage = "You have not completed all the required fields." strLastName= "Please tell us your last name." intPassed = 1 End If If Request.Form("emailAddress") = "" Then strMessage = "You have not completed all the required fields." strEmailAddress = "Please tell us your Email Address." intPassed = 1 End If Else Session("Type") = Request.Form("customer") Session("firstName") = Request.Form("firstName") Session("lastName") = Request.Form("lastName") Session("contactNumber") = Request.Form("contactNumber") Session("emailAddress") = Request.Form("emailAddress") Session("houseNumber") = Request.Form("houseNumber") Session("streetName") = Request.Form("streetName") Session("addressLineTwo") = Request.Form("addressLineTwo") Session("town") = Request.Form("town") Session("county") = Request.Form("county") Session("postcode") = Request.Form("postcode") Session("area") = Request.Form("area") Session("bedrooms") = Request.Form("bedrooms") Session("propertyType") = Request.Form("propertyType") Session("furnished") = Request.Form("furnished") Session("dateAvailable") = Request.Form("dateAvailable") Session("otherInfo") = Request.Form("otherInfo") Response.Redirect("sendMail.asp?sendMail=1") End If Else End if %>
|
|||||||||||
|
|||||||||||
|
|||||||||||
|
|
||||||||||
|
|
||||||||||