4 replies to this topic

[maxcs]

Pessoal estou com o codigo abaixo, ele deveria identificar a quantidade de um produto e nao permitir que se
digite uma quantidade maior, Onde estou errando?


<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection
'Conectando com o banco de dados contato.mdb
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("teste.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
'Seleciona da tabela contato
strQuery = "SELECT * FROM itens"
Set ObjRs = objConn.Execute(strQuery)

%>

<form action="compra.asp">


<%While Not objRS.EOF %>


<script LANGUAGE="JScript">
valida_qtdade()
{
if (document.form.qtdade.value > <%Response.write objRS("estoque")%>)
{
alert ("Quantidade Indisponivel em Estoque");
document.form.qtdade.value='';
document.form.qtdade.focus;
}
}
</script>


- <%Response.write objRS("produto")%> <input type="text" name="qtdade" onchange="valida_qtdade();" size=3><br>



</form>





<%
'Move para o próximo registro
objRS.MoveNext
Wend
'Fechando as conexões
objRs.close
objConn.close
Set objRs = Nothing
Set objConn = Nothing
%>

[LeoB]

Olá. Experimente assim:

<%
Option Explicit
Response.Expires = 0

Dim objConn, objRs, strQuery, strConnection

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("teste.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

Set ObjRs = objConn.Execute("SELECT * FROM itens")

If Not objRS.EOF Then

%><form action="compra.asp" method="post">
<script LANGUAGE="JavaScript">
  function Valida_Qtd(Campo, Maximo){
     if(Campo.value > Maximo || isNaN(Campo.value)){
       alert ("Quantidade Indisponivel em Estoque");
       Campo.value = '';
       Campo.focus; 
     }
  }
</script><%
    i = 1
    While Not objRS.EOF

        %><%=objRS("produto")%> <input type="text" name="Qtd<%=i%>" onblur="Valida_Qtd(this, <%=objRS("estoque")%>)" size=3><br><%

         objRS.MoveNext
         i = i + 1

    Wend

    %></form><%

End If

objRs.close
objConn.close
Set objRs = Nothing
Set objConn = Nothing
%>

Edição feita por: LeoB, 23/02/2004, 13:27.

[maxcs]

LeoB, o seguinte erro ocorre...

................................................................................................
Erro de tempo de execução do Microsoft VBScript error '800a01f4'

Variável não definida: 'i'

/1.asp, line 24
................................................................................................

[LeoB]

É por causa do "Option Explicit". Esqueci de declarar a variável. É só colocá-la no Dim.

Dim objConn, objRs, strQuery, strConnection, i

[maxcs]

Valeu cara!!!
essa vida de iniciante é fogo...