|
| New News |
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="Select * from News order by id desc"
rs.Open sql,conn,1,1
if not Rs.eof then
do while not rs.eof
t=t+1
%>
| <%= t %> |
" title="<%=rs("Entitle")%>"><%=left(rs("Entitle"),10)%> |
<%
if t>=10 then exit do
rs.movenext
loop
else
response.write "| There is no record | "
end if
rs.close
%>
|
| Top News |
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="Select * from News order by hits desc"
rs.Open sql,conn,1,1
if not Rs.eof then
do while not rs.eof
t=t+1
%>
| กก" title="<%=rs("Entitle")%>"><%=left(rs("Entitle"),10)%> |
<%=rs("hits")%> |
<%
if t>=10 then exit do
rs.movenext
loop
else
response.write "| There is no record | "
end if
rs.close
%>
|
|