Titel-funktion

Jeg har lavet en funktion, som søger nogle forudbestemte mapper igennem for title-tag. Funktionen bruger jeg til at skrive de nyeste opdaterede sider på min hjemmeside.

Funktionen ser sådan ud:

CONST intDays = 7
datoupdated = Date - intDays
titel = \"\"
tekst = \"\"

function opdateret(vpath)
vpath = vpath
pPath = Server.MapPath( vPath )

Set fs = Server.CreateObject( \"Scripting.FileSystemObject\" )

Set myFolder = fs.GetFolder( pPath )

For Each file in myFolder.files
  tmpFile = file.Name
  dtmLastUpdated = file.DateLastModified

\' Kun ASP filer skal vises som nye

\'If LCase(Right(tmpFile, 3)) = \"asp\" or lCase(Right(tmpFile, 9)) = \"index.asp\" then   
If LCase(Right(tmpFile, 3)) = \"asp\" then   
if dtmLastUpdated > datoupdated Then

filespec = server.mappath(vpath&tmpfile)

set f = fs.opentextfile(filespec,1)

\'Read in the contents of the file
Do While not f.AtEndOfStream
    tekst = tekst & f.Readline
Loop

title(tekst)

if titel = \"\" then
    titel = tmpfile
end if

response.write day(dtmlastupdated)&\"-\"&month(dtmlastupdated)&\"-\"&year(dtmlastupdated)&\" <a href=\'\"&vpath&tmpfile&\"\'>\" & titel & \"</a><br>\"

titel = \"\"
tekst = \"\"

f.close

end if
End If
Next

end function

\'vpath = \"/\"
\'opdateret(vpath)
vpath = \"/tricks/\"
opdateret(vpath)

Den virker sådan set ganske glimrende. Mit problem er, at hvis den skal søge filerne igennem i det bibliotek, hvor siden med funktionen ligger, så får jeg ikke bare titlen af den pågældende side. Så finder den nærmest hele siden, som så bliver indlejret på siden.

Jeg har forsøgt at gøre således, at den ikke looper igennem selve siden med funktionen, men har kun fået fejl ind til nu.

Er der en, der kan give en løsning på, hvordan jeg undgår at den undersøger siden med funktionen, men resten i et bibliotek.

Med venlig hilsen
Lars Olesen
Funktionen kan ses i brug på www.legestue.net (hvis det er nødvendigt for forståelsen).