pq os DADOS não aparecem???

[Daniel.Dj 0]

eae....tudo bllz!?

 

aconteceu algo muito estranho no meu sistema....eu fiz ele localmente..e tava funcionando certinho..dai qdo eu mandei pro servidor(LOCAWEB)..só a paginação está funcionando, conta os registros certinho, mas não aparecem os dados..pq será?!

 

conndb.asp

ASP

[*] Dim conecta

 

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

 

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

 

[*] conecta.Open

 

dicas.asp

ASP

[*] qryDIC = "SELECT * FROM dicas ORDER BY "&campo&" "&ordem&""

 

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

 

[*] rsDIC.CursorType = 3

 

[*] rsDIC.Open qryDIC, 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

 

[*]

 

[*] rsDIC.PageSize = CInt(Intervalo)

 

[*]

 

[*] TotalPaginas  = rsDIC.PageCount

 

[*] TotalRegistros = rsDIC.RecordCount

 

[*]

 

[*] If Not rsDIC.EOF Then

 

[*]  rsDIC.AbsolutePage = CInt(PaginaCorrente)

 

[*] End If

 

[*]

 

[*]<%

 

[*] With rsDIC

 

[*]

 

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

 

[*]%>

 

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

 

[*] <td id="campo_marcar">

 

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

 

[*] </td>

 

[*] <td id="campo_editar">

 

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

 

[*] </td>

 

[*] <td id="campo_cod">

 

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

 

[*] </td>

 

[*] <td id="campo_titulo">

 

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

 

[*] </td>

 

[*] <td id="campo_data">

 

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

 

[*] </td>

 

[*] <td id="campo_detalhes">

 

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

 

[*] </td>

 

[*] </tr>

 

[*]<%

 

[*] .MoveNext

 

[*]  Loop

 

[*]%>

 

[*] </table>

 

[*] </td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td id="secoes_cima">

 

[*] <table width="700" border="0" cellspacing="0" cellpadding="0">

 

[*] <tr>

 

[*] <td id="campo_dados">

 

[*]<p>Dica(s) - de <%=TotalRegistros%></p>

 

[*] </td>

 

[*] <td id="campo_navegacao">

 

[*]<%

 

[*] url = Request.ServerVariables("URL")&"?intervalo="&intervalo&"&"

 

[*]

 

[*] Flag = Int(TotalPaginas / Intervalo) 

 

[*] Flag1 = Int(PaginaCorrente / Intervalo)

 

[*]

 

[*] ' PAGINA INICIAL E FINAL

 

[*] PI = Flag1 * Intervalo

 

[*] If PI = 0 Then

 

[*]  PI = 1

 

[*] End If

 

[*] PF = PI + Intervalo - 1

 

[*]

 

[*] ' PRIMEIRA

 

[*] If CInt(PaginaCorrente) > 1 Then

 

[*]  Response.Write "<a href="""&url&"PN=1""><img src='imagens/primeira.gif' alt='Primeira' /></a>"

 

[*] Else

 

[*]  Response.Write "<img src='imagens/primeira_off.gif' alt='Primeira' />"

 

[*] End If

 

[*]

 

[*] ' ANTERIOR

 

[*] If CInt(PaginaCorrente) > 1 Then

 

[*]  Response.Write "<a href="""&url&"PN=" & PaginaCorrente-1 & """><img src='imagens/anterior.gif' alt='Anterior' /></a>"

 

[*] Else

 

[*]  Response.Write "<img src='imagens/anterior_off.gif' alt='Anterior' />"

 

[*] End If

 

[*]

 

[*] ' PAGINAS

 

[*] For I = PI To PF

 

[*]  If CInt(I) <= CInt(TotalPaginas) Then

 

[*] If CInt(PaginaCorrente) = CInt(I) Then

 

[*]  Response.Write("<span class='page_off'>" & I & "</span>") & " "

 

[*] Else

 

[*]  Response.Write "<span class='page'><a href="""&url&"PN=" & I & """>" & I & "</a></span> "

 

[*] End If

 

[*]  End If

 

[*] Next

 

[*]

 

[*] ' PROXIMA

 

[*] If (CInt(PaginaCorrente) < TotalPaginas) Then

 

[*]  If CInt(PN) <> CInt(TotalPaginas) Then

 

[*] Response.Write "<a href="""&url&"PN=" & PaginaCorrente+1 & """><img src='imagens/proxima.gif' alt='Próxima' /></a>"

 

[*]  End If

 

[*] Else

 

[*]  Response.Write "<img src='imagens/proxima_off.gif' alt='Próxima' />"

 

[*] End If

 

[*]

 

[*] ' ULTIMA

 

[*] If (CInt(PaginaCorrente) <> TotalPaginas) Then

 

[*]  If CInt(PN) <> CInt(TotalPaginas) Then

 

[*] Response.Write "<a href="""&url&"PN=" & TotalPaginas & """><img src='imagens/ultima.gif' alt='Última' /></a>"

 

[*]  End If

 

[*] Else

 

[*]  Response.Write "<img src='imagens/ultima_off.gif' alt='Última' />"

 

[*] End If

 

[*]%>

 

[*]<%

 

[*] End With

 

[*]%>

[Daniel.Dj 0]

urgente!!!

[Marcelo Barcellos 0]

O Endreço do Banco é esse mesmo...Use Server.MapPAth