<% dim supplier_id,s1,db supplier_id=int(request.querystring("supplier_id")) connection if supplier_id = "" then Response.Write "

Kindly wait, while you are redirected....

" Response.Redirect "http://easy2source.com/category.asp?key=Supplier" Response.End end if sql="select * from supplier where supplier_id="&supplier_id set rs=server.createobject("adodb.recordset") rs.open sql, db, 3 if rs.EOF then Response.Write "

Kindly wait, while you are redirected....

" Response.Redirect "http://easy2source.com/category.asp?key=Supplier" Response.End end if Tit = "" Tit = rs("Company_Name")&" - Indian exporter and Indian Manufacturer" response.write ""&Tit&"" Descp = rs("company_name") & " - Exporter of Indian Products" response.write "" response.write "" %> <% upper1 " " %>
<% dim cat_id cat_id ="" if request.querystring("cat_id")="" then cat_id=int(request.form("cat_id")) else cat_id=int(request.querystring("cat_id")) end if sql="select * from category where cat_id="&cat_id set rs3=server.createobject("adodb.recordset") rs3.open sql, db ,3,2 response.write "
" 'set rsmain = server.CreateObject("adodb.recordset") ' For m = 0 To lent - 1 Step 3 ' Temp = Mid(ind, 1, m + 3) ' qrmain = "main_cat_disp '"&Temp&"'" ' rsmain.open qrmain,db,3,2 ' If Not rsmain.EOF Then ' If m = Len(ind) - 3 Then ' Response.write ">> " & Propercase(r2("category")) & "" ' Else ' Response.write ">>"&Propercase(r2("category")) & " " 'End If 'End If 'rsmain.Close 'Temp = "" ' Next %> <% 'if name <> "" and suid <> "" then ' qlog = "login_name '"&name&"','"&suid&"' " ' ' set rslog = server.CreateObject("adodb.Recordset") ' rslog.open qlog,db,3,2 ' Response.write"
Welcome,"&rs("Company_Name")&"
" ' end if ' -------------------- Heading Close ------------------------------------------------------------------------- %>
<% response.write "
" 's1="select * from profile where supplier_id="&supplier_id 'set r1=server.createobject("adodb.recordset") 'r1.open s1, db, 3 dim Folder Folder = Supplier_id 'if len(Folder) < 2 then Folder = "0000CC"&Folder 'if len(Folder) < 3 then Folder = "00000"&Folder 'if len(Folder) < 4 then Folder = "0000"&Folder 'if len(Folder) < 5 then Folder = "000"&Folder 'if len(Folder) < 6 then Folder = "00"&Folder 'if len(Folder) < 7 then Folder = "0"&Folder Folder=int(Folder/500)+1 response.write "
" response.write "
"&ProperCase(rs("company_name"))&"
" response.write "
Product catalogue

" 'response.write "" 'response.write "
Product catalogue

&Chr(34)&
" response.write "
Company Profile
" response.write "

" response.write "" response.write "
" dim SQL1,h set rs1=server.createobject("adodb.recordset") SQL1="select * FROM Profile WHERE Supplier_id="&rs("Supplier_id") 'set rs1=server.createobject("adodb.recordset") rs1.open SQL1, db, adopenstatic response.write "
" if not rs1.eof then txtProfile=rs1("Profile") response.write "
"&MakeFirstLetterCapital(txtProfile)&"

" end if rs1.close %> <% set rs1=server.createobject("adodb.recordset") SQL1="select * FROM products WHERE Supplier_id="&rs("Supplier_id") 'set rs1=server.createobject("adodb.recordset") rs1.open SQL1, db, adopenstatic response.write "
" response.write "Our Products
" response.write "

" if not rs1.eof then response.write "
" response.write MakeFirstLetterCapital(rs1("Description")) response.write "

Category wise :
" end if rs1.close set rs1=server.createobject("adodb.recordset") SQL1="select distinct cat_id FROM product WHERE Supplier_id="&rs("Supplier_id") 'set rs1=server.createobject("adodb.recordset") rs1.open SQL1, db, adopenstatic h = 0 Tot = 0 do while not rs1.eof if rs1("cat_id") <> "" then SQL2="Select prod_code from product where cat_id="&rs1("cat_id")&" and supplier_id="&rs("supplier_id") set rs2=server.createobject("adodb.recordset") rs2.open SQL2, db, 3 SQL2="Select category from category where cat_id="&rs1("cat_id") set rs3=server.createobject("adodb.recordset") rs3.open SQL2, db, adopenstatic if not rs3.eof then response.write ""&ProperCase(rs3("category"))&" ( "&rs2.recordcount&" Products)
" end if Tot=Tot+rs2.recordcount rs2.close rs3.close end if rs1.movenext loop rs1.close response.write "
Total Products = "&Tot&"
" response.write "

" response.write "Contact Details
" response.write "
" response.write "" if len(rs("fax"))>0 then response.write "" response.write "" if len(rs("contact_person"))>0 then response.write "" response.write "
Company: "&ProperCase(rs("company_name"))&"
" 'response.write rs("address")&"
" if len(rs("address"))<>0 then response.write""&ProperCase(rs("address"))&"
" response.write " "&ProperCase(rs("city"))&"-"&rs("pin")&"
"&ProperCase(rs("state"))&"
"&ProperCase(rs("country"))&"
Tel. No.:"&rs("Tel1")&"
Fax:"&rs("Fax")&"
Send On-Line Trade Inquiry
Contact Person:
" end if response.write "

" dim SQL3,rs3 SQL3="select * from product where Supplier_id="&Supplier_id&" order by prod_code" set rs3=server.createobject("adodb.recordset") rs3.open SQL3, db, adopenstatic dim i i = 1 do while not rs3.eof if len(rs3("img_no"))>3 then response.write "" response.write "
" response.write "" imgSrc="http://supplier.easy2source.com/thumb180.asp?VFilePath=\images\" & rs3("img_no")&".jpg" response.write "&Chr(34)&" 'response.write ""&rs3("Prod_name")&"" response.write "
" response.write "" response.write "Click here for enlarge photo

" i = i + 1 if i >= 4 then exit do end if rs3.movenext loop rs.close rs3.close set rs = nothing set rs2=nothing set rs3=nothing response.write "

" response.write "
" %> <%Bottom_Patch%> <% function ProperCase(txt) txt=trim(txt) if txt<>"" then 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 Public Function MakeFirstLetterCapital(Txt) If Trim(Txt) = "" or isNull(txt) Then Exit Function Txt = LCase(Txt) lFlag = True For i = 1 To Len(Txt) If lFlag = True And Mid(Txt, i, 1) <> " " And Mid(Txt, i, 1) <> "" Then tempTxt = tempTxt & UCase(Mid(Txt, i, 1)) lFlag = False Else tempTxt = tempTxt & Mid(Txt, i, 1) End If If Mid(Txt, i, 1) = "." Then lFlag = True End If Next MakeFirstLetterCapital = tempTxt End Function %> <% Sub Bottom_Patch %>
<% End Sub %>