Executar calculos de vários valores e identifica-los

É o seguinte no cadastro de pedidos ao clicar em ver pedidos irá aparecer todos os pedidos do cliente A, pedido 1, pedido 2, pedido 3 e assim por diante, e pegará as informações do banco como, a data de pagamento, valor inicial, etc... depois irá processar esses valores com o script da página. O que está acontecendo é que apenas os valores do primeiro registro está sendo calculado e mostrado no lugar dos outros valores independente do código.

Select:

sql = "SELECT * "sql = sql & "FROM pedidos "sql = sql & "INNER JOIN clientes "sql = sql & "ON pedidos.idcliente = clientes.codcliente "sql = sql & "WHERE pedidos.idcliente LIKE '" & request.querystring("codcliente") & "'"sql = sql & "ORDER BY pedidos.idcliente asc"

Script dos calculos:

<% Dim codcliente, nfiscal, nduplicata, vinicial, vcorrigido, vpago, vatual, juros, datraso, dvencimento, dpagamento, cobranca'pega os valores do banco e transforma em variáveiscodcliente = RS("codcliente")nfiscal = RS("nfiscal")nduplicata = RS("nduplicata")vinicial = RS("vinicial")vcorrigido = RS("vcorrigido")vpago = RS("vpago")vatual = RS("vatual")juros = RS("juros")datraso = RS("datraso")dvencimento = RS("dvencimento")dpagamento = RS("dpagamento")cobranca = RS("cobranca")'data = RS("data")' Aqui começa o processamento dos calculosdvencimento = DateAdd("d", 4, dpagamento) ' adiciona a data de vencimento mais quatro diasvatual = vinicial-vpago ' O valor atual é igual ao valor inicial menos o valor pagodatraso = dvencimento ' dias atrasados é igual a data de vencimentod1 = DateDiff("d", datraso, Now) 'calcula a diferenca de diasd2 = DateDiff("m", datraso, Now) 'calcula a diferenca de mesesd3 = DateDiff("yyyy", datraso, Now) 'calcula a diferenca de anosjuros = d1 33/100 ' juros é igual ao dias atrasados multiplicado por 0,33 %vcorrigido = vinicial+juros-vpago ' valor corrigido é igual ao valor inicial somado ao juros menos o valor pagovpago2 = FormatNumber(vpago) ' Aqui transformamos o valor pago para moedavinicial2 = FormatNumber(vinicial) ' Aqui transformamos o valor inicial para moedaPorcentagem = juros 'Porcentagem de juros ao mesValor = vinicial2 'Valor total da compravcorrigido = valor Porcentagem / 100 ' valor corrigido é igual ao valor vezes o jurosvatual2 = (vcorrigido + Valor-vpago) ' valor atual2 é igual ao valor corrigido somado ao valor menos o valor pagoValorParcelaJuroSimples = FormatNumber(vatual2)vcorrigido2 = FormatNumber(vcorrigido) %>

Aqui é o jeito que estou chamando os dados:

<%=RS("nduplicata")%>
<%=dvencimento%> :(