<%
Option Explicit
Dim ConnectString,sql,conn,rsEntries,count,replies
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("philbbs.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
sql = "SELECT subject, replies, id FROM messages WHERE replyto = 0 ORDER BY datetime DESC"
Set rsEntries = Server.CreateObject("ADODB.Recordset")
rsEntries.Open sql, conn, 3, 3
%>
Houseview
HouseView Message Board
Thread Roots:
(Full threading shown within each message)
Post new message
<%
rsEntries.Movefirst
'If viewing a previous set of messages, move to the right position
if Request.QueryString("recordnum") <> "" then
rsEntries.Move(Request.QueryString("recordnum"))
end if
for count = 1 to 30
if rsEntries("replies") = 0 then
replies = False
else
replies = True
end if
%>
- &root=<%=rsEntries("id")%>&replies=<%=replies%>"><%=rsEntries("subject")%> (<%=rsEntries("replies")%> replies)
<%rsEntries.Movenext
'Quit loop if no more messages left
if rsEntries.EOF then
exit for
end if
next
%>
<%if not rsEntries.EOF then%>
View previous messages
<%end if%>
<%
rsEntries.close
set rsEntries = nothing
conn.close
set conn = nothing
%>