Den er 5.5 og skulle så være ok!
jeg vedlægger hele scriptet som parser
http://www.gate.dk/apv/template.htm<%
\' -----------------------------------------------
\' FUNCTIONS
\' -----------------------------------------------
function writeContent (overskrift,indhold,help,hovednavigation,navigation,tip)
\' *********************************
\' Læser template og indsætter tekst
\' *********************************
Set fso = CreateObject(\"Scripting.FileSystemObject\")
\' Read the contents of the file.
Set ts = fso.OpenTextFile(Server.MapPath(\"./\") & \"\\template.htm\", 1)
\' TEMPLATE
template = ts.ReadAll
ts.Close
\' initialize regular expression
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
\' Replace TAGS
\' ************
\' ----------
\' overskrift
\' ----------
regEx.Pattern = \"<!--overskrift-->.*<!--/overskrift-->\"
m = regEx.Replace(template, overskrift)
\' ----------
\' indhold
\' ----------
regEx.Pattern = \"<!--indhold-->.*<!--/indhold-->\"
m = regEx.Replace(m, indhold)
\' ----------
\' help
\' ----------
regEx.Pattern = \"<!--help-->.*<!--/help-->\"
m = regEx.Replace(m, help)
\' ----------
\' hovednavigation
\' ----------
regEx.Pattern = \"<!--hovednavigation-->.*<!--/hovednavigation-->\"
m = regEx.Replace(m, hovednavigation)
\' ----------
\' navigation
\' ----------
regEx.Pattern = \"<!--navigation-->.*<!--/navigation-->\"
m = regEx.Replace(m, navigation)
\' ----------
\' tip
\' ----------
regEx.Pattern = \"<!--tip-->.*<!--/tip-->\"
m = regEx.Replace(m, tip)
Response.Write m
end function
function returnLibrary (library)
\' *********************************
\' Læser Library (html-skabelon)
\' *********************************
dim t
Set fso = CreateObject(\"Scripting.FileSystemObject\")
Set ts = fso.OpenTextFile(Server.MapPath(\"./\") & \"\\library\\\" & library, 1)
t = ts.ReadAll
ts.Close
returnLibrary = t
end function