Inserir vários registros de uma só vez

[guilhermezd 0]

tenho um form com os seguintes campos:<form method="post" name="msg" action="process_msg.asp?acao=novo"><select name="codigo_user" multiple="multiple" id="codigo_user" style="font-size:11px"> ' permite selecionar mais de um registro.<input name="assunto" type="text" id="assunto" size="80" maxlength="255" /><textarea name="msg" cols="60" rows="28" id="msg"></textarea></form>--------------------process_msg.asp-----------------------resumindo:....Set data = Conexao.execute("INSERT INTO msg(codigo_user, titulo, msg, data, hora)" & "VALUES('" & cod_user & "','" & titulo & "','" & msg & "','" & date & "','" & time & "')")Como faço para inserir quantos registros forem selecionados no campo codigo_user e cada um deve ser inserido um codigo_user diferente. Ou seja os selecionados.Obrigado

[Mário Monteiro 179]

não dá paa fazer de "uma vez" mas voce insere dentro de um loop normal

[LiPe 0]

Sim,

Você pode fazer assim...

<%	'Recupera uma string com os dados selecionados separados por ","	strListaId = Request.Form("ListaID")	'Transforma a string em um array entre vírgulas	arrLista   = Split(strListaId,",")	'Insere os valores	For i = 0 To Ubound(arrLista)		Conn.Execute("INSERT INTO TB (ID)VALUES(" & arrLista(i))	Next%>

[guilhermezd 0]

Olá estou fazendo deta forma só que só inseri o primeiro registro:destino = request("destino")assunto = request.form("assunto")msg = request.form("msg")vet = split(destino, ",")for I = LBound(vet) to UBound(vet)Set data = Conexao.execute("INSERT INTO dp_msg(codigo_func,codigo_amigo,data,hora,titulo,mensagem)" & "VALUES('" & vet(I) & "','" & Session("codigo_user") & "','" & date & "','" & time & "','" & assunto & "','" & msg & "')")Nextalguem sabe o está errado?Valew

[Mário Monteiro 179]

dá algum erro ou só não funciona como deveria

[guilhermezd 0]

Não da nenhum erro, apenas inclui o primeiro registro selecionado ao invés de incluir todos selecionados.

[Mário Monteiro 179]

estranhomas tire o Set data = que não precisa