pasar items de una lista multiple a otra

[tattojk]

Saludos.

Tengo un problema al utilizar dos listas..

Cuando paso todos los elementos de la lista donde tengo los items actualmente son 30 pero pueden subir lo hace muy bien pero si quiero devolver los items de la lista que los recibio a la lista original no lo hace...

Aqui pongo el codigo que estoy utilizando, si pueden revisarlo y decirme que estoy haciendo mal....

Como escribi tengo 30 elementos, en el ciclo for cuando llega al 16 sale error..

function EnviaTodos(formulario)
{
var cont = form1.lstEnvia.length
for(i = 0;i < cont;i = i + 1)
{
form1.lstEnvia.options[i].selected = true;
obj=document.getElementById('lstEnvia');
if (obj.selectedIndex==-1) return;
valor=obj.value;
txt=obj.options[obj.selectedIndex].text;
obj2=document.getElementById('lstRecibe');
opc = new Option(txt,valor);
eval(obj2.options[obj2.options.length]=opc);
}
cont = form1.lstEnvia.length - 1;
while(cont >= 0)
{
form1.lstEnvia.options[cont].selected = true;
obj=document.getElementById('lstEnvia');
obj.options[obj.selectedIndex]=null;
cont = cont - 1
}
}


function DevuelveTodos(formulario)
{
var cont = form1.lstRecibe.length
for(i = 0;i < cont;i = i + 1)
{
form1.lstRecibe.options[i].selected = true;
obj=document.getElementById('lstRecibe');
if (obj.selectedIndex==-1) return;
valor=obj.value;
txt=obj.options[obj.selectedIndex].text;
obj2=document.getElementById('lstEnvia');
opc = new Option(txt,valor);
eval(obj2.options[obj2.options.length]=opc);
}
cont = form1.lstRecibe.length - 1;
while(cont >= 0)
{
form1.lstRecibe.options[cont].selected = true;
obj=document.getElementById('lstRecibe');
obj.options[obj.selectedIndex]=null;
cont = cont - 1
}
}

Los elementos creados html son:

<select name="lstEnvia" size="4" id="lstEnvia" onFocus="form1.lstRecibe.selectedIndex=-1">
<option value="1">ING DESARROLLO</option>
<option value="2">CONTADOR</option>
<option value="3">AUDITOR</option>
</select>

<select name="lstRecibe[]" size="4" id="lstRecibe" multiple onFocus="form1A.lstEnvia.selectedIndex=-1">
</select>

Agradezco la ayuda y sugerencias que me puedan brindar.