Pevar valor de variavel dentro do loop

[weslei.conexao 0]

Bom dia !! tem um loop que lê uma tabelinha no bd e me exibe os ids dessa tabela. Aí preciso pegar o valor desse id e passar pra um 4 select rpa fazer a consulta no bd.

Dim idPedido 
DO WHILE NOT rs.EOF     ' o loop pra pegar os ids do pedido aqui vai gerar ex; ids 1234

idPedido = rs("id")

 rs.movenext

loop

 

aqui os 4 selects

ExpSqlPed1="Select * from pedido where fkCod ="& idPedido ' aqui quero  pega o id 1 
set rsPed1= cn.execute(ExpSqlPed1)

ExpSqlPed2="Select * from pedido where fkCod ="& idPedido ' aqui quero  pega o id 2
set rsPed2= cn.execute(ExpSqlPed2)

ExpSqlPed3="Select * from pedido where fkCod ="& idPedido ' aqui quero  pega o id 3
set rsPed3= cn.execute(ExpSqlPed3)

ExpSqlPed4="Select * from pedido where fkCod ="& idPedido ' aqui quero  pega o id 4
set rsPed4= cn.execute(ExpSqlPed4)

 

então preciso pegar o valor da varival dentro do loop e atribuir ao select ou seja no primeito loop pegar o valor e passar pra expSqlped1

no segundo loop pegar o valor e passar pra expSqlped2 e assim até a 4ª expSql

 

Grato desde de já

[xanburzum 169]

olha este exemplo, pode te clarear algo...

 

 

if qtd_produtos = "" then
Response.write("erro..."
response.redirect("outra_pagina.asp")
else
qtd_produtos = split(Request.Form("qtd_produtos"),",")
if qtd_produtos = ""
produtos= Split(Request.Form("produtos"), ",")

For i = 1 To Request.Form("produtos").Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"