Buscador ASP que indexe automaticamente mis páginas existentes y las nuevas

[yomesmo]

<%
keyword = request("keyword")'Nombre del campo del formulario de busqueda




Dim oConn, rs, SQL

set oConn = Server.CreateObject("ADODB.Connection") ' conexion
set rs = Server.CreateObject("ADODB.Recordset") ' recordset
oConn.Open "DSN=Prueba"
SQL="SELECT * FROM ENLACES, ARTICULOS WHERE (DATO_ENLACES_donde_deseas_hacer_la_busqueda_en_la _tabla_de_enlaces LIKE '%" & Keyword & "%' OR DATO_ARTICULOS LIKE '%" & Keyword & "%')"
rs.Open SQL, oConn

' Hacemos todo lo de debajo hasta que lleguemos al final, si lo quieres generar con ASP, si lo quieres hacer mezclado con html tambien puedes!
do until rs.EOF
Response.Write("Titulo: ")
Response.Write(rs.Fields("Titulo") & "<BR>")
Reponse.Write("Autor: ")
Response.Write(rs.Fields("Autor") & "<BR>")
Response.Write("Editorial: ")
Response.Write(rs.Fields("Editorial") & "<BR>")
Response.Write("Moroso: ")
Response.Write(rs.Fields("Moroso") & "<BR>")
Response.Write("<BR>")
' Un espacio más para separar registros!
rs.MoveNext
' Pasamos al siguiente
loop
' Volvemos al do!

%>