Navigacion en pagina ASP

rashid · #1 (**permalink**) 20/03/2002, 22:27

Hola Gente, ahora resulta que tngo una pagina que despliega todos los items en una base de datos, y al final quiero que divida en paginas el resultado y poder ir a pagina 2,3 etc.
Lo hago pero mal, ayudenme porfa a encontrar el problem.
Esta es la pagina que despliega los items:

<%
Dim iPageSize
Dim iPageCount
Dim iPageCurrent
Dim strOrderBy
Dim SQL
Dim iRecordsShown
Dim I
iCatID = Request.Querystring("CatID")
OpenDBConn
iPageSize = 10
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
Call DoPageHeader
Set GobjConnect = server.createobject("ADODB.Connection")
GobjConnect.open gsConnect
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.CursorLocation = adUseClient
objPagingRS.PageSize = iPageSize
gsSQL = ""
gsSQL = gsSQL & "SELECT * FROM Auctions WHERE CategoryID = " & SQLVal(iCatID) & " "
gsSQL = gsSQL & " AND AvailDate <= " & SQLDate(NOW)
gsSQL = gsSQL & " And Ended = false "
gsSQL = gsSQL & " ORDER BY CloseDate "
objPagingRS.Open gsSQL, GobjConnect, adOpenStatic, adLockReadOnly, adCmdText
tSQL = ""
tSQL = tSQL & "SELECT ID, CategoryName FROM Categories WHERE ID = " & SQLVal(iCatID)
Set Categoryrs = GobjConnect.Execute(tSQL)
iPageCount = objPagingRS.PageCount
If 1 > iPageCurrent Then iPageCurrent = 1
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
Response.Write("")
Response.Write("<CENTER><BI G><BIG>" & Categoryrs.Fields("CategoryName") & "</CENTER>")
Response.Write("<TD><B& gt;Title</TD>")
objPagingRS.AbsolutePage = iPageCurrent
iswitch = TRUE
Do While objPagingRS.AbsolutePage = iPageCurrent And Not objPagingRS.EOF
If iswitch = TRUE then
scolor = "#E9E9E9"
iswitch = False
Else scolor = "#FFFFFF"
iswitch = TRUE
End If
%>
Sigue...

rashid · #2 (**permalink**) 20/03/2002, 22:30

Ahora debajo escribo el codigo de navegacion:
<%
Dim iPageSize
Dim iPageCount
Dim iPageCurrent
Dim strOrderBy
Dim SQL
Dim iRecordsShown
Dim I

Response.write " "& SmallF& ""
If iPageCurrent > 1 Then
%>
<a href="viewsales.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(CloseDate) %>">[&lt;&lt;
Prev]</a>
<%
End If

'Showing PageNumbers
For I = 1 To iPageCount
If I = iPageCurrent Then
%>
<%= I %>
<%
Else
%>
<a href="viewsales.asp?page=<%= I %>&order=<%= Server.URLEncode(CloseDate) %>"><%= I %></a>
<%
End If
Next 'I

If iPageCurrent < iPageCount Then
%>
<a href="viewsales.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(CloseDate) %>">[Next
&gt;&gt;]</a>
<%
End If

Response.write " "& SmallF& " "& infcop &""
%>
Pero me da un problema en la linea siguiente:

Response.Write("<CENTER><BI G><BIG>" & Categoryrs.Fields("CategoryName") & "</CENTER>")
Response.Write("<CENTER>")
Me parece que no puede releer las categorias, ¿Qué hago? Poder..Poder...Gente.. ;) :P

rashid · #3 (**permalink**) 21/03/2002, 18:31

Heyy..¿Da miedo tanto codigo, pero para eso estamos? Estoy seguro que alguno de los Power Code de aqui, encontrara la solucion que yo no, ni me pasa por la mente. Gracias.
Bay.

;)