este es el codigo de mi buscador :
<html>
<head>
<title>Buscar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%
Dim buscar
buscar = Request.Form("textfield")
%>
<body bgcolor="#FFFFFF" text="#000000"><center>
<p><b><font size="5">MI BUSCADOR</font></b> </p>
<%
Function fBuscar(cnn)
SQL="SELECT ORIGINAL, MARCA, muestra FROM Equivalencias WHERE ORIGINAL LIKE '%"&buscar&"%';"
rs.Open SQL
While Not rs.EOF
str = str & rs("ORIGINAL") & rs("MARCA")& rs("muestra")&" <BR> <BR>"
rs.MoveNext
Wend
if str = "" then str ="<CENTER><B>Lo siento, no se encontraron resultados</B></CENTER>"
if buscar = "" then str ="<CENTER><B>Por favor, especifique su búsqueda</B></CENTER>"
fBuscar = str
End Function
Dim cnn, str, rs, SQL
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("tabla4.mdb")
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn
Response.write "<FONT COLOR=Blue "
Response.write "SIZE=4 FACE=Arial> "
Response.write "Resultados "
Response.write "de la busqueda: <P>"
Response.write "</FONT> "
Response.write "<FONT COLOR=Green "
Response.write "SIZE=3 FACE=Arial> "
Response.Write fBuscar(cnn)
Response.write "</FONT><hr> "
%>
<form name="form1" method="post" action="buscador22.asp">
<input type="text" name="textfield">
<input type="submit" name="Submit" value="Buscar">
</form></center>
</body>
</html>
EL TEMA QUE CUANDO LO SUBO EN EL SERVIDOR ME DA ESTE ERROR
Active Server Pages error 'ASP 0113'
Script timed out
/busquedaequi/buscador22.asp
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.
QUE ESTA MAL DE ESTE CODIGO PARA QUE ME TIRE ESTE ERROR, LA VERDAD NO SE QUE REVISAR SI ALGUIEN ME PUEDE AYUDAR ,
PUEDE SER QUE LA BASE SEA GRANDE , TIENE 80.000 REGISTROS
GRACIAS
