 |
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sqlstr="select top 3 title,path,date1,shortgraph from newscool where classid = 2 ORDER BY date1 desc"
rs.open sqlstr,myconn
while not rs.eof
title1=rs("title")
if len(title1)>18 then
title1=left(title1,16) & "..."
end if
%>
|
|
<%
rs.movenext
wend
rs.close
set rs = nothing
%>
|
| |
|
|
|
|
