function checaform(){ if (checkForm(form1,myrules)) { document.form1.Modelos.Value = ""; document.form1.Veiculos.Value = ""; for (i= 0;i<= document.form1.lstLista.length-1;i++) { if (i>0)document.form1.Modelos.Value = document.form1.Modelos.Value + ","; [b]document.form1.Modelos.Value = document.form1.Modelos.Value + document.form1.lstLista.options(i).value; [/b] alert("elem " + i + "- " + document.form1.Modelos.Value); } for (i= 0;i<= document.form1.lstLista0.length-1;i++) { if (i>0) document.form1.Veiculos.Value = document.form1.Veiculos.Value + ","; [b]document.form1.Veiculos.Value = document.form1.Veiculos.Value + document.form1.lstLista0.options(i).value; [/b] alert("elem " + i + "- " + document.form1.Veiculos.Value); } form1.submit(); } }In my html tags and refering to the bolded are:
if request("valor")<>"" then incluidos = request("Modelos") incluidosvei = request("Veiculos") if incluidos <> "" and incluidosvei <> "" then Set dbc = server.CreateObject("cad_veiculo_modelo.cls_veiculo_modelo") dbc.conexao = ";password="& session("pws") &";user ID="& session("loginuser") modelo=split(incluidos,",") veiculo=split(incluidosvei,",") response.write(modelo(0)) 'response.write ("incluidos") for i=0 to ubound(modelo) -1 if ((modelo(i)<>"") and (modelo(i) <> "0")) then for j=0 to ubound(veiculo) -1 if ((veiculo(j)<>"") and (veiculo(j)<>"0")) then insereok=dbc.insere_veiculo_modelo(modelo(i),veiculo(j)) end if next end if next select case insereok case true: response.write("<script language='javascript'> alert('Informaçao inserida com sucesso!'); location.replace('manut_veiculo_modelo_incluir.asp') </script>") case false: response.write("<script language='javascript'> alert('Error na gravaçao, por favor, tente novamente!') </script>") end select dbc.closeall end if end ifwhat is wrong in my code?