<%@LANGUAGE="VBSCRIPT"%> <% If Request.Form("txSum") <> "" Then If Request.Form("txTelephone")<>"" Then Response.Redirect("errorpage.asp") End If If Not IsNumeric(Request.Form("txSum")) Then Response.Redirect("errorpage.asp") End If If CInt(Request.Form("txSum"))<>CInt(Session("SecurityNumber1") + Session("SecurityNumber2")) Then Response.Redirect("errorpage.asp") End If 'SUCCESSFUL CHECKING OF THE FORM, PROCESS THE DETAILS Call SendContactFormDetails() Response.Redirect("detailsSent.asp") End If Randomize Session("SecurityNumber1") = Int(Rnd*10)+1 Session("SecurityNumber2") = Int(Rnd*20)+1 Sub SendContactFormDetails() 'YOUR CODE FOR PROCESSING THE CONTACT FORM EMAIL DETAILS End Sub %> S P I T S A - Supernatural Phenomena Investigation Team South Africa

Haunting's .. Ghosts .. Spirits .. Poltergeist .. Unexplained Phenomena?

 
 
s
   
     
Name  
Suraname  
Address  
Suburb  
City  
Postal Code  
Province  
Contact Number  
Email address  
Type Of Location  
How long have you been at this location?  
Number of adults at this location  
Number of minors at this location  
Do you or others at this location feel threatened?  
If you answered yes, please explain why  
Describe the type of activity you are experiencing  
Additional information you feel we should know  
How did you hear about SPITSA?  
Message security, please answer the following sum: <%=Session("SecurityNumber1") %> + <%=Session("SecurityNumber2") %>
     
" /> " />