05/09/2007, 01:50
|
 | | | Fecha de Ingreso: diciembre-2006
Mensajes: 248
Antigüedad: 17 años, 4 meses Puntos: 0 | |
| Re: Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
Sigo con el problema....-S.
Siento las molestias, pero igual sigo en el proceso y me ha dado el mismo error '800a000d' en otra página, cuando llega el momento de comprar el artículo, en la que selecciono la cantidad de productos y hago click en comprar.
Me da el mismo error, en la línea 78:
Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
No coinciden los tipos
/carrito/compra/comprar.asp, línea 78
Linea 78:
<%=FormatNumber(Precio * Unidades, 0) %>
en la base de datos, estos campos son numéricos.
El código completo es como sigue:
<%
Dim cod_producto 'Codigo del producto que estamos mostrando
Dim unidades 'unidades que se comprará del producto
<body>
<%
if request.form="" then
Dim Base 'Objeto de conección a la base de datos
Dim tabla 'Objeto recordset para realizar consultas
Dim SQL 'String para crear la consulta SQL
Dim precio 'precio del producto
Dim producto 'nombre del producto
cod_producto = Request.QueryString ("cod_producto")
unidades = CInt(Request.QueryString ("Unidades"))
Set Base = Server.CreateObject("ADODB.Connection")
Set tabla =Server.CreateObject("ADODB.RecordSet")
Base.Open = "servidor.tienda"
SQL ="Select PRECIO, PRODUCTO FROM productos where COD_PRODUCTO='"&cod_producto&"'"
Tabla.Open SQL, Base, 3, 3
precio = tabla ("precio")
producto = tabla ("producto")
tabla.close
Base.Close
Set tabla =Nothing
Set Base = Nothing
%>
<center>
¿Está seguro de que desea añadir el siguiente producto a su cesta de la compra?<br /><br />
<table align="center" cellpadding="2" cellspacing="1" border="1">
<tr>
<th scope="col">Unidades</th>
<th scope="col"><div align="right"><%=unidades%></div></th>
</tr>
<tr>
<th scope="row">Producto</th>
<td><div align="right"><%=producto%></div></td>
</tr>
<tr>
<th scope="row">Precio</th>
<td><div align="right"><%=precio%></div></td>
</tr>
<tr>
<th scope="row">Total</th>
<td><div align="right"><%=FormatNumber(Precio * Unidades, 0) %> €</div></td>
</tr>
</table>
<p> </p>
<form method="post" action="comprar.asp">
<input type="hidden" name="cod_producto" value="<%=cod_producto%>" >
<input type="hidden" name="Unidades" value="<%=Unidades%>" >
<input type="submit" value="Comprar" >
<input type="Button" value="Cancelar" onClick="window.close()" />
</form>
</center>
<%
else
cod_producto = Request.form ("cod_producto")
unidades = CInt(Request.form ("Unidades"))
if Request.Cookies("Compra") (cod_producto) = "" then
response.Cookies ("Compra") (cod_producto) = Unidades
else
response.Cookies ("Compra") (cod_producto) = request.Cookies ("Compra") (cod_producto) + Unidades
end if
%>
<script language="javascript">
<!--
alert ('El producto ha sido añadido a su cesta de la compra')
window.close()
//-->
</script>
<%
end if
%>
</body>
</html>
Última edición por Cameron_2006; 05/09/2007 a las 03:30 |