• 0
Sign in to follow this  
Guest Silva ^_^

Socorro! Por Favor, Preciso D Ajuda

Question

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>

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this