hola pachangero, gracias por la ayuda, ya he podidio
areglar un par de cosas del codigo , pero me manda
un error (( Tipo de error:
ADODB.Recordset (0x800A0E79)
La operación no está permitida si el objeto está abierto.
))
, no se que pasa, ahy esta el codigo para que lo chequees.
**********************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/galope.asp" -->
<%
Dim busqueda
Dim busqueda_numRows
Set busqueda = Server.CreateObject("ADODB.Recordset")
busqueda.ActiveConnection = MM_galope_STRING
busqueda.Source = "SELECT * FROM dbo.TAB_PDA_EB_MAESTRO"
busqueda.CursorType = 0
busqueda.CursorLocation = 2
busqueda.LockType = 1
busqueda.Open()
busqueda_numRows = 0
%>
<%
Dim Temp
'Creamos la sentencia SQL que extrae de la base las páginas que tienen la palabra que buscamos
'buscando con el operador LIKE obtenemos apariciones del substring escrito en el formulario, entre las palabras clave
Temp="Select * From TAB_PDA_EB_MAESTRO Where cod_cliente like '%" & UCase(Request("palabra")) & "%'"
busqueda.Open Temp, conexion
If busqueda.BOF And busqueda.EOF Then
%>
'si no encuentra nada nos da este mensaje
<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>
<%
Else
'aquí comienza el Script que nos muestra los resultados,
'si los encuentra en la tabla
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="22%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Categoria</font></strong>
</td>
<td width="22%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Nombre de la pagina</font></strong></p>
</td>
<td width="30%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Descripcion</font></strong>
</td>
</tr>
<% While Not busqueda.EOF%>
<tr>
<td width="22%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=busqueda.Fields("cod_cuenta")%></font></td>
<td width="22%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=busqueda.Fields("fecha")%></font></td>
<td width="30%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=busqueda.Fields("distribucion")%></font></td>
</table>
</center></div>
<p align="center"> </p>
<p align="center"> </p>
</body>
</html> 'Estos elementos borralos estan repetidos y aqui no es su lugar
<%
busqueda.Close()
Set busqueda = Nothing
wend
end if ' Aqui te faltan estos elementos
%>
</body>
</html>