Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT tz_id,tz_to,tz_time,tz_cont,tz_detail FROM z_tz where tz_time > '"&now()&"' order by tz_time"
rs.OPEN sql, Conn,1,1
if rs.eof and rs.bof Then
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "无最新通知"
response.end
end if
For i = 1 to rs.recordcount%>
<FONT COLOR="#0000FF">人员:</FONT><%=rs("tz_to")%><br>
<FONT COLOR="#0000FF">内容:</FONT><%=rs("tz_cont")%><br>
<FONT COLOR="#0000FF">时间:</FONT><%=rs("tz_time")%><br><br>
<%
rs.movenext
If rs.EOF Then
Exit For
End If
Next
rs.close
set rs=nothing
conn.close
set conn=Nothing
%>
...
</marquee>