Products Catalogue of Indian Products, Indian exporters and Indian Manufacturers

" dim prod_id, supplier_id prod_id=int(request.querystring("prod_id")) supplier_id=int(request.querystring("supplier_id")) dim db connection s="select * from supplier where supplier_id ="&supplier_id set rs1 = server.createobject("adodb.recordset") rs1.open s, db, 3 Folder = cdbl(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 "" if not rs1.eof then response.write ""&ProperCase(rs1("company_name"))&"
" response.write "Company Profile" for n=1 to 5 response.write " " next response.write "Product Catelogue" %> <% response.write "" response.write "

" rs1.close sql="select Product_name,Img_no,supplier_id from product where Prod_Id="&prod_id&" " set rs=server.createobject("adodb.recordset") rs.open sql, db, 3 if not rs.eof then response.write "
"&rs("product_name")&"

" response.write "" response.write "
" if len(rs("img_no"))>0 then imgSrc="http://supplier.easy2source.com/ImgResize.aspx?maxsize=360&filen=\images\"& rs("img_no")&".jpg" 'response.write " "&rs("Product_name")&" " response.write " &Chr(34)& " else response.write "Nohing to show" end if response.write "
" end if %>

<% rs.close set rs = nothing %>

<%Bottom_Patch%>