<%
Dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
Dim sqlCmd
sqlCmd="select top 7 ArticleID,title from Article where classID=58 and passed=true and deleted =false order by ArticleID desc"
RS.open sqlCmd,conn,3,2
If Not RS.bof Or Not RS.eof Then
while not rs.eof
strTitle= rs("Title")
Response.Write("
<%
sqlCmd="select top 7 ArticleID,title from Article where classID=59 and passed=true and deleted =false order by ArticleID desc"
RS.open sqlCmd,conn,3,2
If Not RS.bof Or Not RS.eof Then
while not rs.eof
strTitle= rs("Title")
Response.Write("
