Buscador Asp

tuka85

Hola.

Antes de postear, he buscado, pero no encuentro muy bien lo que quiero.

En clase nos han mandado un web con html, css y asp. Casi todo lo tengo hecho, menos un buscador que nos piden de una inmobiliaria, la cual nos dan una base de datos de access.

Y no se si habrá algún manual, o algo para hacer un buscador de este tipo.

Muchas gracias!

newboy

Yo también sabría hacerlo en PHP, pero en ASP todavía no me he metido, te dejo unos enlaces que te pueden servir:

http://www.desarrolloweb.com/manuales/25/
http://www.asptutor.com/asp/vart.asp?id=138

Salu2.

tuka85

copie un ejercicio que vi por Internet en el servidor IIS y me sale el error este: (se supone que esta bien)

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Controlador ODBC Microsoft Access] El sistema operativo no admite la secuencia de ordenación seleccionada.

/buscador/ingreso.asp, línea 19

a ver si me podeis echar una mano.

tuka85

Es que dicen por Internet que ese error es del IIS no del codigo.

😃

newboy

Aún así no podemos ayudarte "a ciegas", solo buscar en la red por si damos con el problema, prueba esto:

http://www.forosdelweb.com/f59/error-mi ... -a-330866/

Salu2.

tuka85

te pondre el codigo del asp:



<!-- definimos el lenguaje a utilizar -->
<%@ Language="VBScript" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<!-- comienza el script -->
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb") 
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos 
Temp="Select * From Tabla1 Where UCase(Nombre)='" & UCase(Request("Dato1")) & "' And UCase(Des)='" & UCase(Request("Dato2")) & "' And UCase(Url)='" & UCase(Request("Dato3")) & "' And UCase(Categoria)='" & UCase(Request("Dato4")) & "' And UCase(Pal)='" & UCase(Request("Dato5")) &"'"
Tabla.Open Temp,Conexion,2,3,1
'si no se repiten agregamos los datos a nuestro buscador
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Nombre") = Request("Dato1")
Tabla("des") = Request("Dato2")
Tabla("Url") = Request("Dato3")
Tabla("Categoria") = Request("Dato4")
Tabla("Pal") = Request("Dato5")
Tabla.Update
'fin del Script 
%>

<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font></p>
<%
'si el campo ya existe para no hacer dobles nos da este mensaje
Else
Response.Write "El registro ya existe"
End If
'cerramos la conexion
Tabla.Close
Conexion.Close
%>
<p align="center"><font face="Tahoma" size="2"><b><i>Buscador Web 2002</i></b></font></p>

<p align="center"><font face="Tahoma" size="2"><b><i><a href="ingreso.htm" target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>

aclivis

Con que IDE lo estas creando? Yo no estoy en el PC de casa y aquí no tengo el Visual Studio, pero si es el que utilizas tiene la opción de compilarlo y ejecutarlo, creandote un servidor virtual solo para mostrarte el ASP y ver así si funciona o no...

tuka85

con Dreamweaver 😃

aclivis

Pero necesitariamos toda la carpeta de asp's que tengas, para comprobar donde esta el error. No se si dreamweaver tiene soporte para compilar asps.

aclivis

Prueba asi, a mi no me funciona porque no tengo el archivo "base.mdb"


<!-- definimos el lenguaje a utilizar -->
<%@ Language="VBScript" Debug="true" AspCompat="true" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<!-- comienza el script -->
<%
'definimos la variable de conexion
Dim Conexion,Tabla
    Conexion = Server.CreateObject("ADODB.Connection")
Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
    Conexion.Open("Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb"))
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos 
Temp="Select * From Tabla1 Where UCase(Nombre)='" & UCase(Request("Dato1")) & "' And UCase(Des)='" & UCase(Request("Dato2")) & "' And UCase(Url)='" & UCase(Request("Dato3")) & "' And UCase(Categoria)='" & UCase(Request("Dato4")) & "' And UCase(Pal)='" & UCase(Request("Dato5")) &"'"
    Tabla.Open(Temp, Conexion, 2, 3, 1)
'si no se repiten agregamos los datos a nuestro buscador
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Nombre") = Request("Dato1")
Tabla("des") = Request("Dato2")
Tabla("Url") = Request("Dato3")
Tabla("Categoria") = Request("Dato4")
Tabla("Pal") = Request("Dato5")
Tabla.Update
'fin del Script 
%>

<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font></p>
<%
'si el campo ya existe para no hacer dobles nos da este mensaje
Else
    Response.Write("El registro ya existe")
End If
'cerramos la conexion
Tabla.Close
Conexion.Close
%>
<p align="center"><font face="Tahoma" size="2"><b><i>Buscador Web 2002</i></b></font></p>

<p align="center"><font face="Tahoma" size="2"><b><i><a href="ingreso.htm" target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>

tuka85

probé en el portatil el cual tiene windows 7 32 bits (el otro tenia 64)

y ahora me sale este error:

An error occurred on the server when processing the URL. Please Contact tha system administrator.

If you are the system administrador plase click here yo find out more about this error