RegExp problem

Hejsan, jag vill plocka ut sökfunktionen i en sida, dvs det som finns mellan <form> taggarna, har denna kod men det fungerar inte:

<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://sidan.com", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "(<form>) | (</form>) "
Set hittade = objRegExp.Execute(strHTML)

response.write hittade

'response.write "Antal träffar: "&hittade.count&" <br>"
'response.write "hittade ordet: "&hittade.Value&" 

%>

någon som vet hur man går tillväga?