Hola chicos. Con ayuda de varios post de aca realicé un buscador y me funciona. El unico problema es que si introduzco una palabra que no existe en la base de datos, me devuelve un error de pagina, y no se como hacer que aparezca un mensaje diciendo que intente de nuevo o introduzca otra palabra.
Este es el codigo:
<%
cd = Request.Querystring("cd")
sSQL="SELECT titulo, ID FROM recetas WHERE ingre LIKE '%" & cd & "%' ORDER BY ID desc " & " "&alf
'esta sentencia SQL puede ser creada a partir de un buscador como el que hemos visto en otro reportaje
'y almacenada en una session para emplearla sucesivas veces en el script: session("ssql")=ssql
'actualizamos numero de pagina
If Request.QueryString("pag")<>"" then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=1
End If
'constantes ADO VBScript
Const adCmdText = &H0001
Const adOpenStatic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
strconn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cocinadivertida.mdb")
Set Command = Server.CreateObject("ADODB.Command")
Set RS =Server.CreateObject("ADODB.RecordSet")
Conn.Open strconn
RS.Open sSQL,Conn,adopenstatic,adcmdtext
'resultados por pagina a elegir arbitrariamente
num_registros = 10
'Dimensionamos las paginas y determinamos la pagina actual
RS.PageSize=num_registros
RS.AbsolutePage=Session("pagina")
%>
Me podrian ayudar? Muchisimas gracias.
Ed
