Ir para conteúdo
Fórum Script Brasil
  • 0

Socorro! Por Favor, Preciso D Ajuda


Guest Silva ^_^

Pergunta

Guest Silva ^_^

Por favor, estou desesperado e estressado

agluém pode me ajudar com o script abaixo

a idéia é ir puxando do bd os registros e ir mostrando nas tableas 3 produtos por linha com suas respectivas descrições, e ir fazendo isso até chegar no fim do arquivo, lembrando que se por acaso o numero de produtos não fo divisível por 3 ele mostrará uma linha com 2 ou tres produtos.

ele indica erro na linha 52:

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.


<%
set cmdb = server.createObject("ADODB.Connection")
cmdb.open "DBQ=" & Server.MapPath("/lopel/bdd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

sql = "select*from Ofertas order by of_cod"
set tboferta = cmdb.execute(sql)


%>

<html>
<head>
<title>Ofertas</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#CCCCCC" text="#993333" link="#993333" vlink="#993333" alink="#993333" leftmargin="5" topmargin="0" marginwidth="0" marginheight="0">
<%

dim cod1,cod2,cod3
 dim desc1,desc2,desc3
 dim pde1,pde2,pde3
 dim ppara1,ppara2,ppara3
 dim validade1,validade2,validade3
 dim img1,img2,img3


tboferta.movenext
do while not tboferta.eof
tbcounter = tbcounter + 1
tboferta.movenext
loop





do while tbcounter <> 0


 %>
<table width="620" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr valign="top"> 
    <%
  
 cod1 = tboferta("of_cod") 'LINHA 52!!!!!!!!!!
 desc1 = tboferta("of_desc")
 pde1 = tboferta("of_pantigo")
 ppara1 = tboferta("of_pnovo")
 validade1 = ""&tboferta("of_dia")&"/"&tboferta("of_mes")&"/"&tboferta("of_ano")&""
 img1 = tboferta("of_img")

%>
    <td width="133" height="150"> 
      <div align="center"><img src="lopel/figuras/of_<%=img1%>.jpg" ><br>
        <br>
        <table width="200" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td colspan="2" bgcolor="#FFFFCC"><div align="center"><strong><font color="#993333" size="3" face="Arial, Helvetica, sans-serif"><%=desc1%></font></strong></div></td>
          </tr>
          <tr> 
            <td><font color="#993333" size="2" face="Arial, Helvetica, sans-serif">De:<%=pde1%></font></td>
            <td><font color="#993333" size="2" face="Arial, Helvetica, sans-serif"><strong>Por:<%=ppara1%></strong></font></td>
          </tr>
          <tr> 
            <td colspan="2"><font size="1" face="Arial, Helvetica, sans-serif">Codigo: 
              <%=cod1%></font></td>
          </tr>
          <tr> 
            <td colspan="2"><font size="1" face="Arial, Helvetica, sans-serif">v&aacute;lido 
              at&eacute;: <%=validade1%></font></td>
          </tr>
        </table>
      </div></td>
    <td width="10">&nbsp;</td>
    <%
  tboferta.moveprevious

   tbcounter = tbcounter - 1
	if tbcounter <> 0 then
  


 cod2 = tboferta("of_cod")
 desc2 = tboferta("of_desc")
 pde2 = tboferta("of_pantigo")
 ppara2 = tboferta("of_pnovo")
 validade2 = ""&tboferta("of_dia")&"/"&tboferta("of_mes")&"/"&tboferta("of_ano")&""
 img2 = tboferta("of_img")
   
   %>
    <td width="133"> 
      <div align="center"><img src="lopel/figuras/of_<%=img2%>.jpg" ><br>
        <br>
        <table width="200" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td colspan="2" bgcolor="#FFFFCC"><div align="center"><strong><font color="#993333" size="3" face="Arial, Helvetica, sans-serif"><%=desc2%></font></strong></div></td>
          </tr>
          <tr> 
            <td><font color="#993333" size="2" face="Arial, Helvetica, sans-serif">De:<%=pde2%></font></td>
            <td><font color="#993333" size="2" face="Arial, Helvetica, sans-serif"><strong>Por:<%=ppara2%></strong></font></td>
          </tr>
          <tr> 
            <td colspan="2"><font size="1" face="Arial, Helvetica, sans-serif">Codigo:<%=cod2%></font></td>
          </tr>
          <tr> 
            <td colspan="2"><font size="1" face="Arial, Helvetica, sans-serif">v&aacute;lido 
              at&eacute;: <%=validade2%></font></td>
          </tr>
        </table>
      </div></td>
    <td width="10">&nbsp;</td>
    <%

	tboferta.moveprevious
  tbcounter = tbcounter - 1
  if tbcounter <> 0 then
   
  
     cod3 = tboferta("of_cod")
     desc3 = tboferta("of_desc")
     pde3 = tboferta("of_pantigo")
     ppara3 = tboferta("of_pnovo")
     validade3 = ""&tboferta("of_dia")&"/"&tboferta("of_mes")&"/"&tboferta("of_ano")&""
     img3 = tboferta("of_img")
   
   %>
    <td width="133"> 
      <div align="center"><img src="lopel/figuras/<%=img3%>.jpg" ><br>
        <br>
        <table width="200" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td colspan="2" bgcolor="#FFFFCC"><div align="center"><strong><font color="#993333" size="3" face="Arial, Helvetica, sans-serif"><%=desc3%></font></strong></div></td>
          </tr>
          <tr> 
            <td><font color="#993333" size="2" face="Arial, Helvetica, sans-serif">De:<%=pde3%></font></td>
            <td><font color="#993333" size="2" face="Arial, Helvetica, sans-serif"><strong>Por:<%=ppara3%></strong></font></td>
          </tr>
          <tr> 
            <td colspan="2"><font size="1" face="Arial, Helvetica, sans-serif">Codigo: 
              <%=cod3%> </font></td>
          </tr>
          <tr> 
            <td colspan="2"><font size="1" face="Arial, Helvetica, sans-serif">v&aacute;lido 
              at&eacute;: <%=validade3%></font></td>
          </tr>
        </table>
      </div></td>
  </tr>
</table>
<%
tboferta.moveprevious

end if
end if


loop


%>
<p>tb counter:<%=tbcounter%></p>
<p>&nbsp;</p>
</body>
</html>

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Analise:

set tboferta = cmdb.execute(sql)

tboferta.movenext
do while not tboferta.eof
tbcounter = tbcounter + 1
tboferta.movenext
loop

A primeira linha move o ponteiro para o segundo registro retornado.

O laço Do While ... Loop termina quando o ponteiro aponta para o fim do recordset, alguma coisa depois do ultimo registro retornado.

Além disso um recordset retornado por um comando "execute" é um recordset somente de leitura e com um ponteiro que só anda para frente.

Tente fazer assim:

do while not tboferta.eof

Coloque aqui o código que monta a tabela

tboferta.movenext

loop

wink.gifph34r.gifwink.gif

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...