<%
Set srs=Server.CreateObject("ADODB.RecordSet")
ssql="Select * from tblPNclass order by FNclassid asc"
srs.open ssql,conn,1,1
Do While Not srs.eof
%>
<%
srs.MoveNext
loop
srs.close
set srs = nothing
%>
<%
Set srs=Server.CreateObject("ADODB.RecordSet")
ssql="Select * from tblPNclass order by FNclassid asc"
srs.open ssql,conn,1,1
Do While Not srs.eof
%>
<%
srs.MoveNext
loop
srs.close
set srs = nothing
%>
<%
Set srs=Server.CreateObject("ADODB.RecordSet")
ssql="Select * from tblPNclass order by FNclassid asc"
srs.open ssql,conn,1,1
Do While Not srs.eof
%>
<%
srs.MoveNext
loop
srs.close
set srs = nothing
%>
<%
Set srs=Server.CreateObject("ADODB.RecordSet")
ssql="Select * from tblPNclass order by FNclassid asc"
srs.open ssql,conn,1,1
Do While Not srs.eof
%>
<%
srs.MoveNext
loop
srs.close
set srs = nothing
%>
<%
Set srs=Server.CreateObject("ADODB.RecordSet")
ssql="Select * from tblPNclass1 order by FNclassid asc"
srs.open ssql,conn,1,1
Do While Not srs.eof
%>
<%
srs.MoveNext
loop
srs.close
set srs = nothing
%>
<%
Set srs=Server.CreateObject("ADODB.RecordSet")
ssql="Select * from tblPNclass order by FNclassid asc"
srs.open ssql,conn,1,1
Do While Not srs.eof
%>
<%
srs.MoveNext
loop
srs.close
set srs = nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.RecordSet")
sql1="Select top 1 * from TblArticle where FLock=0 and FMode=1 and FSpecial=true and FDefaultPicUrl<>"""" order by FArticleID desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<%
rs1.MoveNext
loop
rs1.close
set rs1 = nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.RecordSet")
sql1="Select top 10 * from TblArticle where FLock=0 and FMode=1 and FSpecial=true order by FArticleID desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<%
rs1.MoveNext
loop
rs1.close
set rs1 = nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.RecordSet")
sql1="Select top 10 * from TblArticle where FLock=0 and FMode=1 and FSpecial=true order by FArticleID desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<%
rs1.MoveNext
loop
rs1.close
set rs1 = nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.RecordSet")
sql1="Select top 10 * from TblArticle where FLock=0 and FMode=1 and FSpecial=true order by FArticleID desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<%
rs1.MoveNext
loop
rs1.close
set rs1 = nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.RecordSet")
sql1="Select top 10 * from TblArticle where FLock=0 and FMode=1 and FSpecial=true order by FArticleID desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
