<%
Set rs = Server.CreateObject("ADODB.Recordset")
sqlstr="select top 7 title,path,date1 from newscool where classid=2 ORDER BY date1 desc"
rs.open sqlstr,myconn
do while not rs.eof
title1=rs("title")
if len(title1)>18 then
title1=left(title1,16) & "..."
end if
if rs("date1") >(date-15) then
img1=""
else
img1=""
end if
response.write " " & title1 & img1 & " "
'response.write "