<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%	dim temp_note
	temp_note="福建交友中心--即时贴为您服务： "
	sql="select top 20 mynote.*,user.nickname from user,mynote where user.user_name=mynote.user_name order by time desc"
	Set rs1 = Server.CreateObject("ADODB.Recordset")
	rs1.Open sql,conn1,3,2
	while not rs1.EOF 
		temp_note=temp_note&rs1("nickname")
		temp_note=temp_note&"说："
		temp_note=temp_note&rs1("mynote")
		temp_note=temp_note&" ——"&rs1("time")&"; "	
	rs1.MoveNext
	wend 
	
%>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=3>
	<TR  bgcolor=#ffcc00 height=30>
		<TD width=58>即时帖:</TD>
		<TD>
		<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=1>
	<TR  valign=middle>
		<TD bgcolor=#FFF8E1 ><DIV STYLE="position:absolute; height:30px"><center><MARQUEE  width=100% direction=left onmouseover="this.stop()" onmouseout="this.start()" style="HEIGHT: 20px;" scrollAmount="3"><p><font size="2"><%=temp_note%></font></p></MARQUEE></center></DIV>
		&nbsp;</TD>
	</TR>
</TABLE>

		</TD>
	</TR>
</TABLE>
