<%
cat = Request.QueryString("CatID")
status = Request.QueryString("status")
if status = "delete" then
Response.Write "
Click each link to delete it!
"
CONN_STRING = "DBQ=" & Server.MapPath("../../cgi-bin/syphax.mdb") & ";"
CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};"
Dim iPageSize
Dim iPageCount
Dim iPageCurrent
Dim strOrderBy
Dim strSQL
Dim objPagingConn
Dim objPagingRS
Dim iRecordsShown
Dim I
iPageSize = 10
'set page size
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If
strSQL ="SELECT * From link2 where Category='" & cat & "' order by ID"
' select sql from the table..my table in link.mdb name "link2"
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING
'open connection
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly,adCmdText
reccount = objPagingRS.recordcount
iPageCount = objPagingRS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write "
No records found!
"
Else
objPagingRS.AbsolutePage = iPageCurrent
%>
found <%=reccount%> sites
<%
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
%>
<%
iRecordsShown = iRecordsShown + 1
objPagingRS.MoveNext
Loop
%>
<%
End If
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing
If iPageCurrent <> 1 Then
%>
Previous
<%
End If
If iPageCurrent < iPageCount Then
%>
Next
<%
End If
%>
Page <%= iPageCurrent %>
of <%= iPageCount %>
<%else%>
<%
CONN_STRING = "DBQ=" & Server.MapPath("../../cgi-bin/syphax.mdb") & ";"
CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};"
iPageSize = 10
'set page size
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If
strSQL ="SELECT * From link2 where Category='" & cat & "' order by ID "
' select sql from the table..my table in link.mdb name "link2"
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING
'open connection
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly,adCmdText
reccount = objPagingRS.recordcount
iPageCount = objPagingRS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write "
No records found!
"
Else
objPagingRS.AbsolutePage = iPageCurrent
%>
found <%=reccount%> sites
<%
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
%>
<%
iRecordsShown = iRecordsShown + 1
objPagingRS.MoveNext
Loop
%>
<%
End If
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing
If iPageCurrent <> 1 Then
%>
Previous
<%
End If
If iPageCurrent < iPageCount Then
%>
Next
<%
End If
%>
Page <%= iPageCurrent %>
of <%= iPageCount %>
<%end if%>