| |
<%
Set rs = Server.CreateObject("ADODB.Recordset")
MySql="SELECT Count(*) AS MessageTot FROM messages"
Set rs.ActiveConnection = my_Conn
rs.Open MySql
MessageTot=rs("MessageTot")
rs.close
%>
Forum contains <%=MessageTot%> messages:
<% Rem Now extract the message list from the database and thread messages%>
<%
MySql="SELECT messages.* FROM messages ORDER BY messages.threadID DESC, messages.MessageID;"
RS.cursorlocation=aduseclient
RS.Open MySql, my_Conn, adOpenStatic, adLockReadOnly, adCmdText
If Request.QueryString("page") = "" Then
iCurrentPage = 1
Else
iCurrentPage = CInt(Request.QueryString("page"))
End If
RS.PageSize = postsperpage
If RS.PageCount > 0 then
RS.AbsolutePage = iCurrentPage
Else
iCurrentPage = 1
End If
Session("CurrentPage") = iCurrentPage
indents=0
do while RS.AbsolutePage = iCurrentPage And Not RS.EOF
dim tt
tt = rs("messageID")
For n = 1 to len(tt)
if mid(tt, n, 1) = "." Then
indents = indents + 1
End If
next
Response.write ""
For n= 1 to indents
Response.write " "
Next
lpDate=RS("Posted")
If DateDiff("d",lpDate , DATE) < DAYflag then
lastpostday=weekday(lpDate)
pTime = formatdatetime(lpDate, 4)
lpDate =pweekday(lastpostday) & " " & pTime
End If
Response.write "  " & rs("Subject") & " by " & RS("Poster") & " - " & lpDate & ""
snow1 = RS("Posted")
If DateDiff("d", snow1, DATE) < NEWflag then
Response.write " - NEW!!"
End If
%>
<%
if (Session("name")="admin") Then
response.write " - Delete"
if rs("MessageNo")=1 Then
Response.write " (this will delete all messages in the thread)"
End If
session("deleter")="yes"
End If
%>
<%
Response.write "
"
indents = 0
RS.MoveNext
Loop
%>
<%
If RS.PageCount > 1 then
'Print Previous Page if required
If iCurrentPage <> 1 then
Response.Write "Previous Page"
Else
Response.Write "Previous Page"
End If
'Print direct access page numbers.
For intCount = 1 to RS.PageCount
If intCount = 1 then
Response.Write " | "
End If
If intCount = iCurrentPage then
Response.Write "" & intCount & " | "
Else
Response.Write "" & intCount & " | "
End If
Next
'Print Next Page if required
If iCurrentPage <> RS.PageCount then
Response.Write "Next Page"
Else
Response.Write "Next Page"
End If
End If
if rs.PageCount<>0 then
Response.Write "
Page " & iCurrentPage & " of " & RS.PageCount & ""
end if
%>
<% Rem Not draw the form where new messages can be entered:%>
<%
TypeofPost="New"
PrevID=""
my_conn.close
%>
|
|
