<%@ Language=VBScript %> <% If Request.Form <> "" Then message = "Water Glyph Web Site Response:" & vbcrlf & vbcrlf & _ "Have you ever seen a ""Water Glyph""? If so...where was it located?:" & vbcrlf Select Case Request.Form("Question1") Case "Answer_A" message = message & "Arizona" & vbcrlf Case "Answer_B" message = message & "Nevada" & vbcrlf Case "Answer_C" message = message & "New Mexico" & vbcrlf Case "Answer_D" message = message & "Utah" & vbcrlf Case "Answer_E" message = message & "United States of America" & vbcrlf Case Else message = message & "" & vbcrlf End Select message = message & vbcrlf & "How sure are you of the sighting?:" & vbcrlf Select Case Request.Form("Question3") Case "Answer_A" message = message & "YES! I can definitely find it again." & vbcrlf Case "Answer_B" message = message & "I THINK I know where one is...but it's been a while." & vbcrlf Case "Answer_C" message = message & "I COULD NOT find it again...but I have seen one." & vbcrlf Case Else message = message & "" & vbcrlf End Select message = message & vbcrlf & "What method would you prefer to have us contact you?:" & vbcrlf Select Case Request.Form("Question4") Case "Answer_A" message = message & "E-Mail" & vbcrlf Case "Answer_B" message = message & "Telephone" & vbcrlf Case "Answer_C" message = message & "Standard Letter" & vbcrlf Case Else message = message & "" & vbcrlf End Select message = message & vbcrlf & "Additional Comments:" & vbcrlf & Request.Form("Comments") & vbcrlf & vbcrlf & _ "Address: " & Request.Form("Address_Line1") & vbcrlf & _ "City: " & Request.Form("City") & " State: " & Request.Form("State_Province") & vbcrlf & _ "Country: " & Request.Form("Country") & " Zip/Post. code: " & Request.Form("Zip_PostalCode") & vbcrlf & _ "Phone: " & Request.Form("Phone") & vbcrlf & _ "E-mail: " & Request.Form("Email") & vbcrlf Set theMail = Server.CreateObject("CDONTS.NewMail") theMail.Send "cody@surweb.org", "cody@surweb.org", "Water Glyph Web Site Response", message, 1 Set theMail = Nothing 'Response.Write "The mail was sent..." 'Response.End End If %> Have you Ever seen a mark like this?
<%If Request.Form = "" Then%>
Have you Ever seen
a mark like this?
 
Members of the research teamhave heard reports of similar marks being found in
other areas of the South West, and are interested in the network of know glyphs.
 
 
Have you ever seen a WaterGlyph?
How sure are you of the sighting?
YES!  I can
definitely find it again.
I THINK I know where one is...
I have seen one, but I COULD NOT find it again
 
If so ...where was the it located? 
Utah
Arizona
Nevada
New Mexico
U S A
 
By what method would you prefer to have us contact you?
E-mail
Telephone
Letter
 
Additional Comments:
              
Address:    
City:                   State/Prov:  
Country:              Zip/Postal code: 
Phone:       
E-mail:       
 
         
<%Else%>
Your comments have
been forwarded to
our research team.

Someone will contact you within a week.

<%End If%>