Buscador basado en los Meta Tags

[vgaray]

<%
'Continua
Sub mostrar_resultados
For k=0 to Session("Encontrados")-1
If len(Resultados(k,k))<1 then
Exit For
End if
Response.Write k+1 & " de " & Session("Encontrados") & "<br>"
For info=0 to Ubound(Resultados,2)
If Len(Resultados(k,info))>0 Then
Response.Write Resultados(k,info)
End if
Next
Response.Write "<br><hr align='left' width='75%' size='1' color='#FFB650'><br>"
Next
End sub
%>

<%
Function buscar_completamente(de_esta_pagina,clave) ' si existe la clave, busco de caso contrario paso al sig archivo
Set objFSO2 = Server.CreateObject("Scripting.FileSystemObje ct")
Set objFile = objFSO2.OpenTextFile(Server.MapPath(de_esta_pagina ))
do until objFile.AtEndOfStream
Linea = objFile.ReadLine
If encontrar_cualquier_variante(linea,clave) then ' buscar cualquier variante de 'clave' en el archivo
buscar_completamente = True
exit function
Else
buscar_completamente = False
End if
loop
objFile.Close
Set objFile = Nothing
Set objFSO2 = Nothing
End Function
%>

<%
Function encontrar_cualquier_variante(linea,clave) 'buscar en toda la pagina para buscar más a fondo
Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = clave
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(linea)
encontrar_cualquier_variante = False
For Each Match in Matches
encontrar_cualquier_variante = True
Next
End Function
%>