problemas con buscador <%
sSQL = "Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"
If Request.QueryString("pag")<>"" then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=1
End If
Const adCmdText = &H0001
Const adOpenStatic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Set Command = Server.CreateObject("ADODB.Command")
Set RS =Server.CreateObject("ADODB.RecordSet")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
RS.Open sSQL,Conn,adopenstatic,adcmdtext
num_registros = 5
RS.PageSize=num_registros
RS.AbsolutePage=Session("pagina")
%>
<html> <head> <title>Búsqueda en bozz</title> <style type="text/css">
a.clase1{font-family:Arial;color:white;text-decoration:none;}
a.clase1:hover{font-family:Arial;color:white;text-decoration:underline;}
a.clase1:active{font-family:Arial;color:white;text-decoration:none;}
a.clase1:visited{font-family:Arial;color:white;}
a.clase2{font-family:Verdana;color:#ff6347;text-decoration:underline;}
a.clase2:hover{font-family:Verdana;color:#ff6347;text-decoration:none;}
a.clase2:active{font-family:Verdana;color:#ff6347;text-decoration:none;}
a.clase2:visited{font-family:Verdana;color:#ff6347;}
</style> </head> <body bgcolor="white"> <center><img src="laweb.gif"></center>
<form method="Post" action="buscar.asp">
<p align="center"><font face="Tahoma" size="2"><b>Búsqueda: </b></font> <input type="text" name="pal" size="30" value="<%Request("pal") %>">
<input type="submit" value="Búsqueda" name="boton1" class="boton"></form> <input name="mode" type="hidden" id="mode" value="allwords"><p>
<table border=0 cellpadding=0 cellspacing=0><tr><td width=1 bgcolor=#808080><img width=1 height=1 alt=""></td><td width=1 bgcolor=#ffffff><img width=1 height=1 alt=""></td></table>
<table align="center" width=40% border=0 cellpadding=1 cellspacing=0 bgcolor=#3366cc><tr><td bgcolor=#3366cc nowrap><table width=100% border=0 cellpadding=1 cellspacing=0 bgcolor=#3366cc><tr><td align="center" bgcolor=#3366cc nowrap>
<b><font color="white"><a class="clase1" href="buscar.html">La Web</a>
<a class="clase1" href="img.html">Imágenes</a>
<a class="clase1" href="dir.html">Directorio</a></b></font>
<br></tr></td></table></table></table>
<table border=0 cellpadding=0 cellspacing=0><tr><td width=1 bgcolor=#808080><img width=1 height=1 alt=""></td><td width=1 bgcolor=#ffffff><img width=1 height=1 alt=""></td></table>
<table width=100% border=0 cellpadding=1 cellspacing=0 bgcolor=#3366cc><tr><td bgcolor=#3366cc nowrap><table width=100% border=0 cellpadding=1 cellspacing=0 bgcolor=#3366cc><tr><td bgcolor=#3366cc nowrap>
<font size=-1 color="white">Resultados obtenidos con <strong><font size=+1><%=Request("pal")%></font></strong> en la web <FONT SIZE="+1">Página <B><%=Session("pagina")%></B> de <B><%=RS.PageCount%></B></FONT></font> </center></tr></td></table></table></table><font color="white">
<table width=100% border=0 cellpadding=0 cellspacing=0><tr><td bgcolor=#efefef width=100%>
<font color=#efefef>
<%
'Contamos el numero de campos de la tabla
num_campos=RS.Fields.Count
For campo=0 to num_campos-1%>
<%
Next
registros_mostrados = 0
While (Not RS.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
%>
<div align="left"><b><font size="4" color="black"><a href="<%=rs.Fields("url")%>"><%=rs.Fields("Nombre" )%></font><br></b></a>
<font size="4" color="black"><%=rs.Fields("Des")%></font><br><a href="<%=rs.Fields("url")%>"><font size="4" color="green"><%=rs.Fields("url")%><br></font></a> <br>
<%
RS.MoveNext
Wend
%><br><b>
<font color="black" size=3>
Página </font></b>
<%
i=0
While i<RS.PageCount
i=i+1
%>
<b>
<a class="clase2" href="buscar.asp?pag=<%=i%>&palabra=<%=Request("pa l")%>"><%=i%></a> </b></font>
<%
Wend
%>
<%
RS.Close
Conn.Close
%>
<font face="arial" size=3 color="red"><b>
<%
starttime = Timer()
Do While tt < 300000
tt = tt + 1
Loop
endtime = Timer()
Response.Write "La busqueda tardó " & endtime-starttime & " seg "
%> </font>
</td></b>
</tr>
</table>
</table> </center></div> <p><center><font size=-1 color="black">©2004 <b>Bozz</b> - Buscador de páginas web</font></p></center>
<div id="layer1" style="position:absolute; left:630px; top:20px;"><h3><a href="buscar.html">La web</a><br><a href="dir.html">Directorio</a><br><a href="conoce.html">Conoce Bozz</a></div></h3>
<div id="layer2" style="position:absolute; left:10px; top:20px;"><img src="bozz.gif" widht=110 height=58></div>
<h6><div align="right">
<%
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
sql = "SELECT * FROM Tabla3"
RS.Open sql, oConn, 1,3
If RS.EOF then
oConn.Execute"INSERT INTO Tabla3 (hits) VALUES (1)"
Else
oConn.Execute"UPDATE Tabla3 SET hits="&(rs("hits")+1)&""
End IF
Response.Write "visitas"":<B> "&RS("hits")&"</B>"
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>
</body> </html>
Gracias de antemano
