solucionado kiza a alguien le ayude alguna vez!!! ahi va eraq muy sencillo....
<SCRIPT LANGUAGE="VBScript">
<!--
dim paso()
redim paso(0)
sub prueba_onclick
x=uBound(paso)
if cint(x)=0 then
paso(0)=document.ingresar_siniestro.x_supervisor.v alue
document.ingresar_siniestro.pruebas.value= paso(0) & chr(10)
x=x+1
redim preserve paso(x)
else
paso(x)=document.ingresar_siniestro.x_supervisor.v alue & chr(10)
'document.ingresar_siniestro.pruebas.value= paso(x)'
for i=0 to ubound(paso)
j= j & paso(i) & chr(10)
next
document.ingresar_siniestro.pruebas.value= j
x=x+1
redim preserve paso(x)
End if
end sub
-->
</SCRIPT>
