O Negócio Repete Só O Mesmo

marcos_804 · Outubro 22, 2004

GALERA O TRISTE ERRO QUE TA ACONTECENDO COMIGO É O SEGINTE. estou CRIANDO UMA PAGINA DE MUSICAS. LOGO EU PRECISO QUE MEU SCRIPT CAPTURE TODOS OS ID DO BD, MAS ELE PEGA O MESMO E REPETE UM MONTÃO DE VEZES, O QUE ESTÁ ACONTECENDO?

O DE VERMELHO É O QUE ELE DEVE REPETIR, MAS não O MESMO O TEMPO TODO

VEJAM AQUI COMO ESTÁ UMA PORCARIA, não OLHEM PARA O TITULO, POIS ESTOU APENAS TESTANDO O MEU SCRIPT

http://i.1asphost.com/teajudo/TesteDePaginacao/default.asp

<HTML>

<HEAD>

<TITLE>Discussion Forum Example</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<style>
a{text-decoration:none;font-weight:bold;color:#000000;font-family:verdana;font-size:11}
a:hover{text-decoration:underline;font-weight:bold;color:#ff0000}

.1 {font-family:verdana;font-size:11;color:#000000;padding:3}
</style>
</HEAD>


<body bgcolor="#FFFFFF" oncontextmenu="return false;" onselectstart="return false;">


<%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
          DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb")
          sqlstmt = "SELECT * FROM journal ORDER BY id DESC"
          Set rs = Server.CreateObject("ADODB.Recordset")
            
TamanoDaPagina = 5
Pagina = cint(Request.QueryString("Page"))
if Pagina = 0 then Pagina = 1

rs.Open sqlstmt, DSNtemp, 3, 3

  date1 = rs("pdate")
  id = rs("ID")
  name1 = rs("pname")
    link = "<a href='view.asp?id=" & id & "'>" & date1 & "</a>"
  description = name1

if not rs.Eof then
rs.MoveLast
TotalDeGravacoes = rs.RecordCount

iTotalPages = int(TotalDeGravacoes / TamanoDaPagina)
if TotalDeGravacoes MOD TamanoDaPagina <> 0 then iTotalPages = iTotalPages + 1

if TotalDeGravacoes <=  TamanoDaPagina then
	rs.MoveFirst
	bOnePage = true
	lPageEnd = TotalDeGravacoes
	lPageStart = 1
	iTotalPages = 1
else
	lPageStart = ((Pagina - 1) * TamanoDaPagina) + 1
	lPageEnd = lPageStart + (TamanoDaPagina - 1)


	if lPageEnd >= TotalDeGravacoes Then 
  lPageEnd = TotalDeGravacoes
  bLastPage = true
	end if

	if Pagina > 1 then
    	rs.AbsolutePosition = ((Pagina - 1) * TamanoDaPagina) + 1
	else
    	rs.MoveFirst
	end if
end if

else
	bNoRecords = true

end if




%>

<div class="1" style="background-color:#f1f1f1;border:1px solid #000000; width:230;padding:6">
<%
if not bNoRecords then
    response.write "<B><center>P&aacute;gina <span style='color:#ff0000;text-decoration:underline'>" & Pagina & "</span> de <span style='color:#ff0000;text-decoration:underline'>" & iTotalPages & "</span> P&aacute;gina(s)</center></B>"
end if
%>

</div><br>
<TABLE WIDTH ="600" bgcolor="e3e3e3" align="center" colspan="2" class="1">

<% 
if bNoRecords then
 response.write "<tr><td valign='top'><span style='font-family:verdana;font-size:12;color:#000000;font-weight:bold'>N&atilde;o h&aacute; not&iacute;cias para serem exibidas no momento</span></td></tr>"

else
 for lCtr = lPageStart to lPageEnd

 [COLOR=red]response.write "<tr><td class='1' width='30%'>" & link & " --<br></td>"
 response.write "<td class='1' width='70%'>" & description & "</td></tr>"[/COLOR]
 rs.movenext
 Next
end if
response.write "</TABLE>"

if bOnePage = false and bNoRecords = false then

response.write "<TABLE WIDTH = '100%' class='1'><tr><td>&nbsp;</td></tr><tr><td WIDTH = '10%'>&nbsp;</td><td WIDTH = '60%' class='1'> "

if Pagina > 1 then
sPrevQuery = "Page=" & Pagina - 1
response.write "<A HREF = 'default.asp?" & sPrevQuery & "'><B><< P&aacute;gina Anterior</B></A>"
  else
response.write "&nbsp;"
end if
  
response.write "</td><td class='1' VALIGN = 'TOP NOWRAP'>"

if bLastPage = false then
  
sNextQuery = "Page=" & Pagina + 1 
response.write "<A HREF = 'default.asp?" & sNextQuery & "'><B>Pr&oacute;xima P&aacute;gina >></B></A>"
else
response.write "&nbsp;"
end if
response.write "<td WIDTH = '10%' class='1'>&nbsp;</td>"
response.write "</td></tr></TABLE>"
response.write "<P><CENTER style='font-family:verdana;font-size:12;color:#ff0000;font-style:italic'>"

for iCtr = 1 to iTotalPages
sPageQuery = "Page=" & iCtr & sQuery
if iCtr <> Pagina then
 response.write "<A HREF = 'default.asp?" & sPageQuery & "'>"
else

 response.write "<B>"
end if
response.write iCtr

if iCtr <> Pagina then
response.write "</A>"
else
response.write "</B>" 
end if
if iCtr < iTotalPages then response.write "&nbsp;&nbsp;|&nbsp;&nbsp;"


Next
response.write "</CENTER>"
end if
%>

</body>
</html>

bareta · Outubro 22, 2004

la so aparece 3 -- não intindi

ursolouco · Outubro 23, 2004

Brother!!

The include file 'database.inc' was not found.

Tentei acessar e não rolou .... mas aí vai, um simples e objetivo tutorial de paginacão...

Veja se pode lhe ajudar...

marcos_804 · Outubro 24, 2004

não tem nada a ver com o include, o link que eu passei estava errado.

Se alguém vir o erro e puder consertar para mim conserte porfavor.

aqui o link http://i.1asphost.com/teajudo/TesteDePaginacao1/default.asp

dark0 · Outubro 26, 2004

acessando o link dá:

Item cannot be found in the collection corresponding to the requested name or ordinal.

Poste o codigo aí..

lá diz ser linha 31 ...

Entrar

O Negócio Repete Só O Mesmo

Pergunta

marcos_804

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

ursolouco

Link para o comentário

Compartilhar em outros sites

marcos_804

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades