<%
Dim rst, strSQL
set rst = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM message_board ORDER BY id DESC"
rst.Open strSQL, connect, 3, 1, 1
Dim IntPageSize, PageIndex, TotalPages, TotalRecords
Dim RecordCount, RecordNumber
IntPageSize = 5
PageIndex = Request("PageIndex")
'If pageIndex is empty, set it to one.
if PageIndex = "" then PageIndex = 1
RecordCount = rst.RecordCount
RecordNumber = (PageIndex * IntPageSize) - (IntPageSize)
If Not rst.Eof then
rst.PageSize = intPageSize ' Set the number of records per page
rst.AbsolutePage = PageIndex 'Define what page number on which the current record resides.
Else
Response.Write "
There are currently not posts."
End If
TotalPages = rst.PageCount
dim intPrev, intNext
intPrev = PageIndex - 1
intNext = PageIndex + 1 'same as rst.AbsolutePage
Dim Count 'We'll use this to limit the number of records displayed on a page
Count = 1
Dim strName
Dim strEmail
Dim strField1
Dim strField2
Dim strComments
Dim strDate
do while NOT rst.EOF AND Count <= IntPageSize
strName = Trim(rst("name"))
strEmail = Trim(rst("email"))
strField1 = Trim(rst("field1"))
strField2 = Trim(rst("field2"))
If rst("comments") <> "0" Or rst("comments") <> "" Then
strComments = Replace(Replace(Trim(rst("comments")),"''","'"),Chr(34),"'")
End if
strDate = Trim(rst("date"))
%>
<%=strName%>
visits the new VOC site <%=strField1%> and enjoys listening to <%=strField2%>.
<%if rst("comments") <> "" Then%>
This's what he/she had to say "<%=strComments%>".
<%End If%>
Posted <%=strDate%>
|
|
|
<%
count = count + 1
rst.MoveNext
loop
If Not rst.Bof then
Response.Write "
| "
call BuildNav2 (intPrev,IntNext,TotalPages)
response.write " |
"
rst.close
End If
%>
TELL US WHAT'S ON YOUR MIND:
|
|
|
|