 |
SkullBoy Sympathy Notes | Write your own note »
<%
Dim Page_Size
Dim Current_Page
Dim Page_Count
Dim RS, SQL
Page_Size = 8 'this is where you set the # of records displayed per page
If Request("Page") = "" Then
Current_Page = 1
Else
Current_Page = CInt(Request("Page"))
End If
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.CursorLocation = adUseClient
RS.PageSize = Page_Size
SQL = "SELECT gb.gbID, gb.gbName, gb.gbEmail, gb.gbDate, gb.gbTitle, gb.gbComments FROM gb WHERE gb.gbStatus = 1 ORDER BY gb.gbDate DESC;"
RS.Open SQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
Page_Count = RS.PageCount
If 1 > Current_Page Then Current_Page = 1
If Current_Page > Page_Count Then Current_Page = Page_Count
RS.AbsolutePage = Current_Page
Do While RS.AbsolutePage = Current_Page And Not RS.EOF
response.write ""
If RS("gbName") = "" then
If RS("gbEmail") = "" then
response.write "anonymous"
else
response.write "" & RS("gbEmail") & ""
end if
else
If RS("gbEmail") = "" then
response.write RS("gbName")
else
response.write "" & RS("gbName") & ""
end if
end if
response.write " | "
response.write RS("gbDate")
response.write "
"
If RS("gbTitle") <> "" then
response.write ""
response.write RS("gbTitle")
response.write "
"
end if
response.write ""
response.write RS("gbComments")
response.write "
"
%>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
%>
<% 'Navigation System
If Current_Page <> 1 Then
Response.Write "« previous page " & vbCrLf
Response.Write " " & vbCrLf
End If
If Current_Page < Page_Count Then
Response.Write " next page »" & vbCrLf
End If
'End Navigation System
%>
|
|
 |
|
