"
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 "