Estou com uma dúvida, e queria q você´s me ajudassem.
Vejam: NWind.asp (peguei este BD para exemplo)
<html>
<head>
<title>NWind.asp</title>
<%
Set Conn = Server.CreateObject("adodb.connection")
Set Rs = Server.CreateObject("adodb.recordset")
cBanco = Server.MapPath("NWind2000.mdb")
strConn = "Provider = Microsoft.Jet.Oledb.4.0; Data Source = "& cBanco &";"
Conn.Open(strConn)
cSQL ="SELECT * FROM Customers"
Rs.Open cSQL, Conn, 3, 3
Rs.PageSize = 10
Id = Request.QueryString("id")
If Id = "" Then
Id = 1
Else
If Id = 0 Then
Id = 1
End If
' If Id > Rs.pageCount Then
' Id = Rs.pageCount
' End If
End If
Rs.AbsolutePage = Id
Controlador = 0
While Controlador < Rs.PageSize And Not Rs.EOF
Response.Write("Código:" & " " & Rs(0) & "<br>")
Rs.MoveNext
Controlador = Controlador + 1
Wend
If Id > 1 Then
Response.Write("<a href =" & "NWind.asp?Id=" & (Id - 1) & ">" & "[Anterior]" & "</a>")
End if
If Id <> 0 And (Id > Rs.AbsolutePage)Then
Response.Write("<a href =" & "NWind.asp?Id=" & (Id + 1) & ">" & "-- [Proximo]" & "</a>")
End if
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
Rola paginação na boa, mas minha dúvida é a seguinte, quando chegar o ultimo registro do recordset, o 'Link' Proximo não deveria aparecer, e não estou conseguindo fazer isto, alguém pode me ajudar ? :)
Pergunta
ursolouco
Salve Brother!!!
Estou com uma dúvida, e queria q você´s me ajudassem.
Vejam: NWind.asp (peguei este BD para exemplo)
<html> <head> <title>NWind.asp</title> <% Set Conn = Server.CreateObject("adodb.connection") Set Rs = Server.CreateObject("adodb.recordset") cBanco = Server.MapPath("NWind2000.mdb") strConn = "Provider = Microsoft.Jet.Oledb.4.0; Data Source = "& cBanco &";" Conn.Open(strConn) cSQL ="SELECT * FROM Customers" Rs.Open cSQL, Conn, 3, 3 Rs.PageSize = 10 Id = Request.QueryString("id") If Id = "" Then Id = 1 Else If Id = 0 Then Id = 1 End If ' If Id > Rs.pageCount Then ' Id = Rs.pageCount ' End If End If Rs.AbsolutePage = Id Controlador = 0 While Controlador < Rs.PageSize And Not Rs.EOF Response.Write("Código:" & " " & Rs(0) & "<br>") Rs.MoveNext Controlador = Controlador + 1 Wend If Id > 1 Then Response.Write("<a href =" & "NWind.asp?Id=" & (Id - 1) & ">" & "[Anterior]" & "</a>") End if If Id <> 0 And (Id > Rs.AbsolutePage)Then Response.Write("<a href =" & "NWind.asp?Id=" & (Id + 1) & ">" & "-- [Proximo]" & "</a>") End if Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %>Rola paginação na boa, mas minha dúvida é a seguinte, quando chegar o ultimo registro do recordset, o 'Link' Proximo não deveria aparecer, e não estou conseguindo fazer isto, alguém pode me ajudar ? :)
Abraços!!!!
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados