<%
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
todo=Trim(Request("todo")&"")
captchacode=Trim(Request("captchacode")&"")
%>
<%
If todo="send" Then
if TestCaptcha("ASPCAPTCHA", captchacode) then
captcha_wrong=False
%>
<%
else
captcha_wrong=True
%>
<%
end if
Else
%>
<%
End if
%>
