Erro No Código, Não Descobri Qual Ainda

[diraol]

Fala pessoal, beleza??.... faz teeeempo q não venho pentelhá-los...ehehe.. vim matar as saudades... =p

seguinte......

estou montando uma loja..... quando clico no link para determinado produto (no menu) ele abre a página com um número X (X=20) de itens por página, e o resto ele joga na "paginação".......... só que na última página geralmente ele dá erro.... tipo, eu acho que é porque não tem produtos suficientes para completar o número X............ entenderam?!?! ...hehehehe

o erro q dá é este abaixo..............

Tipo de erro:

(0x80020009)

Exceção.

/rpaz/produto.asp, line 71

e a parte do código q gera o erro é....

<%
const aduseclient = 3
SQLtemp = "select * from prod where tipo LIKE '%" & request("tipo") & "%' Order by titulo"
pagina = request("qualpagina")
if pagina = "" then
pagina = "1"
end if
tamanhopagina = request("pagesize")
if tamanhopagina = "" then
tamanhopagina = 20
end if
SQL = request("SQLquery")
if SQL = "" then
SQL = SQLtemp
end if
set rstemp = Server.CreateObject("ADODB.Recordset")
rstemp.cursorlocation = aduseclient
rstemp.cachesize = 5
rstemp.open SQL,cn,1
if not rstemp.eof then
contador = rstemp.recordcount
rstemp.movefirst
rstemp.PageSize = tamanhopagina
maximopagina = cint(rstemp.PageCount)
maximoregistros = cint(rstemp.PageSize)
rstemp.AbsolutePage = pagina
registros = 0
response.write "<center><font face=verdana size=2 color=red>Pagina " & pagina & " de " & maximopagina & "</font></center><br>"
response.write "<center><table width=90% >"
Do Until rstemp.eof OR registros >= maximoregistros
response.write "<tr>"
response.write "<td valign=bottom>"
response.write "<img src = '" & rstemp("tipo") & "/" & rstemp("codigo") & ".jpg'><br>"
response.write "<font face = verdana size = 1>"
response.write "<b>Codigo:</b> " & rstemp("CODIGO") & "<br>"
response.write "<b>Tipo:</b> " & rstemp("TIPO") & "<br>"
response.write "<b>Preço:</b> <font color = red>" & FORMATCURRENCY(rstemp("preço")) & " <a href='carrinho.asp?codigo=" & rstemp("CODIGO") & "'>CARRINHO</a></font><br>"
response.write "</font></td>"
rstemp.movenext
registros = registros + 1

response.write "<td valign=bottom>"
response.write "<img src = '" & rstemp("tipo") & "/" & rstemp("codigo") & ".jpg'><br>"
response.write "<font face = verdana size = 1>"
response.write "<b>Codigo:</b> " & rstemp("CODIGO") & "<br>"
response.write "<b>Tipo:</b> " & rstemp("TIPO") & "<br>"
response.write "<b>Preço:</b> <font color = red>" & FORMATCURRENCY(rstemp("preço")) & " <a href='carrinho.asp?codigo=" & rstemp("CODIGO") & "'>CARRINHO</a></font><br>"
response.write "</font></td>"
rstemp.movenext
registros = registros + 1

response.write "<td valign=bottom>"
response.write "<img src = '" & rstemp("tipo") & "/" & rstemp("codigo") & ".jpg'><br>"
response.write "<font face = verdana size = 1>"
response.write "<b>Codigo:</b> " & rstemp("CODIGO") & "<br>"
response.write "<b>Tipo:</b> " & rstemp("TIPO") & "<br>"
response.write "<b>Preço:</b> <font color = red>" & FORMATCURRENCY(rstemp("preço")) & " <a href='carrinho.asp?codigo=" & rstemp("CODIGO") & "'>CARRINHO</a></font><br>"
response.write "</font></td>"
rstemp.movenext
registros = registros + 1

response.write "<td valign=bottom>"
*response.write "<img src = '" & rstemp("tipo") & "/" & rstemp("codigo") & ".jpg'><br>"
response.write "<font face = verdana size = 1>"
response.write "<b>Codigo:</b> " & rstemp("CODIGO") & "<br>"
response.write "<b>Tipo:</b> " & rstemp("TIPO") & "<br>"
response.write "<b>Preço:</b> <font color = red>" & FORMATCURRENCY(rstemp("preço")) & " <a href='carrinho.asp?codigo=" & rstemp("CODIGO") & "'>Comprar</a></font><br>"
response.write "</font></td>"
response.write "</tr><tr><td colspan=4><hr size=3></td></tr>"
rstemp.movenext
registros = registros + 1

