codice:
strPath = Server.MapPath (STR_TEMPLATES_FOLDER & "default/whatever.html")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objOpenFile = objFSO.OpenTextFile(strPath, 1)
trContent = objopenfile.ReadAll

Set objFile = Nothing
Set objFSO = Nothing

set re=server.CreateObject("VBScript.RegExp")
re.Pattern="<title>([^\v]*?)</title>"
set ris = re.Execute(strContent)
if ris.count>0 then
  titolo = ris(0).SubMatches(0)
  response.write(titolo)
end if