|
|
|
My Handicrafts is a section entirely dedicated to give our valued members complete freedom to customise and manage all subscriber related operations on easy2source.com.
You can post buy/sell offers, update your company profile, add product keywords, keep track of all your inquiries, receive trade alerts and much more.
|
|
|
| My Products |
|
|
<%
delprod_id = request("delprod_id")
if delprod_id <> "" then
qdelprod = "update product set Product_Delete = '1',Delete_Date = '"&now()&"' where prod_id ="&delprod_id
set rsdel = server.createObject("adodb.recordset")
rsdel.open qdelprod,db,3
qdelinq = "update inquiry_mst set Inquiry_Deleted = 1, Delete_Date = '"&now()&"' where prod_id="&delprod_id
set rsinq = server.createObject("adodb.recordset")
rsinq.open qdelinq,db, 3,2
qdelresp = "update inquiry_response set Response_Deleted = 1 where prod_id="&delprod_id
set rsresp = server.createObject("adodb.recordset")
rsresp.open qdelresp,db,3,2
end if
set rsprod = server.CreateObject("adodb.Recordset")
qprod="Select * from product where supplier_id="&rslog("Supplier_id")&" order by date_added desc "
rsprod.open qprod,db,3,2
if not rsprod.eof then
count = rsprod.recordcount
coun = 1
%>
| Total Products : <%=count%> |
| No. |
Name |
Category |
Status |
Action |
<% for L = 1 to count
%>
|
<%=coun%> |
<%=Propercase(rsprod("Product_Name"))%> |
<%
category = ""
if rsprod("cat_id") <> "" then
qcat = "Select Category from category where cat_id="&rsprod("cat_id")&""
set rscat = server.CreateObject("adodb.Recordset")
rscat.open qcat,db,3,2
if not rscat.eof then category = Propercase(rscat("Category"))
end if
%>
<%=category%> |
<%
if rsprod("Activate") = false or rsprod("Suspend") = true then
Response.write "Not Activate"
else
Response.write "Activate"
end if
%>
|
">View
|">Edit
|Delete
|
<%
coun = coun + 1
rsprod.movenext
next
else
%>
|
There Is no product at present in
your list. |
<%end if%>
|
|
|