[Resolvido] Insert pra + de um registro em loop

Ae pessoallll

Tipo oq rola.....

tenhu um form q cadastra os dados do dito cujo bakaninha no BD....

agora estou precisando de inserir em "pacotes" ou seja.... criei um select ond insiro qts usuarios eu quiser beleza !!!

Ae preciso cadastrar todos de uma vez.... com os msm dados !!!

vou postar o CODE aki....

If Request("button") = "Alterar" AND request("jornada") <> "" OR Request("button") = "Alterar" AND request("folga") <> "" OR Request("button") = "Alterar" AND request("aleatorio") <> "" Then

'Loop do vetor
for x= Lbound(novoVetor) to Ubound(novoVetor) // Aki pessoal eh o vetor onde se encontra o registro do pessoa
'response.Write novoVetor(x)

StrOsc = "SELECT * FROM tbl_cadastro_jornada_trabalho WHERE registro_stc = '"&novoVetor(x)&"'" // Aki ele faz o select com o indice , nao se esta certo o local do loop viu gente

Set ObjOsc = DBconnecta.Execute(StrOsc)

strGerencia = "SELECT * FROM tbl_indicadores_la WHERE gra = '"&ObjOsc("Gra") &" '"
Set ObjGerencia = DBconnecta.Execute(strGerencia)

vgra = Request("gra")

vgram = Request("gram")
vgerencia = Request("gerencia")

vinicio_jornada = Request("inicio_jornada")

vfim_jornada = Request("fim_jornada")

' ***************************** Jornada ********************************************************
vdt_movimentacao1 = Request("dt_movimentacao")
vdt_movimentacao = month(vdt_movimentacao1)&"/"&day(vdt_movimentacao1)&"/"&year(vdt_movimentacao1)
vinicio_jornadaAlterada = Request("inicio_jornadaAlterada")

vfim_jornada = Request("fim_jornada")

vfim_jornadaAlterada = Request("fim_jornadaAlterada")

if vinicio_jornada <> Request("inicio_jornadaAlterada") then
vcad_jornada = "sim"
else
vcad_jornada = "nao"
end if
if vfim_jornada <> Request("fim_jornadaAlterada") then
vcad_jornada = "sim"
else
vcad_jornada = "nao"
end if

' ***************************** FOLGA ***********************************************************
vdt_folga1 = Request("dt_folga")
vdt_folga = month(vdt_folga1)&"/"&day(vdt_folga1)&"/"&year(vdt_folga1)
vconfirma_folga = Request("confirma_folga")

' ***************************** ALEATORIO *******************************************************
vdt_aleatorio1 = Request("dt_aleatorio")
vdt_aleatorio = month(vdt_aleatorio1)&"/"&day(vdt_aleatorio1)&"/"&year(vdt_aleatorio1)
vnivel_aleatorio = Request("nivel_aleatorio")

' ********************************************************************************
*******************

vreg_solicitante = vReg

vresponsavel = Request("responsavel")

if vreg_solicitante <> vresponsavel Then
vorigem = "Terceiro"
End If
if vreg_solicitante = vresponsavel Then
vorigem = "Normal"
End If
vstatus_solicitacao = "Não"

' INSERT DE CAMPO FORMULARIO -->
vdt_solicitacao = month(date())&"/"&day(date())&"/"&year(date())&" "&Hour(now())&":"&Minute(now())

StrQuery = "INSERT INTO tbl_controle_jornada_trabalho(gra, gram , centro_custo , reg_osc , inicio_jornada , fim_jornada , dt_movimentacao , inicio_jornadaAlterada , fim_jornadaAlterada , reg_solicitante, status_solicitacao, responsavel, origem,dt_folga,confirma_folga,dt_aleatorio,nivel_aleatorio,data_solicitacao,cad
_jornada)VALUES('"&vgra&"', '"&vgram&"', '"&vgerencia&"', '"&ObjOsc("registro_stc")&"', '"&vinicio_jornada&"', '"&vfim_jornada&"', '"&vdt_movimentacao&"', '"&vinicio_jornadaAlterada&"', '"&vfim_jornadaAlterada&"', '"&vreg_solicitante&"', '"&vstatus_solicitacao&"', '"&vresponsavel&"', '"&vorigem&"', '"&vdt_folga&"', '"&vconfirma_folga&"', '"&vdt_aleatorio&"','"&vnivel_aleatorio&"','"&vdt_solicitacao&"', '"&vcad_jornada&"')"

Set ObjRs = DBconnecta.Execute(StrQuery)
next
Eh isso ae... espero q entendammmm

Flwww