"
response.write ""
response.write " | | "
response.write ""
response.write ""&r1("company_name")&" "
if len(r1("Contact_person")) > 2 then
response.write " Dear "&r1("Contact_person")&","
else
response.write " Dear Member,"
end if
if count=0 then
response.write " You have no product registered with us."
exit sub
end if
response.write " Listed below is your product range registered with us."
response.write " "
End Sub
%>
<%
Sub validation3
connection
accessdb="temp.mdb"
tempDSN="DRIVER={Microsoft Access Driver (*.mdb)};"
tempDSN=tempDSN & "DBQ=" & server.mappath(accessdb)
set db1=server.createobject("adodb.connection")
db1.open tempDSN
s="select company_name,supplier_id from supplier where supplier_id ="&r("supplier_id")
set r1=server.createobject("adodb.recordset")
r1.open s, db, 3
set ra1=server.createobject("adodb.recordset")
s="select prod_Id,product_name,date_added from product where supplier_id="&r1("supplier_id")&" order by date_added desc"
set r2=server.createobject("adodb.recordset")
r2.open s, db, 3
count=r2.recordcount
response.write ""
ra1.open "select * from del_product where supplier_id ="&r("supplier_id"),db1,3
if count = ra1.recordcount then
flag= false
response.write " "
response.write ""&r1("company_name")&""
response.write " "
response.write "| Add Products | Change Password |
"
response.write " You have still not listed any product with us. We have a large number of buyers looking out for a wide range of products in various categories. Some one could be specifically looking out for your product range. So click on Add Product to add your entire product range now and open the doors to unlimited business opportunities. "
exit sub
end if
ra1.close
r1.close
r2.close
set r1=nothing
set r2=nothing
db.close
set db=nothing
End Sub
%>
|