% '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 & "
"
response.write " Home >> "
if Q="submit" then
response.write "Submit your Products : "
elseif Q="update" then
response.write "Update Your Listing / Products : "
else
response.write "View Your Inquiries : "
end if
response.write " " refer = Request.ServerVariables("HTTP_REFERER") if refer="http://www.easy2source.com/" then session("myid")="" end if if session("myid")<>"" then supplier_id=session("myid") dispdetails else validation1 'to ensure that the login and password have been entered if flag then validation2 if flag then dispdetails end if response.write " |
"
response.write "For Registered Suppliers:
"
response.write "If you are a listed on easy2source.com Directory Section then, please enter your login details :"
elseif Q="update" then
response.write "
"
response.write "If you are a listed on easy2source.com Directory Section then, please enter your login details to Update Your Listing / Products :
"
response.write ""
response.write "Error : Invalid login name and/or password, please re-enter the data"
elseif Q="update" then
response.write " "
response.write ""
response.write "Error : Invalid login name and/or password, please re-enter the data"
elseif Q="view" then
response.write " "%>
"
response.write "For Registered Suppliers:
"
response.write "If you are a Listed on easy2source.com Directory Section then, please enter your login details to Update Your Listing / Products :
"
response.write "For Registered Suppliers:
"
response.write "If you are a Listed on easy2source.com Directory Section then,
Please enter your login details to View Your Inquiries :
"
response.write ""
response.write "Error : Invalid login name and/or password, please re-enter the data"
end if
dispform
else
if request("action") = "captcha" then
if cstr(request("captcha")) = cstr(session("captcha")) then
supplier_id=r("supplier_id")
session("myid")=r("supplier_id")
else
dispform
mess="Sorry, security code not match."
session("captcha")=""
end if
else
dispform
mess="Sorry, security code not match."
'response.Write(request("captcha")&"---111
")
'response.Write(session("captcha")&"++++111
")
'response.End()
session("captcha")=""
end if
end if
r.close
else
mess="Sorry, security code not match."
end if
end if
'
End Sub
%>
<%
sub dispform
%>
<%'response.write "
"
response.write "
| "
response.write " " if session("Company_name")="" then session("Company_Name")= r1("company_name") if count=0 then response.write " Sorry! You have no inquiry from directory section. To view your product inquiries click here. " exit sub else response.write " The following are the inquiries you have received from the directory section. To view your product inquiries click here. " response.write " " r1.close r2.close set r1=nothing set r2=nothing db.close set db=nothing pagewisedisplay else dispform mess="Sorry, security code not match." end if end if End Sub %> <% Sub pagewisedisplay dim i,s1,s2,dstart1 response.write "
|
| Small Business Directory | About Us | Site Map | Contact Us | Partner | |