Erro no Script

Legionáriors · Agosto 23, 2009

boa noite pessoal do fórum,

Tenho o seguinte código:

<html>
<head>

<style>
body{
overflow-x: hidden;
}
</style>

<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript">
$(document).ready(function() {
$("h1#mostra").toggle(
function() {
$("div#oculto").fadeIn(); // ou slideDown()
},
function() {
$("div#oculto").fadeOut(); // ou slideUp()
}
);
});
</script>
</script><style type="text/css">
html {
font: 12px Arial, Helvetica, sans-serif;
text-align: center;
}
#conteudo, #oculto {
background: #e5e5e5;
width: 645px;
margin: 5;
padding: 0px;
border: solid 1px #ccc;
}
#conteudo h1 {
font-size: 12px;
}
#oculto {
display: none;
margin-top: 10px;
}
#scroll {
  width:645px;
  background-color:white;
  overflow:no;
}
</style>
</head>

<table border=0 width=100% cellspacing="10" cellpadding="10">
<tr valign=top>
<%
Dim prod_id,prod_nome,prod_descricaog,prod_descricaoh,prod_preco,prod_condicoes,prod_imagem,prod_detalhe,url_comp
prod_id = Request.querystring("prod_id")
url_comp = Server.UrlEncode(Request.querystring("url_comp"))
set prod_detalhe = lojaDB.Execute("SELECT * FROM produtos WHERE id="& prod_id &" AND disp='S'")
[b]Esta é a linha do erro --> prod_nome = prod_detalhe("nome")[/b]
prod_descricaog = prod_detalhe("descricaog")
prod_descricaoh = prod_detalhe("descricaoh")
prod_preco = prod_detalhe("preço")
prod_condicoes = prod_detalhe("condicoes")
prod_imagem = prod_detalhe("imagem")
prod_detalhe.Close
set prod_detalhe = Nothing
%>

    <td width=60%><h5><%=prod_nome%></h5>
    <center><img src="./images/<%=prod_imagem%>" width=40% border=0></center>
    <br><br>
    <p><font size="1" color="black"><b>Fabricante:</b><%=prod_descricaog%></p>
    </td>
    <td>
    <br><br><br><br><br><br>
    <p align=left><font size="1" color="black"><b>Pague R$ </font><font size="2" color="red"><%=formatnumber(prod_preco,2)%></font>
    <font size="1" color="black"> por este produto</font></b>
    <b><font size="1" color="red"><%=prod_condicoes%></font></b></p>
        <input type=hidden name=url_comp value="<%=url_comp%>">
        </form>
        </p>
        <p align=left><a href="<%=Request.ServerVariables("HTTP_REFERER")%>" style="text-decoration:none"><font size="1" color=red><b>Voltar a página anterior...</b></font></a></p>
    </td>
</tr>
</table>

<body overflow-y: hidden;>
<div id="conteudo">
<h1 valign=middle id="mostra"><center>Clique aqui para exibir e ocultar as características deste produto</center></h1>
</div>

<div id="scroll">
<div id="oculto">
     <font size="1" color="black"><%=prod_descricaoh%>
    <br>
</div>
</body>
</html>

Ele refere-se a uma consulta no banco onde existe duas definições produto disponível e produto indisponível sendo marcados por um "S" ou por um "N" quando coloco o produto como indisponível ele além de ainda mostrar o mesmo quando tento acessa-lo retorna o seguinte erro:

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/detalheprod.inc, line 57

Agradeço se puderem verificar e me ajudar a resolver.

Abraço a todos

Legionario

.Andreia. · Agosto 24, 2009

a sua consulta deve estar retornando vazia e por isso ela não encontra um valor para setar nas variaveis. de uma olhada e faça o tratamento de erro (if tab.eof = true....)

Legionáriors · Setembro 2, 2009

Boa noite pessoal,

Bom verificando melhor todo o contexto verifiquei que o problema é em outro script e fuçando bantante consegui fazer funcionar mas o problema agora é na formatação das tabelas deste código não há erro os produtos estão aparecendo certinho é que está mostrando apenas uma coluna sendo que deveria estar mostrando 4. Se puderem me ajudar agradeço.

<%
Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnada
lista=Request.querystring("lista")
cat_id=Request.querystring("cat_id")
cat_nome=Request.querystring("cat_nome")
nome=Request.querystring("nome")
%>
<table border=0 width=100% cellspacing="5" cellpadding="0"><tr width=100%><td width=100% valign=top><h3><%=cat_nome%></h3></td></tr>
<%
Select Case lista
Case "categoria"
    set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" AND disp='S' ORDER BY nome")
    msgnada = "No momento não dispomos de nenhum produto neste departamento."
Case "busca"
    set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preço LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' AND disp='S' ORDER BY nome")
    msgnada = "Infelizmente não localizamos nenhum produto com esse nome."
Case Else
    %>
    <script>window.location="./index.asp"</script>
    <%
End Select
If lista_produtos.EOF Then 
    Response.Write "<tr><td><h5>" & msgnada & "</h5></td></tr>"
Else 
%>
    <%
    Dim prod_cat_id,prod_id,prod_imagem,prod_descricaop,prod_preco,malha1,col,colu
    malha1 = "sim"
    col=4
    if not lista_produtos.eof then
    colu=1
    response.write "<table><tr><td>"
    while not lista_produtos.EOF
        prod_cat_id = lista_produtos("cat_id")
        prod_id = lista_produtos("id")
        prod_imagem = lista_produtos("imagem")
        prod_descricaop = lista_produtos("descricaop")
        prod_preco = lista_produtos("preço")
        %>                  
        
        <table valign=top width=100% border="2" cellspacing="3" cellpadding="3">
        <tr class=<%=malha1%>>
        <td align="center"><center><a href="detalhe_produto.asp?id=<%=lista_produtos("id")%>" target="principal"><img src='images/<%response.write lista_produtos ("imagem")%>' height="100" border="0"/></a></tr>
        <tr>
        <td align="center"><center><font face="verdana" size="1" color="black"><b><%response.write lista_produtos ("nome")%><b></td></tr>
        <td align="center"><center><font face="verdana" size="2" color="red"><b>R$ <%response.write formatnumber (lista_produtos("preço"),2)%></b></td></tr>
        <td align="center"><center><font face="verdana" size="1" color="black"><b><%response.write lista_produtos ("condicoes")%><b></td></tr>
        </tr>
        </table>
        
        <%
        if colu=col then
        response.write "</td><tr><td>"

        colu=1

        response.write "</td><td>"

        colu=colu+1

        end if

        lista_produtos.movenext
        If malha1 = "sim" Then malha1 = "não" Else malha1 = "sim" End If
    wend
        response.write "</td></tr></table>"
End If
lista_produtos.Close
set lista_produtos = Nothing
End if
%>
</table></td></tr>
</table>

Rafael Spilki · Setembro 2, 2009

Fala Legionariors, sugiro dar uma pesquisadinha em repetições por linha no google...

tb sugiro dar uma estudada nas tags <tr>, <td> e já aproveita e estuda tambéms as tags <ul>, <li>, etc.

[]'s

Entrar

Erro no Script

Pergunta

Legionáriors

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

.Andreia.

Link para o comentário

Compartilhar em outros sites

Legionáriors

Link para o comentário

Compartilhar em outros sites

Rafael Spilki

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades