<%
Dim DBC10,Conn10
Set DBC10 = New DataBaseClass
Set Conn10 = DBC10.OpenConnection()
Set DBC10 = Nothing
set rs10=conn10.execute("select top 13 * from News where ClassID=27 and DelFlag=0 order by newsid DESC")
do while Not Rs10.Eof
title=rs10("title")
%>
<%
Dim DBC20,Conn20
Set DBC20 = New DataBaseClass
Set Conn20 = DBC20.OpenConnection()
Set DBC20 = Nothing
set rs20=conn20.execute("select top 13 * from News where ClassID=28 and DelFlag=0 order by newsid DESC")
do while Not Rs20.Eof
title=rs20("title")
%>
<%
Dim DBC1,Conn1
Set DBC1 = New DataBaseClass
Set Conn1 = DBC1.OpenConnection()
Set DBC1 = Nothing
set rs1=conn1.execute("select top 1 * from News where ClassID=19 and DelFlag=0 and PicNewsTF=1 and MinPicPath is not null order by newsid DESC")
do while Not Rs1.Eof
title=rs1("title")
%>
<%
Dim DBC2,Conn2
Set DBC2 = New DataBaseClass
Set Conn2 = DBC2.OpenConnection()
Set DBC2 = Nothing
set rs2=Conn2.execute("select top 1 * from News where ClassID=20 and DelFlag=0 and PicNewsTF=1 and MinPicPath is not null order by newsid DESC")
do while Not rs2.Eof
title=rs2("title")
%>
<%
Dim DBC3,Conn3
Set DBC3 = New DataBaseClass
Set Conn3 = DBC3.OpenConnection()
Set DBC3 = Nothing
set rs3=Conn3.execute("select top 1 * from News where ClassID=23 and DelFlag=0 and PicNewsTF=1 and MinPicPath is not null order by newsid DESC")
do while Not rs3.Eof
title=rs3("title")
%>
<%
Dim DBC4,Conn4
Set DBC4 = New DataBaseClass
Set Conn4 = DBC4.OpenConnection()
Set DBC4 = Nothing
set rs4=Conn4.execute("select top 1 * from News where ClassID=25 and DelFlag=0 and PicNewsTF=1 and MinPicPath is not null order by newsid DESC")
do while Not rs4.Eof
title=rs4("title")
%>
<%
Dim DBC5,Conn5
Set DBC5 = New DataBaseClass
Set Conn5 = DBC5.OpenConnection()
Set DBC5 = Nothing
set rs5=Conn5.execute("select top 1 * from News where ClassID=21 and DelFlag=0 and PicNewsTF=1 and MinPicPath is not null order by newsid DESC")
do while Not rs5.Eof
title=rs5("title")
%>
<%
Dim DBC6,Conn6
Set DBC6 = New DataBaseClass
Set Conn6 = DBC6.OpenConnection()
Set DBC6 = Nothing
set rs6=Conn6.execute("select top 1 * from News where ClassID=14 and DelFlag=0 and PicNewsTF=1 and MinPicPath is not null order by newsid DESC")
do while Not rs6.Eof
title=rs6("title")
%>
<%
Dim DBC10,Conn10
Set DBC10 = New DataBaseClass
Set Conn10 = DBC10.OpenConnection()
Set DBC10 = Nothing
set rs10=conn10.execute("select top 13 * from News where ClassID=27 and DelFlag=0 order by newsid DESC")
do while Not Rs10.Eof
title=rs10("title")
%>
<%
Dim DBC20,Conn20
Set DBC20 = New DataBaseClass
Set Conn20 = DBC20.OpenConnection()
Set DBC20 = Nothing
set rs20=conn20.execute("select top 13 * from News where ClassID=28 and DelFlag=0 order by newsid DESC")
do while Not Rs20.Eof
title=rs20("title")
%>