Estimados amigos:
Tengo un buscador; cuando introduzco un término que no contiene la base de datos, me aparece un mensaje [No se ha encontrada nada por ...] pero también me deja de cargar el resto de la página a partir de ese mensaje.
¿Qué debo hacer?
Os incluyo el código:
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
'Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
Conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= diccionario.mdb")
Dim Temp
Temp="Select * From Glosario Where UCase(palabra) like '%" & UCase(Request("palabra")) & "%' ORDER by Palabra"
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
<dl>
<div align="center">
<div align="left">
<dt><font face="Verdana" size="2" color="#0000FF">No se ha encontrado
nada por <strong><%=Request("palabra")%></strong> en la Base de Datos</font></dt>
</div>
</div>
</dl>
<%
Else
%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="95%" bordercolor="#111111" style="border-collapse: collapse">
<% While Not Tabla.EOF%>
<tr>
<td width="26%" height="18">
<img border="0" src="ivalidar_r.gif" width="12" height="11"><font face="Verdana" size="2"> <b><%=Tabla.Fields("Palabra")%></b></font>
</td>
</tr>
<tr>
<td width="26%" height="18">
<font face="Verdana" size="2">Definición: <%=Tabla.Fields("Descripcion")%></font>
</td>
</tr>
<tr>
<td width="26%" height="18">
<dl>
<div align="center">
<div align="left">
<dt><font face="Verdana" size="1">Fuente: <%=Tabla.Fields("Url")%></font></dt>
</div>
</div>
</dl>
</td>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</div>
