 |
|
|
| Categories |
|
<%
Set RS = Server.CreateObject("ADODB.Recordset")
Dim colorchanger
Dim color1
Dim color2
colorchanger = 0
color1 = "#C5D3E7"
color2 = "#B0C4DE"
dim intPage
dim intPageCount
dim intRecordCount
If Request.QueryString("page") = "" Then
intPage = 1
Else
intPage = Request.QueryString("page")
End If
RS.CursorLocation = 3
RS.CursorType = 3
RS.ActiveConnection = Conn
SQL = "SELECT * FROM Categories"
RS.Open SQL, Conn, 1, 3
RS.PageSize = 20
RS.CacheSize = RS.PageSize
intPageCount = RS.PageCount
intRecordCount = RS.RecordCount
If NOT (RS.BOF AND RS.EOF) Then
%>
|
Category Name |
<%
If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount
If CInt(intPage) <= 0 Then intPage = 1
If intRecordCount > 0 Then
RS.AbsolutePage = intPage
intStart = RS.AbsolutePosition
If CInt(intPage) = CInt(intPageCount) Then
intFinish = intRecordCount
Else
intFinish = intStart + (RS.PageSize - 1)
End if
End If
If intRecordCount > 0 Then
For intRecord = 1 to RS.PageSize
%>
| ">Remove |
<%=RS("Category")%> |
<%
RS.MoveNext
If colorchanger = 1 Then
colorchanger = 0
color1 = "#C5D3E7"
color2 = "#B0C4DE"
Else
colorchanger = 1
color1 = "#DAE3F0"
color2 = "#C5D3E7"
End If
If RS.EOF Then Exit for
Next
%>
|
<%If cInt(intPage) > 1 Then%>
<< Prev
<%End If%>
|
<%If cInt(intPage) < cInt(intPageCount) Then%>
Next >>
<%End If%>
| |
<%End If
Else%>
There are currently no categories.
<%
End If
RS.close
Set RS = Nothing
%>
|
|
|
