Hola de nuevo, aqui mando mis dos archivos en uso, a lo mejor algop estoy haciendo mal y me da ese erro:
Venta.asp
Código:
<html> <head>
<link rel="STYLESHEET" type="text/css" href="css/letras.css">
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>Ventas</title>
<!--#include file="Funciones.asp"-->
</head>
<body >
<% dim cant
dim pre
dim mul
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./Ventas2.mdb"))%>
<h1 align="center">Venta de productos</h1>
<form name="FRMCLIENTE" method=POST target=_self action="">
<p align="center">Seleccione el producto a comprar:
<select size="1" id="Productos" name="Productos" onChange = "javascript:sublist(this.form, Productos.value);">
<option selected>Selecciona un Producto</option>
<%productos_Sql = "Select distinct id, productos from productos ORDER BY Productos"
rs.Open productos_Sql, Conn
do while not rs.eof%>
<option value="<%=rs("id")%>"><%=rs("productos")%></option>
<%rs.movenext
loop%>
</select>
<table border="1" align="center" width="42%">
<tr>
<td width="14%" align="left"><b>Productos</b></td>
<td width="86%" align="left">
<SELECT id="subcatagory" name="subcatagory" size="1" onChange = "javascript:sublist(precio.value = this.value);">
<Option selected value="none"></option>
</SELECT>
</td>
</tr>
<tr>
<td width="14%" align="left"><b>Cantidad</b></td>
<td width="86%" align="left">
<input type="text" name="Cantidad" size="10" onkeypress="return numero(event,this.value)"></td>
</tr>
<tr>
<td width="14%" align="left">
<b>Precio</b>
</td>
<td width="86%" align="left">
<input type="text" name="precio" size="10" disabled value="">
</td>
</tr>
<tr>
<td width="14%" align="left">
<input type="button" value="Ver Sub-Total" name="B1" ONCLICK="return multiplica()"></td>
<td width="86%" align="left">
<input type="text" name="T1" size="10" disabled>
</td>
</tr>
<tr>
<td width="14%" align="left"><b>Comprar</b></td>
<td width="86%" align="left">
<input type="submit" value="Comprar" name="B2" ONCLICK="return compra()">
</td>
</tr>
</table>
<%set rs=nothing
conn.close
set conn=nothing%>
</Form></body>
Funciones.asp
Código:
<script language = "JavaScript">
<% 'CONSULTA PARA OBTENER LOS DATOS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./Ventas2.mdb"))
productos_Sql = "Select * from precios ORDER BY tipo_producto"
set rs = CreateObject("ADODB.Recordset")
rs.Open productos_Sql, Conn
x=0
%>
// FUNCION DE COMBO BOX COMBINADO
function sublist(inform, selecteditem)
{ inform.subcatagory.length = 0
<%
count= 0
y=0
do while not rs.eof
%>
x = <%= trim(y) %>;
subcat = new Array();
subcatagorys = "<%=(rs("tipo_producto")) %>";
subcatagoryof = "<%=(rs("id"))%>";
subcatagoryid = "<%=(rs("precios"))%>";
subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
subcat[x,2] = subcatagoryid;
FRMCLIENTE.precio.value= document.FRMCLIENTE.subcatagory.value;
if (subcat[x,1] == selecteditem) {
var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]);
inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;}
<%
count = count + 1
y = y + 1
rs.movenext
loop
rs.close
%>
}
function numero(e,txt){
tecla = (document.all) ? e.keyCode : e.which;
if (tecla==8) return true;
if (tecla==46 && txt.indexOf('.') != -1) return false;
patron = /[\d\.]/;
te = String.fromCharCode(tecla);
return patron.test(te);}
function multiplica(){
if (FRMCLIENTE.Cantidad.value==''){
alert("Ingrese la Cantidad a Compra");
return false;}
if (FRMCLIENTE.Precio.value==''){
alert("Ingrese la Cantidad a Compra");
return false;}
cant = document.FRMCLIENTE.Cantidad.value;
pre = document.FRMCLIENTE.precio.value;
mul = cant * pre;
document.FRMCLIENTE.T1.value = (Math.round(mul*100))/100;
return false;
}
</script>
Como pueden ver en el objeto precio tengo establecido la propiedad value, pero aun asi no hace nada, sera que tiene algo q ver con el valor que le paso del combo, subcagoria?