
04/05/2005, 05:25
|
 | | | Fecha de Ingreso: abril-2004 Ubicación: Valencia, pero soy argentino
Mensajes: 68
Antigüedad: 21 años Puntos: 0 | |
ERROR EN EL CODIGO, pero cual?? Hola, alguien me puede decir donde tengo el error?? El siguiente código es para introducir datos desde un form a una bd. Pero me sale el siguiente error: “No coinciden los tipos de datos en la expresión de criterios.
/resultados.asp, line 77”.
La línea 77 es la que pongo en color rojo. Ahí va el codigo: <%
'Recogemos los valores del formulario
ACCION_BUSQUEDA=Request.Form("compra")
ACCION_BUSQUEDA=Request.Form("venta")
CATEGORIA_BUSQUEDA= Request.Form("coche")
CATEGORIA_BUSQUEDA= Request.Form("diesel")
CATEGORIA_BUSQUEDA= Request.Form("moto")
CATEGORIA_BUSQUEDA= Request.Form("industrial")
CATEGORIA_BUSQUEDA= Request.Form("otros")
MARCA_BUSQUEDA= Request.Form("marcas")
MODELO_BUSQUEDA= Request.Form("modelos")
ANNO_BUSQUEDA= Request.Form("anno")
COLOR_BUSQUEDA= Request.Form("color")
AC_BUSQUEDA= Request.Form("ac")
PROVINCIAS_BUSQUEDA= Request.Form("provincias")
MUNICIPIOS_BUSQUEDA= Request.Form("municipios")
PRECIOS_BUSQUEDA= Request.Form("precio")
PALABRA_BUSQUEDA= Request.Form("palabraclave")
CHECKCORREO_BUSQUEDA= Request.Form("checkcorreo")
CORREO_BUSQUEDA= Request.Form("correo")
'Instanciamos y abrimos nuestro objeto conexion
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd1.mdb")
'Ahora creamos la sentencia SQL
sSQL ="Insert Into BUSQUEDA (ACCION_BUSQUEDA,CATEGORIA_BUSQUEDA,MARCA_BUSQUEDA ,MODELO_BUSQUEDA,ANNO_BUSQUEDA,COLOR_BUSQUEDA,AC_B USQUEDA,PROVINCIAS_BUSQUEDA,MUNICIPIOS_BUSQUEDA,PR ECIOS_BUSQUEDA,PALABRA_BUSQUEDA,CHECKCORREO_BUSQUE DA,CORREO_BUSQUEDA) values ('" & ACCION_BUSQUEDA & "','" & CATEGORIA_BUSQUEDA & "','" & MARCA_BUSQUEDA & "','" & MODELO_BUSQUEDA & "','" & ANNO_BUSQUEDA & "','" & COLOR_BUSQUEDA & "','" & AC_BUSQUEDA & "','" & PROVINCIAS_BUSQUEDA & "','" & MUNICIPIOS_BUSQUEDA & "','" &PRECIOS_BUSQUEDA & "','" & PALABRA_BUSQUEDA & "','" & CHECKCORREO_BUSQUEDA & "','" & CORREO_BUSQUEDA & "')" 'Ejecutamos la orden set RS = Conn.Execute(sSQL) %> <%
'Cerramos el sistema de conexion
Conn.Close
%>
GRACIAS!!!!!!
__________________ MAXIMUS EL HISPANO |