Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Nicolviski

Codigo java não funciona após o Loop?

Recommended Posts

Pessoal tenho o código abaixo que tem um script java que soma o valor de alguns campos e coloca este valor no campo total. Ele funciona, mas só no primeiro loop, depois no próximo loop já não funciona mais. Alguém tem como me ajudar?

Segue o código:

<tag>

<%

'Declaração das arrays

Dim arrproduto()

Dim arrun()

empresa = "nova"

'Declarando a Conexao com o Banco de Dados

Set Conexao = Server.CreateObject("ADODB.Connection")

'Caminho do Banco de Dados

Conexao.Open "DBQ=c:\inetpub\wwwroot\_private\geral2.mdb;Driver={Microsoft Access Driver (*.mdb)};"

'Cláusula SQL de pesquisa

PESQUISAR = "SELECT * FROM tab_produtos WHERE empresa LIKE'%" & empresa & "%' ORDER by produto "

'Criação do arquivo que conterá o resultado da pesquisa

Set RecSet=Conexao.Execute(PESQUISAR)

%>

<%'Caso chegue ao final do RecordSet e não encontre nenhum registro

IF RecSet.EOF then %>

<p>Não há Produtos Cadastrados</pd>

<% Else

x = 0

Do While Not RecSet.EOF

ReDim Preserve arrproduto(x)

ReDim Preserve arrun(x)

arrproduto(x) = RecSet("produto")

arrun(x) = RecSet("un")

%>

<script language="javascript">

function soma1() {

var f = document.forms[0];

var valor1 = parseFloat(f.qtd1.value.replace('.','').replace(',','.'));

var valor2 = parseFloat(f.qtd2.value.replace('.','').replace(',','.'));

var valor3 = (valor1||0) + (valor2||0);

f.total.value = (valor3);

}

</script>

<body oncontextmenu="return false">

<form method="POST" name="form1" action="provaris2d.asp">

<p>PRODUTO:<input type="hidden" name="arrproduto(x)" value="<%=(arrproduto(x))%>"><%=(arrproduto(x))%>

==<input type="hidden" name="arrun(x)" value="<%=(arrun(x))%>"><%=(arrun(x))%>

==QTD1<input type="text" name="qtd1" value="0,00" onkeyup="soma1()" size="5">

==QTD2<input type="text" name="qtd2" value="0,00" onkeyup="soma1()" size="5">

==TOTAL<input type="text" name="total" value="0,00" readonly="readonly" size="6"></p>

</form>

<%

x = x + 1

RecSet.MoveNext

Loop

RecSet.Close

Conexao.Close

Set RecSet = Nothing

Set Connexao = Nothing

%>

<% End If %>

</tag>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...