<%@Language=VBScript%> <% pHome=" class='active'" %>

News

<% response.write "
    " Set oRS=Server.CreateObject("ADODB.recordset") sqltext = "Select * from Item where SubCategoryID = 8 and ItemStatus='A' and PostStartDate <= getdate() and PostEndDate>= getdate() order by PostEndDate desc" oRS.open sqltext, objConn if not oRS.EOF then do while not oRS.EOF if oRS("SpecificationURL")<>"" then pSpecURLAddr=oRS("SpecificationURL") else pSpecURLAddr="#" end if response.write "
  • " response.write "
    " response.write " " response.write "
    " response.write "
    " response.write "

    "& oRS("ItemName")&"

    " response.write "
    "&oRS("PostEndDate")&"
    " response.write "

    "& oRS("ShortDescription")&"

    " response.write "
    " response.write "





  • " oRS.movenext loop end if %>