<%
set Recordset = Server.CreateObject("ADODB.Recordset")
Recordset.ActiveConnection = dbpath
Recordset.Cursortype = 1
RecordSet.Open = "Select * from board WHERE forum ='"&fm&"'"%>
Forum - <%=fm%> <%if session("user-logged") = "Yes" then%>Post a message &reply=<%="Ref:"&request("subject")%>">Reply Members Area<%end if%> |
<%
dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter
' added
If x=0 then
' records per page
recordsonpage = 1
' count all records
allrecords = 0
Recordset.MoveNext
do until Recordset.EOF
allrecords = allrecords + 1
Recordset.movenext
loop
Recordset.close
' if offset is zero then the first page will be loaded
offset = request.querystring("offset")
if offset = 0 OR offset = "" then
requestrecords = 0
else
requestrecords = requestrecords + offset
end if
Recordset.open
Recordset.MoveLast
' reads first records (offset) without showing them (can't find another solution!)
hiddenrecords = requestrecords
do until hiddenrecords = 0 OR Recordset.BOF
hiddenrecords = hiddenrecords - 1
Recordset.MovePrevious
if Recordset.BOF then
lastrecord = 1
end if
loop
' end added
' replaced do while
showrecords = recordsonpage
recordcounter = requestrecords
do until showrecords = 0 OR Recordset.BOF
recordcounter = recordcounter + 1
' end replaced do while
%>
<%
dim url, segments
url = Request.ServerVariables("path_info")
segments = split(url,"/")
url = segments(ubound(segments))
'Session("message_ID")=Request.ServerVariables("URL")&"?"&"forum="&fm&"&subject="&sb&"&offset="&offset+1
Session("message_ID")=url&"?"&"forum="&fm&"&subject="&sb&"&offset="&offset+1
If Recordset("reply")="YES" Then
Response.Write("
")
Response.Write("")
Response.Write("")
Response.Write(Recordset("Member")&" replied to ")%>
"><%Response.Write(Recordset("subject"))%>
<%Else
Response.Write("")
Response.Write("")
Response.Write("")
Response.Write(Recordset("Member")&" says ")
Response.Write("")%>
<%Response.Write(Recordset("subject"))%>
<%End If
Response.Write(CHR(13))
Response.Write("")
Response.Write(Recordset("date")&" ")
Response.Write(Recordset("time"))
Response.Write("")
index=Recordset("index")%>
<%showrecords = showrecords - 1
Recordset.moveprevious
if Recordset.BOF then
lastrecord = 1
end if
loop
%>
<%Recordset.close
Set Recordset=Nothing
end if%>
<% if lastrecord <> 1 then %>&offset=<% = requestrecords + recordsonpage %>">Prev Posts<% else %>At Begining<% end if %>
<% if requestrecords <> 0 then %> &offset=<% = requestrecords - recordsonpage %>">Next Posts<% else %>End of Posts<% end if %>
