<!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.asp"--><link href="inc/style.css" rel="stylesheet" type="text/css"><DIV id=icefable1 style="WIDTH: 515px; height:60px; ">
<table width="515" border="0" style="border-collapse: collapse"  cellpadding="0" height="60">
<tr>
<%
dim rsnew,onepage,y
set rsnew=server.createobject("adodb.recordset")
sqlnew = "select zcdata,username,com,class1 from jle_com where yz=1 order by zcdata desc"
rsnew.open sqlnew,conn,1,1
onepage=30
for y=1 to 2
response.write "<TD width=350>"
for i=1 to onepage
if rsnew.eof then exit for
dim rsc,sqlc,id_1
set rsc=server.createobject("adodb.recordset")
sqlc = "select id,class1 from jle_class1 where id="&cstr(rsnew("class1"))
rsc.open sqlc,conn,1,1
'id_1=rsc("id")
On Error Resume Next

response.write "<A TARGET=_blank HREF=""info.asp?/="&rsnew("class1")&"&cnmai=1"">["&rsc("class1")&"]</a><font color=#336699 size=2>กค</font><A class=left TARGET=_blank HREF=""com.asp?m="&rsnew("username")&""">"&left(rsnew("com"),12)&"</A>  <FONT color=#336699>"&month(rsnew("zcdata"))&"/"&day(rsnew("zcdata"))&"</FONT ><br>" 
rsnew.movenext
next
response.write "</TD>"
next
rsc.close
rsnew.close
set rsnew=nothing
set rsc=nothing
call closedb()
%>
</tr></table>
</DIV>
<DIV id=icefable2 style="Z-INDEX: 1; VISIBILITY: hidden; POSITION: absolute"></DIV>
<SCRIPT>marqueesHeight=60;stopscroll=false;icefable1.scrollTop=0;with(icefable1){style.width=0;style.height=marqueesHeight;style.overflowX='visible';style.overflowY='hidden';noWrap=true;onmouseover=new Function('stopscroll=true');onmouseout=new Function('stopscroll=false');}preTop=0; currentTop=0;stoptime=0;function init_srolltext(){icefable2.innerHTML='';icefable2.innerHTML+=icefable1.innerHTML;icefable1.innerHTML=icefable2.innerHTML+icefable2.innerHTML;setInterval('scrollUp()',6);}function scrollUp(){if(stopscroll==true) return;currentTop+=1;if(currentTop==58){stoptime+=1;currentTop-=1;if(stoptime==350){currentTop=0;stoptime=0;}}else{preTop=icefable1.scrollTop;icefable1.scrollTop+=1;if(preTop==icefable1.scrollTop){ icefable1.scrollTop=icefable2.offsetHeight-marqueesHeight;icefable1.scrollTop+=1;}}}init_srolltext();</SCRIPT>