codice:
Function ReadFile(Name)
Dim fso,File
		Set Fso = Server.CreateObject("Scripting.FileSystemObject")
		Set File = Fso.OpenTextFile(Server.MapPath(Name) , 1)
		ReadFile = File.ReadAll()
		File.Close()
		Set File = Nothing
		Set Fso = Nothing
End Function

Function GetTag(StrIn,Tag)
Dim Match,Matches,Re
	Set Re = new RegExp
		Re.Global=True
		Re.IgnoreCase = True
		Re.Pattern = "<input\s(.*?)type=\s*?([\""\']?hidden[\""\']?)(.*?)>"
		Set Matches = Re.Execute(StrIn)
		Response.Write "Tag trovati : " & Matches.Count & "
"
		For Each Match In Matches
			Response.Write Server.HtmlEncode(Match.subMatches(0)) & Server.HtmlEncode(Match.subMatches(1)) & Server.HtmlEncode(Match.subMatches(2)) & "
"
		Next
	Set Re = Nothing
End Function

Response.Write GetTag(ReadFile("Test.htm"),"Input")