Erro em paginação...

[Daniel.Dj 0]

eae....tudo bllz!?

 

 

seguinte....localmente a paginação funciona..mas no servidor(LOCAWEB) não funciona..só lista a quantidade de páginas..mas os dados dos produtos não aparecem..se eu trocar o OR do UNTIL por AND..ele lista todos os produtos na msm página....o que pode ser???

 

ASP

[*]<%

 

[*] Set rsPRD = Server.CreateObject("ADODB.Recordset")

 

[*] rsPRD.CursorType = 3

 

[*] rsPRD.Open qryPRD, conecta

 

[*]

 

[*] If Request.QueryString("PN") = "" Then

 

[*]  PaginaCorrente = 1

 

[*] Else

 

[*]  PaginaCorrente = Request.QueryString("PN")

 

[*] End If

 

[*]

 

[*] If Request.QueryString("intervalo") = "" Then

 

[*]  Intervalo = 10 'Valor Padrão

 

[*] Else

 

[*]  Intervalo = Request.QueryString("intervalo")

 

[*] End If

 

[*]

 

[*] rsPRD.PageSize = CInt(Intervalo)

 

[*]

 

[*] TotalPaginas  = rsPRD.PageCount

 

[*] TotalRegistros = rsPRD.RecordCount

 

[*]

 

[*] If Not rsPRD.EOF Then

 

[*]  rsPRD.AbsolutePage = CInt(PaginaCorrente)

 

[*] End If

 

[*]

 

[*] With rsPRD

 

[*]  Do Until (.AbsolutePage <> CInt(PaginaCorrente)) And (.EOF)

 

[*]%>

 

[*] <tr onmouseover="cellMouseOver(this)" onmouseout="cellMouseOut(this)">

 

[*] <td id="campo_marcar">

 

[*]<p><input type="checkbox" name="<%=.Fields("id_produto")%>" /></p>

 

[*] </td>

 

[*] <td id="campo_editar">

 

[*]<p><a href="java script: Editar('<%=.Fields("id_produto")%>');"><img src="imagens/editar.gif" alt="Editar" /></a></p>

 

[*] </td>

 

[*] <td id="campo_cod">

 

[*]<p><%=.Fields("id_produto")%></p>

 

[*] </td>

 

[*] <td id="campo_nome">

 

[*]<p>

 

[*]<%

 

[*] titulo = .Fields("titulo")

 

[*] qtd = Len(titulo)

 

[*] If (qtd <= 55) Then

 

[*]  Response.Write(titulo)

 

[*] Else

 

[*]  Response.Write(Mid(titulo,1,55)&"...")

 

[*] End If

 

[*]%>

 

[*]</p>

 

[*] </td>

 

[*] <td id="campo_cat">

 

[*]<p>

 

[*]<%

 

[*] id_sub_cat = .Fields("id_sub_categoria")

 

[*]

 

[*] qrySUB = "SELECT * FROM sub_categoria_produto WHERE id_sub_categoria = "&id_sub_cat&""

 

[*] Set rsSUB = conecta.Execute(qrySUB)

 

[*]

 

[*] If Not rsSUB.EOF Then

 

[*]  sub_cat = rsSUB.Fields("sub_categoria")

 

[*]  qtd  = Len(sub_cat)

 

[*]  If (qtd <= 20) Then

 

[*] Response.Write(sub_cat)

 

[*]  Else

 

[*] Response.Write(Mid(sub_cat,1,20)&"...")

 

[*]  End If

 

[*] Else

 

[*]  Response.Write("<h1>Subcategoria deletada!</h1>")

 

[*] End If

 

[*]%>

 

[*]</p>

 

[*] </td>

 

[*] <td id="campo_fotos">

 

[*]<%

 

[*] prd = .Fields("id_produto")

 

[*]

 

[*] qryFOT = "SELECT COUNT(*) FROM fotos WHERE id_produto = "&prd&""

 

[*] Set rsFOT = conecta.Execute(qryFOT)

 

[*] qtd = rsFOT(0)

 

[*] If (qtd > 0) Then

 

[*]%>

 

[*]<p><img src="imagens/foto.gif" alt="Ver Fotos" onclick="OpenWin('<%=Request.ServerVariables("URL")%>?action=fotos&id=<%=.Fields("id_produto")%>','Fotos','320','480','yes')" /></p>

 

[*]<%

 

[*] Else

 

[*]%>

 

[*]<p><img src="imagens/foto_off.gif" alt="Ver Fotos" /></p>

 

[*]<%

 

[*] End If

 

[*]%>

 

[*] </td>

 

[*] <td id="campo_detalhes">

 

[*]<p><img src="imagens/mais.gif" alt="Ver Detalhes" onclick="OpenWin('<%=Request.ServerVariables("URL")%>?action=detalhes&id=<%=.Fields("id_produto")%>','Detalhes','320','480','yes')" /></p>

 

[*] </td>

 

[*] </tr>

 

[*]<%

 

[*] .MoveNext

 

[*]  Loop

 

[*]%>

[Daniel.Dj 0]

alguem aqui sabe o que pode ser!?

[Daniel.Dj 0]

up..

[Marcelo Barcellos 0]

Cara...Cade a função "Conecta" ???

[Daniel.Dj 0]

Cara...

Cade a função "Conecta" ???

<{POST_SNAPBACK}>

ela fica no conndb.asp

ASP

[*] Dim conecta

 

[*] Set conecta = Server.CreateObject ("ADODB.Connection")

 

[*]' LOCALHOST

 

[*]' conecta.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\wwwroot\carroceriascasagrande\banco\asdados.mdb;"

 

[*]' LOCAWEB

 

[*] Caminho = "Driver={Microsoft Access Driver (*.mdb)};Dbq=e:\home\ascomputadores\dados\asdados.mdb;Uid=Admin;Pwd=aswebdgh;"

 

[*]

 

[*] conecta.Open Caminho

[Daniel.Dj 0]

alguem aqui saberia me dizer o que está acontecendo com o script!?