<% server.scripttimeout=10000 Categ = "" dim db Upper_Patch supplier dim currpage, pages, start, finish,count response.write "
Home >> View Directory Inquiries :
" display response.write "
" Bottom_Patch %> <% Sub display connection dim s1, s2,inquiry set r1=server.createobject("adodb.recordset") set r2=server.createobject("adodb.recordset") dim i,cat_id s2="select * from directory_inquiry where member_id="&request.querystring("member_id")&"and Supplier_id="&session("myid")&"" r2.open s2 , db, 3 set rs13=server.createobject("adodb.recordset") s2="select * from directory_inquiry where Supplier_id="&session("myid")&" " rs13.open s2 , db, 3 set rs12=server.createobject("adodb.recordset") s2="select * from product_inquiry where Supplier_id="&session("myid")&" " rs12.open s2 , db, 3 s="select * from supplier where supplier_id ="&session("myid") r1.open s, db, 3 set rs=server.createobject("adodb.recordset") s="select * from member where member_id ="&request.querystring("member_id") rs.open s, db, 3 response.write "
" response.write "
" response.write "" response.write "" response.write "" 'response.write "" 'response.write "" response.write "" response.write "

" response.write "  View Supplier Inquiry ("&rs13.recordcount&")
" response.write "  View Product Inquiry ("&rs12.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 ""&r1("company_name")&"

" if session("Company_name")="" then session("Company_Name")= r1("company_name") 'for i=1 to r2.pagesize if not r2.eof then response.write"" response.write"
" response.write"" response.write"" response.write "
-----------------Contact Details-----------------
Full Name : " response.write rs("Name") response.write "
Organisation : " response.write rs("Company") response.write "
Email : " response.write rs("email") response.write "
-----------------Inquiry Details-----------------
Inquiry Date : " response.write r2("Inquiry_date") response.write "
Requirements / Message : " response.write r2("message") response.write "

" end if r2.close %>

" %>
Please Reply To : <% response.write rs("email")&"

Reply : *

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

<% response.write "
" 'r1.close set r1=nothing set r2=nothing set r3=nothing set r4=nothing db.close set db=nothing End Sub %>