Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/05/2005, 05:25
Avatar de Pablografia
Pablografia
 
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