<% 'alert ("aaa") Upper_Patch "supplier" dim supplier_id dim sdate,edate,page,currpage,start,finish,dstart,count,page1,currpage1,start1,finish1,dstart1,count1 dim db connection set rs12=server.createobject("adodb.recordset") s2="select * from Directory_inquiry where supplier_id="&session("myid")&" order by Inquiry_date desc" rs12.open s2, db, 3 set rs=server.createobject("adodb.recordset") set rs2=server.createobject("adodb.recordset") s2="select Product_inquiry.* from Product_inquiry,product " & _ " where product_inquiry.prod_id=product.prod_id and Product_inquiry.supplier_id="&session("myid")&" order by " & _ " Inquiry_date desc " rs.CursorType=3 rs.CursorLocation=3 rs.open s2, db, adopenstatic rs.PageSize=10 rs.CacheSize=10 pages=rs.pagecount count=rs.recordcount if request.querystring("currpage")="" then currpage=1 else currpage=int(request.querystring("currpage")) end if if rs.recordcount > 0 then rs.AbsolutePage=currpage start=rs.AbsolutePosition end if if currpage=pages then finish=count else finish=start+rs.pagesize-1 end if response.write "
Home >> View Product Inquiries :
" response.write "
" response.write "" response.write "" response.write "" 'response.write "" 'response.write "" response.write "" response.write "

" response.write "  View Supplier Inquiry ("&rs12.recordcount&")
" response.write "  View Product Inquiry ("&rs.recordcount&")
" response.write "  Update Listing
" 'response.write "  Update Products
" 'response.write "  Add More Products
" response.write "  Change Password
" response.write "  Logout
" response.write "
" response.write "
" response.write session("company_name")&"
" 'response.write "
" response.write "Product Inquiry Status

" if count=0 then response.write "

Sorry! You have no inquiry from product section. To view your directory inquiries click here.

" else response.write "

This is the list of the inquiries received for your products.
" response.write "
" response.write "

" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" dim k k = 0 for i=start to finish ' do while not rs.eof s2="select product_name from Product where prod_id ="&rs("Prod_id") rs2.open s2, db,3 if not rs2.eof then response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" k = k + 1 end if rs2.close rs.movenext if rs.eof then exit for ' loop next response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "Click on corresponding Product Name to respond them.
Select
Inquiry Date" response.write "Product Name" response.write "Inquiry
" & FormatDateTime(rs("inquiry_date"), vbshortdate) & "" response.write rs2("product_name")&"" response.write left(rs("message"),40)&"...
" response.write "               

" pagewisedisplay end if response.write "
" response.write "
" Bottom_Patch %> <% Sub pagewisedisplay dim i,s1,s2,dstart response.write "
" response.write "Result Page : " i=1 if request.querystring("dstart")="" then dstart=1 else dstart=request.querystring("dstart") end if if start>1 then response.write ""&"Previous " &"" end if if pages>10 then if currpage<=dstart+3 then if currpage-3>=dstart then s1=currpage+6 i=currpage-3 end if if currpage<=6 then s1=10 i=1 end if end if if currpage>=dstart+5 then if currpage+5<=pages then s1=currpage+5 i=currpage-4 else s1=pages i=pages-9 end if end if dstart=i for i=i to s1 if i=currpage then response.write " "&i&"" else response.write ""&" "&i&"" end if next else 'if pages<=10 then s1=pages 'else ' s1=10 'end if dstart=1 for i=1 to s1 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 %>