Classic ASP Compress Javascript Files

<%
strFile = Request.QueryString("file")
intFileType = Request.QueryString("ft")
 
Call ReturnScripts(intFileType, strFile)
 
Sub ReturnScripts(ByVal intType, ByVal strFilePath)
	Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.OpenTextFile(Server.MapPath(strFilePath))
			strCompressedFile = objFile.ReadAll
		Set objFile = Nothing
	Set objFSO = Nothing
	Select Case intType
		Case 1 'CSS
			Set objRegExp = New RegExp
				objRegExp.IgnoreCase = True
				objRegExp.Global = True
				objRegExp.Pattern = "/\*[^*]*\*+([^/][^*]*\*+)*/"
				strCompressedFile = objRegExp.Replace(strCompressedFile, "")
			Set objRegExp = Nothing				
			'Strip Line Breaks
			Set objRegExp = New RegExp
				objRegExp.IgnoreCase = True
				objRegExp.Global = True
				objRegExp.Pattern = "\n+"
				strCompressedFile = objRegExp.Replace(strCompressedFile, "")
			Set objRegExp = Nothing				
			'Strip Tabs
			Set objRegExp = New RegExp
				objRegExp.IgnoreCase = True
				objRegExp.Global = True
				objRegExp.Pattern = "\t+"
				strCompressedFile = objRegExp.Replace(strCompressedFile, "")
			Set objRegExp = Nothing
			'Strip Spaces Greater than 2 long
			Set objRegExp = New RegExp
				objRegExp.IgnoreCase = True
				objRegExp.Global = True
				objRegExp.Pattern = "\s{2}"
				strCompressedFile = objRegExp.Replace(strCompressedFile, "")
			Set objRegExp = Nothing
			Response.ContentType = "text/css"
			Response.Write(strCompressedFile)
		Case 2 'Javascript
		'	Set objRegExp = New RegExp
		'		objRegExp.IgnoreCase = True
		'		objRegExp.Global = True
		'		objRegExp.Pattern = "/\*[^*]*\*+([^/][^*]*\*+)*/"
		'		strCompressedFile = objRegExp.Replace(strCompressedFile, "")
		'	Set objRegExp = Nothing				
			'Strip Line Breaks
			Set objRegExp = New RegExp
				objRegExp.IgnoreCase = True
				objRegExp.Global = True
				objRegExp.Pattern = "\n+"
				strCompressedFile = objRegExp.Replace(strCompressedFile, "")
			Set objRegExp = Nothing				
			'Strip Tabs
			Set objRegExp = New RegExp
				objRegExp.IgnoreCase = True
				objRegExp.Global = True
				objRegExp.Pattern = "\t+"
				strCompressedFile = objRegExp.Replace(strCompressedFile, "")
			Set objRegExp = Nothing
			'Strip Spaces Greater than 2 long
			'Set objRegExp = New RegExp
			'	objRegExp.IgnoreCase = True
			'	objRegExp.Global = True
			'	objRegExp.Pattern = "\s{2}"
			'	strCompressedFile = objRegExp.Replace(strCompressedFile, "")
			'Set objRegExp = Nothing
			Response.ContentType = "text/javascript"
			Response.Write(strCompressedFile)
	End Select
End Sub
%>

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76: