Sou novo ainda aqui no fórum mas estou numa dúvida tremenda... eu tenho dois List (Select) que são dinamicos em um formulário, o primeiro carrega os valores de uma BD e o segundo fica vazio, para o usuario selecionar os valores que ele deseja no primeiro e jogar para o segundo, através de javascript, feito isso o formulario joga os valores para um ASP, só que ele só joga os valores, quando estão selecionados, então eu precisava de algo que fizesse o javascript selecionar automatico os valores do segunto list pro ASP poder pegar os valores... seguem abaixo os codigos...
formulario.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/UAU.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_UAU_STRING
Recordset1.Source = "SELECT * FROM Empresas"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<script language="JavaScript">
function move(MenuOrigem, MenuDestino){
var arrMenuOrigem = new Array();
var arrMenuDestino = new Array();
var arrLookup = new Array();
var i;
for (i = 0; i < MenuDestino.options.length; i++){
arrLookup[MenuDestino.options[i].text] = MenuDestino.options[i].value;
arrMenuDestino[i] = MenuDestino.options[i].text;
}
var fLength = 0;
var tLength = arrMenuDestino.length;
for(i = 0; i < MenuOrigem.options.length; i++){
arrLookup[MenuOrigem.options[i].text] = MenuOrigem.options[i].value;
if (MenuOrigem.options[i].selected && MenuOrigem.options[i].value != ""){
arrMenuDestino[tLength] = MenuOrigem.options[i].text;
tLength++;
}
else{
arrMenuOrigem[fLength] = MenuOrigem.options[i].text;
fLength++;
}
}
arrMenuOrigem.sort();
arrMenuDestino.sort();
MenuOrigem.length = 0;
MenuDestino.length = 0;
var c;
for(c = 0; c < arrMenuOrigem.length; c++){
var no = new Option();
no.value = arrLookup[arrMenuOrigem[c]];
no.text = arrMenuOrigem[c];
MenuOrigem[c] = no;
}
for(c = 0; c < arrMenuDestino.length; c++){
var no = new Option();
no.value = arrLookup[arrMenuDestino[c]];
no.text = arrMenuDestino[c];
MenuDestino[c] = no;
}
}
</script>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<br>
<form method="post" action="cadUsuario2.asp" name="form1">
<fieldset><legend>Cadastrar Usuario</legend><table width="500" align="left">
<tr valign="baseline">
<td width="99" align="right" nowrap>Email:</td>
<td width="192">
<input type="text" name="email" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Fone:</td>
<td>
<input type="text" name="fone" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Nome:</td>
<td>
<input type="text" name="Nome" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Senha:</td>
<td>
<input type="text" name="senha" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Usuario:</td>
<td>
<input type="text" name="Usuario" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td align="right" valign="middle" nowrap><select name="list1" size="5" multiple id="list1" style="width:150;">
<%
While (NOT Recordset1.EOF)
%>
<option value="<%=(Recordset1.Fields.Item("codEmpresa").Value)%>"><%=(Recordset1.Fields.Item("Empresa").Value)%></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select>
<input type="button" onClick="move(this.form.list2,this.form.list1)" value="<<"></td>
<td valign="middle"><input type="button" onClick="move(this.form.list1,this.form.list2)" value=">>">
<select name="list2" size="5" multiple id="list2" style="width:150;"></select></td>
</tr>
</table>
</fieldset>
<input type="hidden" name="nivel" value="" size="32">
<input type="hidden" name="Status" value="" size="32">
<input type="hidden" name="MM_insert" value="form1">
<input type="submit" value="Insert record">
</form>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
cadusuario2.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% If Not Request.Form("list2")="" Then %>
Thanks <%=Request.Form("list2")%> !<br>
<%For k=1 To Request.Form("list2").Count%>
Request.Form("list1")(<%=k%>)=<%=Request.Form("list2")(k)%><br>
<%Next%>
<% End If %>
Se puderem me ajudar eu agradeço!!!
