<% '''Upper_Patch "product" %> <% 'onselectstart="return false;" Upper_Search_Patch radio1, keyword %>
<% Sub Right_patch1() %>

Corporate Gifts Portal
Only Indian Portal
For Corporate Gifts


Indian Handicrafts Portal
Only Indian Portal
For Handicrafts
product

<%End sub%> <% right_patch1 dim db dim currpage if request.querystring("currpage")="" then currpage=1 else currpage=int(request.querystring("currpage")) end if connection dim s 's="select * from product where getdate()-date_added <= 30 order by date_added desc, product_name" 's="select Product_name,date_added,prod_id,product.supplier_id,product.cat_id,category.category,product.img_no,supplier.company_name,category.index1 from product,supplier,category where getdate()-product.date_added <= 30 and product.supplier_id=supplier.supplier_id and product.cat_id=category.cat_id group by product_name,date_added,prod_id,product.supplier_id,product.cat_id,category.category,product.img_no,supplier.company_name,category.index1 order by date_added desc, product_name" s2="select Product_name,product.date_added,prod_id,product.supplier_id,product.cat_id,product.description,category.category,product.img_no,supplier.company_name,category.index1 from product,supplier,category where getdate()-product.date_added <= 700 and product.supplier_id=supplier.supplier_id and product.cat_id=category.cat_id group by product_name,product.date_added,prod_id,product.description,product.supplier_id,product.cat_id,category.category,product.img_no,supplier.company_name,category.index1 order by product.date_added desc, product.product_name" set rs=server.createobject("adodb.recordset") dim StartTime : StartTime = Timer() 'response.Write(s2) 'response.End() rs.CursorLocation=3 rs.open s2, db,3,1 TimeTaken="[ " & cstr(round((Timer() - StartTime),2)) & " Seconds ]" rs.pagesize=20 rs.cachesize=20 pages=rs.pagecount count=rs.recordcount 'No. of products if currpage > pages then currpage = 1 if count>0 then rs.absolutepage=currpage 'start=rs.absoluteposition start=(currpage-1)*20+1 if currpage=pages then finish=count else finish=start+rs.pagesize-1 end if response.write "
" dim temp response.write "Home >>" response.write "New Product" response.write " :

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" productdisplay db.close set db=nothing Bottom_Patch %> <% Sub productdisplay response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" set r=server.createobject("adodb.recordset") set r1=server.createobject("adodb.recordset") dim s1, foldername for i=start to finish response.write "" response.write "" response.write "" else response.write "" end if response.write "" 'r1.Close rs.movenext if rs.eof then exit for next response.write "" response.write "" response.write "
" response.write "Search Result : Products "&start&" to "&finish&" of "&count &"  " & TimeTaken & "
" response.write "Click on the thumbnails to view the product catalogue
Click on supplier name to View company profile
" response.write "Select products below and click " response.write "   OR   " response.write "
" response.write "Thumbnail" response.write "Product Name / Description / Company Name" response.write "Select All
Clear All
" response.write "" response.write "
" dim supFolder supFolder=0 if rs.RecordCount>0 then supFolder=cdbl(rs("supplier_id")) supFolder=int(supFolder/500)+1 end if if rs("img_no")<>"" then if len(rs("img_no"))>0 then response.write "" ' imgSrc="thumb90.asp?VFilePath=\supplier\" & cstr(supFolder) & "\" & cstr(rs("supplier_id")) & "\" & rs("img_no")&".jpg" imgSrc="http://supplier.easy2source.com/testImg.aspx?MaxSize=90&filen=\images\" & rs("img_no")&".jpg" response.write "&Chr(34)&" else response.write "" ''response.write "&Chr(34)&" response.write "&Chr(34)&" end if end if response.write "
" 's1="select Description from product where prod_id="&rs("Prod_id") 'r1.open s1, db, 3 response.write"
" response.write "Category : "&ProperCase(rs("Category"))&"
Product Name : " response.write "" response.write "" & ProperCase(rs("product_name"))&"" if len(rs("description"))>100 then 'response.write "
Description : " response.write "
" response.write "" & MakeFirstLetterCapital (left(rs("description"),100))&"....." elseif len(rs("description"))>0 then 'response.write "
Description : " response.write "
" response.write "" & MakeFirstLetterCapital (rs("description")) & "" end if if not rs.eof then response.write "
Company Name : " response.write "" & ProperCase(rs("company_name"))&"" end if response.write "
" dim ADD ADD = true set rsinquiry=server.createobject("adodb.recordset") rsinquiry.open "select * from inquiry_details where session_id='"&session.sessionid&"' and Prod_id="&rs("prod_Id"),db,3 if not rsinquiry.eof then ADD = False rsinquiry.close if ADD = False then response.write "Added To Inquiry Basket
" response.write "" response.write "" response.write "" response.write "" response.write "Select products and click " response.write "   OR   " response.write "
" pagewisedisplay response.write "
" End Sub %> <% Sub pagewisedisplay dim i,s1,s2 response.write "
" response.write "Result Page : " if start>1 then response.write ""&"Previous " &"" end if if currpage<10 then if pages<=10 then s1=pages else s1=10 end if for i=1 to s1 if i=currpage then response.write i&" " else response.write ""&i&" " end if next elseif currpage=pages then for i=pages-4 to pages if i=currpage then response.write i&" " else response.write ""&i&" " end if next end if if currpage=10 then for i=currpage-3 to currpage+1 if i=currpage then response.write i&" " else response.write ""&i&" " end if next end if if currpage" & " Next "&"" end if response.write "
" End Sub %> <%sub Upper_Search_Patch(Opn,keyword)%>
 Business directory of Indian exporters, manufacturers, suppliers with products detail from India <%if name <> "" and suid <> "" then %> Logout | <%end if%>
Search :
| Home | New Products | Products Directory | Supplier Directory | Product Alert Free |
<%end sub%> <% 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 %>