22/10/2005, 05:09
|
| | | Fecha de Ingreso: junio-2004
Mensajes: 37
Antigüedad: 20 años, 10 meses Puntos: 0 | |
| Error:
Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
No coinciden los tipos: 'productos'
/Default.asp, line 14
linea 14 en negrita:
.....
<!--#include file="funciones.inc"-->
Dim rs
rs = productos()
do While Not rs.Eof
......
funciones.inc:
DIM conexion
Function productos()
set conexion = Server.CreateObject( "ADODB.Connection" )
conexion.Open( "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + Server.MapPath( "bd/bd.mdb" ))
expSql="SELECT * FROM producto;"
set rs = Server.CreateObject( "ADODB.Recordset" )
productos = rs.Open(expSql, conexion)
End Function
A ver si alguien me dice en qué falla... Gracias :) |