<% Option Explicit %>
<%
Dim stateAbbr, stateFull
stateAbbr = Array("AL","AK","AZ","AR","CA","CO","CT","DE","DC","FL","GA","HI","ID","IL","IN","IA","KA","KY","LA","ME","MD","MA","MI","MN","MS","MO","MT","NE","NV","NH","NJ","NM","NY","NC","ND","OH","OK","OR","PA","RI","SC","SD","TN","TX","UT","VT","VA","WA","WV","WI","WY")
stateFull = Array("Alabama","Alaska","Arizona","Arkansas","California","Colorado","Connecticut","Delaware","District of Columbia","Florida","Georgia","Hawaii","Idaho","Illinois","Indiana","Iowa","Kansas","Kentucky","Louisiana","Maine","Maryland","Massachusetts","Michigan","Minnesota","Mississippi","Missouri","Montana","Nebraska","Nevada","New Hampshire","New Jersey","New Mexico","New York","North Carolina","North Dakota","Ohio","Oklahoma","Oregon","Pennsylvania","Rhode Island","South Carolina","South Dakota","Tennessee","Texas","Utah","Vermont","Virginia","Washington","West Virginia","Wisconsin","Wyoming")
%>
<%
function TestCaptcha(byval valSession, byval valCaptcha)
dim tmpSession
valSession = Trim(valSession)
valCaptcha = Trim(valCaptcha)
if (valSession = vbNullString) or (valCaptcha = vbNullString) then
TestCaptcha = false
else
tmpSession = valSession
valSession = Trim(Session(valSession))
Session(tmpSession) = vbNullString
if valSession = vbNullString then
TestCaptcha = false
else
valCaptcha = Replace(valCaptcha,"i","I")
if StrComp(valSession,valCaptcha,1) = 0 then
TestCaptcha = true
else
TestCaptcha = false
end if
end if
end if
end function
%>
<%
Function SameDropdownArray(selectedKey, bSame, arKey, arText)
Dim minNum
If UBound(arKey) < UBound(arText) Then
minNum = UBound(arKey)
Else
minNum = UBound(arText)
End If
Dim i, retVal
retVal = ""
If CBool(bSame)=True Then
For i=0 To minNum
If selectedKey = arKey(i) Then
retVal = retVal + ""
Else
retVal = retVal + ""
End If
Next
Else
For i=0 To minNum
retVal = retVal + ""
Next
End If
SameDropdownArray = retVal
End Function
%>
<%
Dim msg
If Not IsEmpty(Request.Form("Submit")) Then
If TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) Then
Server.Transfer("cgi-bin/formmail.asp")
Else
msg = "You entered the wrong security code."
End If
End If
%>
A+ Foundation for West Aurora Schools :: Join the Team
