Corporate Gifts, Greeting Cards, Novelties

<% Upper_Patch "supplier" dim member_id,directory_id,email,Inquiry_Date,Prod_Id email ="" member_id=request.querystring("member_id") Inquiry_Date=request.querystring("Inquiry_Date") Prod_Id=request.querystring("Prod_Id") dim db connection 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 response.write "

Home >> View Products Inquiries :

" 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 ""&session("company_name")&"" member response.write "

" Bottom_Patch response.write "

" %> <% sub member set rs=server.createobject("adodb.recordset") s2="select * from member where member_id="&member_id rs.open s2, db, 3 if not rs.eof then response.write "

" response.write "" response.write "" response.write "" if len(rs("fax"))>1 then response.write "" if len(rs("email"))>3 then response.write "" email = rs("email") end if set rs2=server.createobject("adodb.recordset") s2="select * from Product_Inquiry where member_id="&member_id&" and Prod_Id="&Prod_id&" and Supplier_id="&session("myid")&" " rs2.open s2, db, 3 if not rs2.eof then ' response.write "" ' response.write "" response.write "" end if response.write "

" response.write "Inquiry From "&rs("company")&"" response.write "
" response.write "Fullname :	"&rs("Name") response.write "
" response.write "Designation:	"&rs("designation") response.write "
" response.write "Address :	"&lcase(rs("address")) if len(rs("city"))>0 then response.write " "&lcase(rs("city")) if len(rs("pin"))>0 then response.write "-"&rs("pin") if len(rs("state"))>0 then response.write " "&lcase(rs("state")) if len(rs("country"))>0 then response.write " "&lcase(rs("country"))&"
" if len(rs("tel1"))>1 then response.write "Telephone :	"&rs("tel1") if len(rs("tel2"))>1 then response.write "/"&rs("tel2")&"
Fax :	"&rs("fax")&"
" response.write "E-Mail :	" response.write rs("email")&"
" ' response.write "The '"&rs("company")&"' indicated the following about his purchase plans: " ' response.write " - Planned order quantity is "&rs2("Qty")&" "&rs2("Measure")&" "&rs2("Period") ' response.write "
" ' response.write "The '"&rs("company")&"' has required the following information from your side: " ' if rs2("Min_Ord_Qty") <> " " then response.write " - Minimum order/purchase quantity " ' if rs2("Sample") <> " " then response.write " - Sample availability/cost " ' if rs2("Delivery") <> " " then response.write " - Delivery time " ' if rs2("Branch_Office") <> " " then response.write " - Branch office/sales rep for my location " ' if rs2("Trade_Show") <> " " then response.write " - Trade show schedule " ' if rs2("Company_Brochure") <> " " then response.write " - Company brochure " ' if rs2("Product_Catelog") <> " " then response.write " - Full product catalog " ' response.write "
" response.write " " response.write "Requirements / Message: " response.write ""&rs2("Message")&" " response.write "

" if email <> "" then %>