HOla!
te marco en negrita lo que cambie (una linea de la funcion cargaCombo(), y la funcion cargaCampoTexto()).
Código:
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript1.2">
<%
'esta seccion del codigo lo que hace es crear dos vectores javascript que almacenan
'los nombres de la productos y los valores de los mismos respectivamente.
'Una vez creados los vectores javascript, el resto de la pagina
var1 = "vectorProducto = new Array("
var2 = "vectorValorProducto = new Array("
set conexion = Server.CreateObject("ADODB.Connection")
conexion.connectionString = "cvo_odbc"
conexion.open
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="SELECT distinct PRODUCTO,VALOR_PRODUCTO FROM PRODUCTOS WHERE PRODUCTO ORDER BY PRODUCTO ASC"
rs2.Open sql2, conexion, 3, 3
do while Not rs2.EOF
var1 = var1 & "'" & Ucase(rs2("PRODUCTO")) & "',"
var2 = var2 & "'" & Ucase(rs2("VALOR_PRODUCTO")) & "',"
rs2.MoveNext
loop
response.write Left(var1,Len(var1)-1) & ");"
response.write Left(var2,Len(var2)-1) & ");"
%>
//Esta funcion te cargara el combo con los valores de los vectores
function cargaCombo(){
formulario = document.formularioProductosPrecios;
formulario.productos.length = vectorProducto.length;
for (var i=0; i < vectorProducto.length; i++){
formulario.productos.options[i].value = vectorProducto[i];
formulario.productos.options[i].text= vectorProducto[i];
}
formulario.productos[0].selected = true;
}
//Esta funcion coloca el nuevo precio al cambiar de producto en el combo
function cargaCampoTexto(){
formulario = document.formularioProductosPrecios;
formulario.precio.value = vectorValorProducto[formulario.productos.selectedIndex];
}
</script>
</head>
<body onLoad="cargaCombo();cargaCampoTexto();">
<form name="formularioProductosPrecios">
<select name="productos" onChange="cargaCampoTexto()">
<option>-
</select>
<br>
<input type="text" name="precio">
</form>
</body>
</html>
Lo pruebas, y si no es lo que dices, lo intentamos de nuevo
ToKaTa.