<%Response.Buffer=true %> <% '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(".") if cstr(request("captcha")) = cstr(session("captcha")) then response.write "
" response.Write "" response.Write "" response.Write "
" session("captcha")="" %> <% else 'response.Write("TTT") 'response.End() mess="Sorry, security code not match." end if end if %> Product Alert Login - easy2source <% Upper_Patch "supplier" right_patch session("mbr_id")="" response.write "
" response.write "

Home >> " response.write "Product Alert " response.write "


" response.write "
" response.write "For Existing User
" response.write "If you are a member, please enter your login details :" 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 "
Login :
Password :
User Type :  *
security code:" response.write ""&captcha(captchaLength)&"
"&mess&"
Forgot Your Password?

 " response.write "  
" response.write "" Response.Write "
" response.write "
" response.write "For Non-Existing Users:
" response.write "If you are not a member, click here for free registration." response.write "

" Bottom_Patch response.write "" %>