<!--#include virtual="/c4dportal2/forum/functions/functions_date_time_for mat.asp" -->
<!--#include virtual="/c4dportal2/forum/common.asp" -->
<%
'Create  DSN Less connection to Access Database
'Create DBConnection Object
Set DBConnection = Server.CreateObject("adodb.connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.Mappath("xx.mdb")
DBConnection.Open DSN

'Set amount of post to be displayed.
numnews = 9
'Set forum number to list news from
frmnum = 23
'The message will be truncated at the first space after this number of characters
intTruncate = 100000
'Count the Records 
   SQLcount = "Select * From tblTopic Where Forum_ID ="&frmnum&" and Priority <1"
      Set RS = DBConnection.Execute(SQLcount)

 Select Case RS.eof
      Case False
        tempRSCount = RS.getrows
        Set RS = Nothing
        count = Cdbl(UBound(tempRSCount, 2)) + 1
                 
     Case True
      count = "0"
 End Select
     Set RS = Nothing
     
       IF count > 0 Then
       IF count > numnews Then
       count = numnews
       Else
    End IF
      
      while not count = 0
      count = count - 1
      
  SQL = "Select * From tblTopic Where Forum_ID ="&frmnum&" and Priority <1 ORDER BY Topic_ID DESC"
      Set RS = DBConnection.Execute(SQL)

Select * From tblTopic Where Forum_ID ="&frmnum&" and Priority <1

Create Procedure mod_sp_gettopics
(
@forumID int
)
AS
Select * from tblTopics where ForumID = @forumID and Priority < 1
go

Set RS = server.CreateObject("ADODB.Recordset")
      SQL = "Select Subject, Start_Date, Topic_ID From tblTopic Where Forum_ID ="&frmnum&" and Priority <1 ORDER BY Topic_ID DESC"
      rs.Open strSQL, adoCon
              
        rs.move idc
        idc = idc + 1
          
         title = rs("Subject") 
         date1 = rs("Start_Date")
         topicnum = rs("Topic_ID")