Foros del Web - Ver Mensaje Individual - Error de Microsoft VBScript en tiempo de ejecución error '800a000d'

Cameron_2006 · #1 (**permalink**) 04/09/2007, 10:45

Buenas tardes,

me salió el siguiente error, al solicitar el detalle de los productos (código de tienda virtual).

Error de Microsoft VBScript en tiempo de ejecución error '800a000d'

No coinciden los tipos: 'URLEncode'

/carrito/Productos/detalle_producto.asp, línea 49

La línea 49, en mi código dice así:

Ruta="secciones.asp?cod_categoria="&Server.URLEnco de(tabla("COD_CATEGORIA"))

Agradezco de antemano la ayuda a este problema.

igual a continuación paso el códgo completo para que lo entiendan mejor:

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 cod_producto 'Codigo del producto que estamos mostrando
Dim cont 'Nombre de la categoria en la que estamos
Dim Ruta 'Auxiliar para almacenar la Ruta

cod_producto = Request.QueryString ("COD_PRODUCTO")
%>
<html xmlns="http://www.w3.org/1999/xhtml">

<%
'########## COMENZAMOS A LLENAR CABECERA
%>

<head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>DETALLE PRODUCTOS</title>
</head>

<%'########## COMENZAMOS A LLENAR EL CUERPO
%>
<body>

<div>
<p align="center"><a href="../index.asp" target="_self">Home </a></p>
<p align="right"> <a href="../compra/cesta.asp" target="_self">Ver Cesta</a> </p>
</div>

<%
'####### ABRO LA CONEXION A LAS BASES DE DATOS

Set Base = Server.CreateObject("ADODB.Connection")
Set tabla =Server.CreateObject("ADODB.RecordSet")
Base.Open = "servidor.tienda"
SQL ="Select PRODUCTO, productos.DESCRIPCION, PRECIO, SECCION, "&"secciones.COD_SECCION, CATEGORIA, "&" categorias.COD_CATEGORIA FROM (productos INNER JOIN "&" secciones ON productos.COD_SECCION = "&" secciones.COD_SECCION) INNER JOIN categorias ON "&" secciones.COD_CATEGORIA=categorias.COD_CATEGORIA "&" WHERE COD_PRODUCTO='"&cod_producto &"'"
Tabla.Open SQL, Base, 3, 3

Ruta="secciones.asp?cod_categoria="&Server.URLEnco de(tabla("COD_CATEGORIA"))
%>

<H2>
<A HREF="<%=Ruta%>">
<%=tabla("CATEGORIA")%></A>
-
<A HREF="productos.asp?cod_seccion=<%=tabla("COD_SECC ION")%>" >
<%=tabla("SECCION")%></A>
</H2>

<%
'### SI EL USUARIO LO DESEA DESPUES DE VISTO O COMPRADO EL ARTICULO, PUEDE VOLVER A BUSCAR O VOLVER AL LISTADO ###########
'%>

<BLOCKQUOTE>
<H4>
<A HREF="javascript:history.back()">
<%
if InStr(LCase(Request.ServerVariables ("HTTP_REFERER")), "busqueda.asp") > 0 THEN %>
Volver a la busqueda
<%else%>
Volver al listado
<%end if%>
</A>
</H4>
</BLOCKQUOTE>

<%
'### MOSTRAMOS EL PRODUCTO SELECCIONADO POR EL USUARIO PUEDE COMPRAR Y COLOCAR LA UNIDADES QUE QUIERE ################################
%>

<center>
<h1><%=tabla("PRODUCTO")%></h1>
<h2><%=formatNumber(tabla("PRECIO"),0)%> &eur o;</h2>
<h3><%=tabla("DESCRIPCION")%></h3>
<br />

<%
tabla.close
Base.Close
Set tabla =Nothing
Set Base = Nothing

Ruta="'../compra/comprar.asp?cod_producto="& Server.URLEncode (cod_producto)& "&Unidades=' + Unidades.value"%>
<%
'######### SE CREA EL BOTON PARA QUE EL CLIENTE EFECTUE LA COMPRA ############################
'########## PUEDE COMPRAR Y COLOCAR LA UNIDADES QUE QUIERE
%>

<INPUT TYPE="Button" VALUE="Comprar"
onClick="window.open(<%=Ruta%>,'',
'width=350, height=300, toolbar=0, srollbars=0')" />
<select id="Unidades">
<% for Cont = 1 to 5 %>
<option value="<%=Cont%>"><%=Cont%></option>
<%next%>
</select>
Unidades
</center>

</body>
</html>