<% 'response.Write(request("captcha")&"--request-1
") 'response.Write(session("captcha")&"--session-1
") if request("action") = "captcha" then ' response.Write(".") ' response.Write(request("captcha")&"--request
") ' response.Write(session("captcha")&"--session
") 'response.End() if cstr(request("captcha")) = cstr(session("captcha")) then response.write "
" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.Write "" 'response.Write "" 'response.Write "" response.Write "
" session("captcha")="" 'response.End() %> <% else session("captcha")="" mess="Sorry, security code not match." response.Write(mess) 'response.End() '''response.Redirect("directoryinquiry.asp?Supplier_Id="&request("Supplier_Id")&"&cat_id="&request("cat_id")) end if end if %> <% 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 %> Request For Information Form