<% 'Open CATEGORY sqlStr="SELECT * from NEWS where newsexpire > #"&DATE()&"# ORDER by newsdate DESC" set rs_qCATEGORY_INFO=Server.CreateObject("adodb.Recordset") rs_qCATEGORY_INFO.Open sqlStr, DBConn, 1,3 %> ADMIN CATEGORY <% if NOT rs_qCATEGORY_INFO.EOF Then %> <% do until rs_qCATEGORY_INFO.EOF %> <% rs_qCATEGORY_INFO.MoveNext Loop %>
HOT OFFERS
 
 
<% =(rs_qCATEGORY_INFO("newsdate"))%>  <% =(rs_qCATEGORY_INFO("newstitle"))%>  <% if rs_qCATEGORY_INFO("newstype")=1 then %> FOR SALE <% Else %> Purchase <% End If %>
 Specification/Quantity:
  
<% =Replace(rs_qCATEGORY_INFO("newsspec"),vbCR,"
")%>
 Price:
 
<% =rs_qCATEGORY_INFO("newsprice")%>
 Quantity:
 
<% =rs_qCATEGORY_INFO("newsquality")%>
 Expire on: <% =rs_qCATEGORY_INFO("NEWSEXPIRE")%>
 
<% else %>
HOT OFFERS
 
  There no HOT Offers
<% end if %>