Inserindo Resultados De Um List/menu No Bd

[notax 0]

Pessoal, bom dia!

 

Tenho um list/menu com possibilidade de múltipla seleção.

 

Quando tem mais de uma seleção os valores vem assim: ex1, ex2, ex3...

 

Como faço para incluir cada seleção em uma linha diferente no BD? Preciso fazer como no ex. abaixo, já sem as vírgulas:

 

ex1

ex2

ex3

 

Alguém da uma luz?

 

valew

[jrcardozo 4]

arrayx = split("ex1,ex2,ex3", ",")

for i = 0 to ubound(arrayx)

response.write "<br>" & arrayx(i)

next

[xanburzum 169]

e depois dá um INSERT no banco de dados, exemplo:

 

<% 'antes fazendo uma verificaçao
   'no BD através do Select para ver se ja existe os dados, depois
   'inclua no bd atraves da SQL Insert e redireciona para a pagina principal
   'e lá receberá um mensagem de sucesso
   
   Option explicit
   'declaro as var
   dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert
   'recupero todos os dados
   varlogin=trim(request.form("login"))
   varsenha=trim(request.form("senha"))
   varemail=trim(request.form("email"))
   'crio a conexao
   %>
   <!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"
		rsinsert.open SQLinsert,conexao,1,3
		response.redirect("administracao_treina.asp?msg=1")
		set rsinsert=nothing
	end if 
	call fechaconexao %>