<%if request("action") = "captcha" then response.Write(".") 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 "
" session("captcha")="" 'response.End() %> <% else mess="Sorry, security code not match." 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 %> <% dim cat_id, Supplier_Id,db cat_id ="" Supplier_Id = request.querystring("Supplier_Id") cat_id = request.querystring("Cat_id") if session("cat_id") = "" then session("cat_id") = cat_id else cat_id = session("cat_id") end if connection if cat_id <> "" then s1="select * from category where cat_id="&cat_id set rs2=server.createobject("adodb.recordset") rs2.open s1, db, 3 end if if Supplier_Id <> "" then sql="select * from Supplier where Supplier_Id="&Supplier_Id else sql="select * from Supplier where Supplier_Id=26669" end if set rs=server.createobject("adodb.recordset") rs.open sql, db, 3 IF NOT rs.EOF then response.write ""&rs("Company_Name")&" Inquiry Form" %> <% up "supplier" %> <% response.write "
" response.write "Home >> " response.write "Directory Search " if cat_id <> "" or session("cat_id") <> "" then if rs2.recordcount > 0 then response.write ">> "&ProperCase(rs2("Category"))&" " session("lent") = request.querystring("lent") session("Category") =rs2("Category") end if end if response.write ">> Inquiry Section :
" %>
<% if not rs.eof then response.write "To,
"&ProperCase(rs("Company_name"))&"
"&ProperCase(rs("City"))&","&ProperCase(rs("State"))&", "&ProperCase(rs("Country"))&" " %>
Inquiry Details:
Fields marked with asterisk ( * ) are mandatory
Please Describe Your Requirements / Want More Information: *
<% response.write " <% response.write "" response.write "" response.write "
" response.write "

" response.write "For Members:


Provide your Login Name & Password so that you do not have to key in your data again.

" 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 "Your Login Name:  * (Login name as your email ID)
" response.write "Your Password:  *
" response.write "User Type :" response.Write "  *
security code:" %> <%captcha(captchaLength)%><%'=mess%> <%response.write" "&mess&"
"%> <% response.write " " response.write "
 " response.write "
" response.write "Forgot Password?
" response.write "" response.write "" 'response.Write "
" 'response.write "Forgot Password?" 'response.write "
" %> <% response.write "

" response.write "I'm a New User


" response.write "Sign me up!


" 'response.write "
" 'response.write "" 'response.write "For Guest:
" 'response.write "Please provide your contact information here. This information will be provided to the recipient of this query along with your requirement details." %>
" %>
<% Bottom_Patch %> <% function ProperCase(txt) if txt<>"" then txt=trim(txt) varTxt=split(txt," ") putSpace="" for i=0 to ubound(varTxt) if varTxt(i)<>"" then txtVal=txtVal & putSpace & ucase(left(varTxt(i),1)) & lcase(right(varTxt(i),len(varTxt(i))-1)) end if putSpace=" " next ProperCase=txtVal end if End function %>