| |
| 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. |
|
|
| Biz
Trade Lead |
|
|
<%
if dellead_id <> "" then
qdeltrade = "update trade_lead set leaD_Deleted = 1 , Deleted_Date = '"&now()&"' where lead_id="&dellead_id
set rsdeltrade = server.createObject("adodb.recordset")
rsdeltrade.open qdeltrade,db,3,2
qdelinq = "update trade_lead_Inquiry set Inquiry_Deleted = 1 , Delete_Date = '"&now()&"' where Lead_Id="&dellead_id
set rsinq = server.createObject("adodb.recordset")
rsinq.open qdelinq,db, 3,2
qdelresp = "update trade_lead_Response set Response_Deleted = 1 where Lead_Id="&dellead_id
set rsres = server.createObject("adodb.recordset")
rsres.open qdelresp,db, 3,2
end if
qtrade = "Select * from trade_lead where Id = "&suid&" and Post_Type='Biz' and getdate() < Expiry_Date order by post_date desc"
set rstrade = server.CreateObject("adodb.Recordset")
rstrade.open qtrade,db,3,2
count = rstrade.recordcount
%>
| Total
Biz Leads : <%=count%> |
<% if not rstrade.eof then %>
| No. |
Offer_Title |
Category |
Status |
Action |
<%
coun = 1
do while not rstrade.eof
qcat = "Select category from category_mst where cat_id="&rstrade("lead_cat_id")&""
set rscat = server.CreateObject("adodb.recordset")
rscat.open qcat,db,3,2
%>
| <%=coun%> |
<%=propercase(rstrade("offer_Title"))%> |
<%=rscat("Category")%> |
<% if rstrade("valid") = false then
Response.write "Not Activate"
else
Response.write "Activate"
end if %>
|
">View
| ">Edit
| Delete
|
<%
coun = coun + 1
rstrade.movenext
loop
else
%>
| There
is no lead at present. |
<%end if%>
|
| |
|
|