<%
on error resume next
'Specify your captcha length here, this is the only configuration requirement
captchaLength = 5
Function captcha(captchaLength)
if captchaLength > 15 then captchaLength = 15
HighestValue = left(100000000000000,captchaLength)
lowestValue = left(999999999999999,captchaLength)
Randomize
intHighestNumber = Int((HighestValue - LowestValue + 1) * Rnd) + LowestValue
session("captcha") = Int(intHighestNumber)
x = 1
'response.write vbcrlf & "
" & vbcrlf & vbtab & "
Security Code:
" & vbcrlf
while x <= captchaLength
response.write vbtab & vbtab & "" & vbcrlf
x = x + 1
wend
'response.write vbtab & "
" & vbcrlf & "
" & vbcrlf
End Function
%>
<%
'response.Write(request("captcha")&"---111 ")
'response.Write(session("captcha")&"++++111 ")
'response.End()
if request("action") = "captcha" then
response.Write(".")
'response.Write(request("captcha")&"---111 ")
'response.Write(session("captcha")&"++++111 ")
'response.End()
if cstr(request("captcha")) = cstr(session("captcha")) then
'response.Write(request("captcha")&" ")
' response.Write(session("captcha")&" ")
' response.End()
' response.write ""
'dispform
'session("captcha")=""
%>
<%
else
'response.Write("TTT")
'response.End()
' displayform
mess="Sorry, security code does not match."
end if
end if
%>
<%
up "supplier"
%>
<%
dim db
dim flag,email,cat,login,pwd
flag=true
cat = ""
cat = request.querystring("cat")
if len(cat) = 0 then
cat=request.form("cat")
end if
utype=request.Form("utype")
email=request.form("email")
response.write "
"
response.write "
Home >> "
response.write "Forgot Your Password? "
response.write "
"
if request("id") <> "" then
displayform
flag = false
response.write "
"
end if
if flag then validation1 'to ensure that the email have been entered
if flag then validation2
%>