Nenhuma resposta neste tópico

[ricarossi]

Galera! to precisando de um auxilio.

Estou tentando inserir resgistro usando looping. Meu script cadastra apenas o primeiro registro e não todos da tabela consultada.

Segue o script!

<%
Dim objRS, strSql,caminho_banco, strCon
Dim usuario, usuario_part, teste_nome

strSQL = "SELECT * FROM vagas_testes WHERE usuario LIKE '"& session("usuario") &"' and codigo LIKE '"& session("codigo") &"'"
objRS.Open strSQL, strCon
If not objRS.EOF then

v_teste_nome = split(objRS("teste_nome"),",") 'vai criar um array dos presentes quebrando por vírgulas que o form envia como separador para o mesmo nome de campo.
For i=Lbound(v_teste_nome) to Ubound(v_teste_nome) 'varrer o array dos presentes e inserir no banco
Response.write v_teste_nome(i)&"<BR>"
usuario= session("usuario")
usuario_part= session("usuario_part")
strSql = "INSERT INTO usuario_part_testes (usuario, usuario_part, teste_nome)"
strSql = strSql & "Values ('"&usuario&"','"&usuario_part&"','"&Trim(v_teste_nome(i))&"')"

Next

end if
strCon.Close
Set strCon = Nothing
response.Redirect("cadastro-ok-convite.asp")

%>