<% if request("action") = "captcha" then if len(trim(request("txtLoginName")))=0 or len(trim(request("Company")))=0 or len(trim(request("Email")))=0 or (request("txtPassword")<>request("txtPassword2")) then mess1="All fields are mandatory.
" session("captcha")="" end if response.Write(".") if cstr(request("captcha")) = cstr(session("captcha")) then 'response.Write(request("captcha")&"3333
") ' response.Write(trim(request.form("Company"))&"2222
") response.write "
" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" ' response.Write "" response.Write "" response.Write "
" 'response.End() session("captcha")="" ''response.Redirect("reguserprocess.asp?action=captcha") %> <% else 'response.Write("TTT") 'response.End() mess=mess&"Sorry, security code not match." end if end if %> <% '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 %> Free Product Alert Section. <% Upper_Patch "" %>

For Existing User
If you already registered Click here to proceed.

Forgot Your Password?

Please enter your details:
(Fields marked with *are mandatory)

Company: ">*
Username: " >* (Enter your email ID as login name)
Password: *
Retype Password: *
E-mail:     ">*
Member Type: (Member / Supplier)
security code: <%captcha(captchaLength)%><%=mess%>
<%=mess1%>
  
 
Member: <%response.Write " " %>
 
Supplier: You can submit your company and product details in easy2source.com
<% right_patch %>
<% Bottom_Patch%>