<%
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim objFile
Set objFile = objFSO.OpenTextFile(Server.MapPath("/demos/ExampleHTMLBOLD.html"))
Dim strContents
strContents = objFile.ReadAll
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
Dim objRegExp
Set objRegExp = New RegExp
Dim strHTML, strMatch
strMatch = "<b>(.*?)<\/b>"
objRegExp.Pattern = strMatch
objRegExp.IgnoreCase = True
objRegExp.Global = True
Dim objMatches, objMatch
Set objMatches = objRegExp.Execute(strContents)
Response.Write "The following bold tags exist:<br>"
For Each objMatch in objMatches
Response.Write objMatch.Value & "<BR>"
Next
Set objRegExp = Nothing
%>
|