Pregunta de búsqueda en el sitio ASP: ¿Busca código para extraer palabras clave de los títulos en las categorías para buscar?
lt;
Dim Db
Dim Conn
Dim Key
Dim i
Db = "noticias. mdb"
Establecer Conn = Server.CreateObject("ADODB.Connection ")
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0 Fuente de datos = " amp; Servidor .MapPath(Db)
Dim Rs, Sql
Establecer Rs = Server.CreateObject("adodB.Connection")CreateObject("adodb.recordset")
Clave = Solicitud("clave")
Sql = "SELECCIONAR * DE [noticias] DONDE [tipo]=2 Y título COMO '" amp Clave amp "' ORDEN POR ID DESC"
p>
Rs.Open Sql, Conn, 1, 1
Si no (Rs..EOF y Rs.BOF) entonces
Respuesta.Escriba "Sin comprobar datos"
De lo contrario
Hacer mientras no Rs.Establecer Rs = Nada
Conn.Close
Establecer Conn = Nada
gt;