<% dim count, db connection dim supplier_id,cat_id,product_id supplier_id=cdbl(request.querystring("supplier_id")) Product_id=request.querystring("Prod_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 if (trim(cat_id)="" or cat_id=0) and Request.QueryString("supplier_id")<>"" then set rsTemp=server.createobject("adodb.recordset") sql1="select * from cat where supplier_id=" & Request.QueryString("supplier_id") ''response.Write("
supplier_id-->
"&sql1) rsTemp.Open sql1,db,3,2 if rsTemp.RecordCount> 0 then cat_id=rsTemp("cat_id") end if end if if cat_id <> "" then sql="select * from category where cat_id="&cat_id set rs3=server.createobject("adodb.recordset") ''response.Write("
cat_id-->
"&sql) rs3.open sql, db ,3,2 end if sql="select * from supplier where supplier_id="&supplier_id set rs1=server.createobject("adodb.recordset") ''response.Write("
supplier-->
"&sql) rs1.open sql, db, adopenstatic sql="select * from product where prod_Id="&Product_id set rs=server.createobject("adodb.recordset") ''response.Write("
product_id-->
"&sql) rs.open sql, db, 3 count=rs.recordcount if count <> 0 then else %> Products Catalogue of Indian Products, Indian exporters and Indian Manufacturers <% end if %> <% ''Upper_Patch " " %>
 Business directory of Indian exporters, manufacturers, suppliers with products detail from India
Search :
| Home | New Products | Products Directory | Supplier Directory |
<% Folder = Supplier_id Folder=int(folder/500)+1 if count <> 0 then response.write "
" response.write "

Home >> Product Search >>" if rs3.recordcount > 0 then response.write " "&ProperCase(rs3("Category"))&" >>" session("cat_id") = cat_id session("Category") = rs3("Category") else response.write " "&ProperCase(session("Category"))&" s >>" cat_id = session("cat_id") end if response.write " Product catalogue :" response.write "


" response.write "
" response.write "" response.write ProperCase(rs1("company_name"))&"" response.write "
" response.write "" response.write "" response.write "
Company Profile  " response.write "Product catalogue
View Inquiry Basket: " H = 0 set rsinquiry=server.createobject("adodb.recordset") rsinquiry.open "select * from inquiry_details where session_id='"&session.sessionid&"'",db,3 if not rsinquiry.eof then H=rsinquiry.recordcount rsinquiry.close response.write ""&H&" Unsent Inquiry" response.write "
"&ProperCase(rs("Product_name"))&"
" %> <% response.write "" response.write "" response.write "
" if len(rs("Prod_Code"))>0 then response.write "Product Code :   "&rs("Prod_Code")&"

" end if if len(rs("Description"))>1 then response.write "
" response.write "Product Description :" response.write "
" response.write "   •  "&MakeFirstLetterCapital(rs("Description"))&"

" end if response.write "

" if len(rs("Key_specification"))>0 then response.write "Product Specification :
" if len(rs("Key_specification"))>0 then response.write "   •  "&rs("Key_specification")&"
" if not rs.eof then s="select * from material where material_id ="&rs("material_id") set rs4=server.createobject("adodb.recordset") rs4.open s, db, adopenstatic if not rs4.eof then response.write "   •  " &rs4("Material") end if if len(rs("Price"))>0 then response.write "
Product Price :
" response.write "   •  " &rs("Price")&"" end if if len(rs("Delivery"))>0 then response.write "

Delivery Detail :
" response.write "   •  " &rs("Delivery") end if response.write "

" response.write "
" response.write "Contact Details :
" response.write ""&propercase(rs1("Company_name"))&"" response.write "
"&propercase(rs1("address"))&"
" response.write propercase(rs1("city"))&"-"&propercase(rs1("pin"))&", "&propercase(rs1("state"))&"
"&propercase(rs1("Country")) response.write "

Tel :  "&rs1("Tel1") if len(rs1("fax"))>0 then response.write "
Fax :  "&rs1("Fax") response.write "
Send On-Line Trade Inquiry" ' if len(rs1("website")) > 3 then ' response.write "
Website :" ' response.write " "&rs1("website")&"" ' end if if len(rs1("contact_person"))>0 then response.write "

Contact Person :
" response.write propercase(rs1("contact_person"))&"
"&ProperCase(rs1("designation")) end if response.write "

" if len(rs("img_no"))>0 then response.write "" response.write "
" response.write "" 'imgSrc="http://www.easy2source.com/thumbnails/_" & rs("img_no")&".jpg" 'imgSrc="http://www.easy2source.com/supplier/"&tempFolder&"/S"&rs("img_no")&".jpg" '''imgSrc="thumb180.asp?VFilePath=\supplier\" & cstr(Folder) & "\" & cstr(supplier_id) & "\" & rs("img_no")&".jpg" imgSrc="http://supplier.easy2source.com/ImgResize.aspx?maxsize=180&filen=\images\"&rs("img_no")&".jpg" 'response.write ""&rs("product_name")&"
" response.write ""&rs("product_name")&"
" 'response.write "" response.write "" response.write "Click here for enlarge photo" else response.write "" response.write "
" response.write ""&rs("product_name")&"
" end if dim ADD ADD = true rsinquiry.open "select * from inquiry_details where session_id='"&session.sessionid&"' and prod_id="&rs("prod_id"),db,3 if not rsinquiry.eof then response.write "

Added To Inquiry Basket

" else response.write "

" response.write "" response.write "" response.write "" response.write "" response.write "
" end if response.write "
" rsinquiry.close end if rs1.close set rs1=nothing rs.close set rs=nothing db.close set db=nothing response.write "" response.write "" Bottom_Patch response.write "" %> <% 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) = "" 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 %>