Salve camaradas... preciso paginar uns resultados em asp e estou encontrando problemas... estou tentando implementar um script sugerido aqui no fórum mas não estou conseguindo... Gostaria de saber se poderia contar com a ajuda de vocês...
Seguem os códigos...
Trecho da conexão com o banco e definição de páginas
<%
Set bd = Server.CreateObject("ADODB.Connection")
Set tb = Server.CreateObject("ADODB.Recordset")
tb.CursorType = 1
tb.CursorLocation = 3
tb.LockType = 2
bd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\bdadmin.mdb;Persist Security Info=False;"
tb.PageSize = 10
Set idlinha = Request.QueryString("idlinha")
Set idsublinha = Request.QueryString("idsublinha")
Set t = Request.QueryString("t")
Set idr = Request.QueryString("id")
if(isEmpty(idsublinha) or idsublinha="") then
idsublinha = 0
sql = "SELECT * FROM tbprodutos WHERE idlinha = " & idlinha & ""
else
sql = "SELECT * FROM tbprodutos WHERE idlinha = " & idlinha & "AND idsublinha = " & idsublinha & ""
end if
tb.Open sql, bd
'Criamos as Validações
if Request.QueryString("pagina")="" then
intpagina = 1
else
if cint(Request.QueryString("pagina"))<1 then
intpagina = 1
else
if cint(Request.QueryString("pagina"))>tb.PageCount then
intpagina = tb.PageCount
else
intpagina = Request.QueryString("pagina")
end if
end if
end if
%>
Trecho que cria os links
<%
if intpagina>1 then
Response.Write("<a href='produtos2.asp?pagina=" & intpagina-1 & "&idlinha=" & idlinha & "&idsublinha=" & idsublinha & "'>Anterior</a> ")
end if
if StrComp(intpagina,tb.PageCount)<>0 then
Response.Write("<a href='produtos2.asp?pagina=" & intpagina + 1 & "&idlinha=" & idlinha & "&idsublinha=" & idsublinha & "'>Próximo</a>")
end if
%>
E por fim, o trecho que pega os resultados da consulta
<%
if tb.RecordCount>0 then
Dim i, k
Dim id(9)
Dim thumb(9)
Dim titulo(9)
i = 0
tb.AbsolutePage = intpagina
intrec = 0
While intrec<tb.PageSize and not tb.eof
id(i) = tb.Fields("id")
thumb(i) = tb.Fields("thumb")
titulo(i) = tb.Fields("titulo")
i = i+1
tb.MoveNext
intrec = intrec + 1
Wend
end if
%>
O que ocorre é que ao clicar no link 'Próximo', dá erro de tipo incompatível quando eu faço isto:
Pergunta
Eduardo Gonçalves
Salve camaradas... preciso paginar uns resultados em asp e estou encontrando problemas... estou tentando implementar um script sugerido aqui no fórum mas não estou conseguindo... Gostaria de saber se poderia contar com a ajuda de vocês...
Seguem os códigos...
Trecho da conexão com o banco e definição de páginas
<% Set bd = Server.CreateObject("ADODB.Connection") Set tb = Server.CreateObject("ADODB.Recordset") tb.CursorType = 1 tb.CursorLocation = 3 tb.LockType = 2 bd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\bdadmin.mdb;Persist Security Info=False;" tb.PageSize = 10 Set idlinha = Request.QueryString("idlinha") Set idsublinha = Request.QueryString("idsublinha") Set t = Request.QueryString("t") Set idr = Request.QueryString("id") if(isEmpty(idsublinha) or idsublinha="") then idsublinha = 0 sql = "SELECT * FROM tbprodutos WHERE idlinha = " & idlinha & "" else sql = "SELECT * FROM tbprodutos WHERE idlinha = " & idlinha & "AND idsublinha = " & idsublinha & "" end if tb.Open sql, bd 'Criamos as Validações if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>tb.PageCount then intpagina = tb.PageCount else intpagina = Request.QueryString("pagina") end if end if end if %>Trecho que cria os links<% if intpagina>1 then Response.Write("<a href='produtos2.asp?pagina=" & intpagina-1 & "&idlinha=" & idlinha & "&idsublinha=" & idsublinha & "'>Anterior</a> ") end if if StrComp(intpagina,tb.PageCount)<>0 then Response.Write("<a href='produtos2.asp?pagina=" & intpagina + 1 & "&idlinha=" & idlinha & "&idsublinha=" & idsublinha & "'>Próximo</a>") end if %>E por fim, o trecho que pega os resultados da consulta<% if tb.RecordCount>0 then Dim i, k Dim id(9) Dim thumb(9) Dim titulo(9) i = 0 tb.AbsolutePage = intpagina intrec = 0 While intrec<tb.PageSize and not tb.eof id(i) = tb.Fields("id") thumb(i) = tb.Fields("thumb") titulo(i) = tb.Fields("titulo") i = i+1 tb.MoveNext intrec = intrec + 1 Wend end if %>O que ocorre é que ao clicar no link 'Próximo', dá erro de tipo incompatível quando eu faço isto:<% Response.Write("<a href='produtos_exibe.asp?id=" & id(0) & "' target='_blank'><img src='sendBinary.asp?path=c:\images\produtos\" & thumb(0) & "&width=89' border='0' /></a><br />" & titulo(0) & "") %>Grato desde já pela ajuda de vocês...
Editado por Eduardo GonçalvesLink para o comentário
Compartilhar em outros sites
9 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.