Title Function:

The Title function returns a string representing the title of a web page. It specifically scans a web page looking for the title tags and returns whatever is in between. The required argument pathname is the full path to a web page [*.htm, *.html, *.asp, *.cfm, *.cgi, etc...].

string = Title(pathname)
Example Usage:
Writes the hard coded HTML title of the document "file.htm".
<% = Title(server.mappath("/file.htm")) %>
ASP 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()
	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