URGENTE: help me para trabajar con una BD
Publicado por Valia (1 intervención) el 12/03/2001 20:21:14
Me aparece este mensaje de error: Microsoft OLE DB Provider for ODBC Drivers error '80040e07' - [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. - /resultado.asp, line 70
Mi código asp es el siguiente:
<%
Dim sT, iV, iPMi, iPMa, sC, iCon, sDatos, sRutaServer
'Ruta física del disco duro del servidor
sRutaServer="F:\users\usuarios\www\vhost\elcorred\www\databases\"
'Toma los valores del formulario y verifica los datos
sT=Request.Form("TipoDeInmueble")
iV=Request.Form("VentaAlquiler")
iPMi=Request.Form("ValorMin")
iPMa=Request.Form("ValorMax")
IF Trim(iPMi)="" THEN
Msgbox "Por favor introduzca un número como precio mínimo"
Windows.location="http://www.el-corredor-inmobiliario.com/buscador.htm"
END IF
IF Trim(iPMa)="" THEN
Msgbox "Por favor introduzca un número como precio máximo"
Windows.location="http://www.el-corredor-inmobiliario.com/buscador.htm"
END IF
IF Not(IsNumeric(iPMi) AND IsNumeric(iPMa)) THEN
Msgbox "Los valores ingresados como precios deben ser números"
Windows.location="http://www.el-corredor-inmobiliario.com/buscador.htm"
END IF
IF Not(iPMi < iPMa) THEN
Msgbox "Los valores ingresados como precios mínimo y máximo no son correctos"
Windows.location="http://www.el-corredor-inmobiliario.com/buscador.htm"
END IF
sC=Request.Form("Ciudad")
iCon=Request.Form("Cons")
'Instancia del objeto Connection
Set Conn = Server.CreateObject("ADODB.Connection")
'Apertura d
Mi código asp es el siguiente:
<%
Dim sT, iV, iPMi, iPMa, sC, iCon, sDatos, sRutaServer
'Ruta física del disco duro del servidor
sRutaServer="F:\users\usuarios\www\vhost\elcorred\www\databases\"
'Toma los valores del formulario y verifica los datos
sT=Request.Form("TipoDeInmueble")
iV=Request.Form("VentaAlquiler")
iPMi=Request.Form("ValorMin")
iPMa=Request.Form("ValorMax")
IF Trim(iPMi)="" THEN
Msgbox "Por favor introduzca un número como precio mínimo"
Windows.location="http://www.el-corredor-inmobiliario.com/buscador.htm"
END IF
IF Trim(iPMa)="" THEN
Msgbox "Por favor introduzca un número como precio máximo"
Windows.location="http://www.el-corredor-inmobiliario.com/buscador.htm"
END IF
IF Not(IsNumeric(iPMi) AND IsNumeric(iPMa)) THEN
Msgbox "Los valores ingresados como precios deben ser números"
Windows.location="http://www.el-corredor-inmobiliario.com/buscador.htm"
END IF
IF Not(iPMi < iPMa) THEN
Msgbox "Los valores ingresados como precios mínimo y máximo no son correctos"
Windows.location="http://www.el-corredor-inmobiliario.com/buscador.htm"
END IF
sC=Request.Form("Ciudad")
iCon=Request.Form("Cons")
'Instancia del objeto Connection
Set Conn = Server.CreateObject("ADODB.Connection")
'Apertura d
Valora esta pregunta
0