example usage:
Writes the hard coded HTML title of the document "file.htm".
<% = Title(Server.MapPath("/file.htm")) %>
source code:
<%
Private Function Title(ByVal pathname)
    Dim objFSO, objFile, a, tmp, firstCt, secondCt
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(pathname, 1, False)
    a = objFile.ReadAll()
    objFile.Close
    Set objFile = Nothing
    Set objFSO = Nothing
    firstCt = InStr(UCase(a), "<TITLE>") + 7
    secondCt = InStr(UCase(a), "</TITLE>")
    tmp = Mid( a, firstCt, secondCt - firstCt )
    Title = CStr( Trim( tmp ) )
End Function
%>