<% Upper_Patch " " %>
<% response.write "
" response.write "

Home >> Product Search>>" if trim(session("Category"))<>"" then response.write " "&ProperCase(session("Category"))&" >>" end if Response.Write " Enlarge Photo View : " response.write "


" response.write "
" 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%>
<% function ProperCase(txt) on error resume next if trim(txt) = "" then exit function 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 %>