800-952-7221

System Design Inquiry Form

 

 

<% If blnCAPTCHAcodeCorrect = True Then Dim MessageBody MessageBody = "Last name" & ":" & " " & request("fromName") & vbcrlf&_ "First name" & ":" & " " & request("firstname") & vbcrlf&_ "Address" & ":" & " " & request("address") & vbcrlf&_ "City" & ":" & " " & request("city") & vbcrlf&_ "State" & ":" & " " & request("state") & vbcrlf&_ "ZIP Code" & ":" & " " & request("postalcode") & vbcrlf&_ "Phone" & ":" & " " & request("phone") & vbcrlf&_ "E-mail address" & ":" & " " & request("fromEmail") & vbcrlf&_ "Static water level in feet" & ":" & " " & request("static") & vbcrlf&_ "Well depth in feet" & ":" & " " & request("depth") & vbcrlf&_ "Daily amount of water desired in gallons" & ":" & " " & request("amount") & vbcrlf&_ "Diameter of well casing in inches" & ":" & " " & request("casing") & vbcrlf&_ "Questions" & ":" & " " & request("questions") & vbcrlf&_ "Referred by" & ":" & " " & request("referred") & vbcrlf&_ "Referred by other" & ":" & " " & request("referredOther") ''Send Email (sendaspmail.asp is required to be included to call SendMail function) '''The statement below will not work because of invalid fromEmail ''''SendMail request("fromName"), request("fromEmail"), request("toEmail"), request("toEmail"), request("subject"), MessageBody ''Hard-code fromEmail to a valid email address, and it will work SendMail "Solar Water Technologies", "info@solarwater.com", request("toEmail"), request("toEmail"), request("subject"), MessageBody If Err <> 0 Then Response.Write "Error encountered: " & Err.Description else Response.Write("Thank you for requesting more information. We'll be contacting you shortly.") End If ''Else of CAPTCHA validation ElseIf blnCAPTCHAcodeCorrect = False Then Response.Write(" We're sorry, but you entered the security code incorrectly. Remember, the letters are case sensitive and must match the upper case letters and lower case letters. Click the BACK button and THEN the Load New Code link to try another set of characters. We're sorry you're having problems, but you must click the Load New Code link to have a new code generated or you will continue to receive this error.") End If %>