    '**************************************
    ' Name: ParseInt
    ' Description:This function is similar t
    '     o Int32.Parse() method from ASP.NET. It 
    '     returns (parses) an integer embedded in 
    '     a string of characters --> IntParse("
    '     abd23dk4") returns 234. Classic ASP does
    '     not have a function that is similar to I
    '     nt32.Parse so I created my own. This use
    '     s the VBScript.RegExp object for regular
    '     expressions.
    ' By: Adonis Villanueva
    '
    ' Inputs:String
    '
    ' Returns:integer
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=8381&lngWId=4    'for details.    '**************************************
    
    	function ParseInt(StringM)
    		Dim Reg, MatchInt, IntMatch, ParsedString
    		Set Reg = Server.CreateObject("VBScript.RegExp")
    			Reg.Global = True
    			Reg.IgnoreCase = True
    			Reg.Multiline = True
    			Reg.Pattern = "\d"			
    		Set MatchInt = Reg.Execute(StringM)
    		For Each IntMatch in MatchInt		
    			ParsedString = ParsedString & IntMatch.value
    		Next
    		
    		ParseInt = ParsedString			
    	End function