Loop
response.write "</table></center><p>"
rstemp.close
set rstemp = nothing
%> 

Ah, a linha 71 tá marcada com um asterisco antes dela!!

eu tentei uma alteração mas continuou dando erro, então acho mais válido eu esperar alguma coisa de vocês, q entendem do assunto...

Valeu pessoal....

[cyberalexxx]

é o seguinte: você esta dando um RsTemp.MoveNext no recordset e depois disso não faz uma validação se é o fim do Recordset e já manda exibir os dados, é so colocar um If not Rstemp.eof then antes de exibir os dados

[diraol]

Cara, tentei fazer isso, coloquei lá e tals... mas deu erro na linha "80" (LOOP), dizendo ...........

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A040E)

'loop' sem 'do'

/rpaz/produto.asp, line 80

Loop

[cyberalexxx]

Permita-me algumas mudanças na estrutura/lógica de seu script:

<%
const aduseclient = 3
SQLtemp = "select * from prod where tipo LIKE '%" & request("tipo") & "%' Order by titulo"
pagina = request("qualpagina")

if pagina = "" then
  pagina = "1"
end if

tamanhopagina = request("pagesize")

if tamanhopagina = "" then
   tamanhopagina = 20
end if

SQL = request("SQLquery")

if SQL = "" then
   SQL = SQLtemp
end if

set rstemp = Server.CreateObject("ADODB.Recordset")
rstemp.cursorlocation = aduseclient
rstemp.cachesize = 5
rstemp.open SQL,cn,1

if not rstemp.eof then
  contador = rstemp.recordcount
  rstemp.movefirst
  rstemp.PageSize = tamanhopagina
  maximopagina = cint(rstemp.PageCount)
  maximoregistros = cint(rstemp.PageSize)
  rstemp.AbsolutePage = pagina
  registros = 0
  response.write "<center><font face=verdana size=2 color=red>Pagina " & pagina & " de " & maximopagina & "</font></center><br>"
  response.write "<center><table width=90% >" 

  Do Until rstemp.eof OR registros >= maximoregistros
    response.write "<tr>"
    response.write "<td valign=bottom>"
    response.write "<img src = '" & rstemp("tipo") & "/" & rstemp("codigo") & ".jpg'><br>"
    response.write "<font face = verdana size = 1>"
    response.write "<b>Codigo:</b> " & rstemp("CODIGO") & "<br>"
    response.write "<b>Tipo:</b> " & rstemp("TIPO") & "<br>"
    response.write "<b>Preço:</b> <font color = red>" & FORMATCURRENCY(rstemp("preço")) & " <a href='carrinho.asp?codigo=" & rstemp("CODIGO") & "'>CARRINHO</a></font><br>"
    response.write "</font></td>"
    rstemp.movenext
    registros = registros + 1

    if registros mod 4 = 0 then
      response.write "</tr><tr><td colspan=4><hr size=3></td></tr>"
    end if

  Loop
  response.write "</table></center><p>"
  rstemp.close
  set rstemp = nothing
end if
%> 

[diraol]

Funcionou!!!... precisei apenas mudar 2 itens (<tr>) de lugar.... vlw!!!!!!!!!!!

só mais uma perguntinha aproveitando o tópico e o embalo...

abaixo desse código vem mais algumas coisinhas, a listagem das páginas e tals..... como eu faria para colocar um "else" no caso de nenhum produto ser encontrado (no meu caso provavelmente nem será necessário, mas acho q fica melhor)...........

[cyberalexxx]

Tem a seguinte linha no seu código:

contador = rstemp.recordcount

ela armazena o numero de registros encontrados, para fazer o que você quer faça assim embaixo dessa linha.

contador = rstemp.recordcount

if contador = 0 then

   response.write "Chiiii!! não achei nada"

   response.end

end if

[dark0]

ué..

no final, tire o 'end if', coloque ELSE, e abaixo o que deverá acontecer, caso entre no ELSE, e logo abaixo disso, coloque END IF de volta..

tendeu?

[diraol]

hehehehe.......

na hora q eu fiz a pergunta eu tentei isso q você disse dark... =p porque na verdade eu já tinha o else pronto aqui, mas o end if ficou no lugar errado....hehehe... ai eu arrumei e fui testar e deu certo.........

mas obrigado pela ajuda amigos!!!!!!!

precisando de qualquer coisa é só falar.........

[dark0]

hehe

tah certo diraol..

o que falei, foi o 'mais lógico' de programação, huahua..

Bem, acho que ta tudo resolvido, ne?

To fechando o tópico aqui então

Se precisar mais alguma coisa nesse tópico (desse assunto), mande pm pra qualquer MOD da seção, que a gente reabre!

Abraços,

dark!