Shadow Uploader - uploading large files

ElseIf strComp(Request.QueryString("act"), "upload") = 0 then
	strSql = "Select * from TBLMEMBER where MEM_ID = " & Cint(Request.QueryString("id"))

	Set rsSql = Server.CreateObject("ADODB.Recordset")
	'on error resume next
	rsSql.Open strSql, GlobalConn, 3, 3

	if not rsSql.EOF then
		Set objUpload=New ShadowUpload
		If objUpload.GetError<>"" Then
			Response.Write("sorry, could not upload: "&objUpload.GetError)
			rsSql.Close
			set rsSql = Nothing
			globalConn.Close
			Set golbalConn = Nothing
			Response.Redirect ("members.asp?act=up_err")
		Else  
			Response.Write("found "&objUpload.FileCount&" files...<br />")
			For x=0 To objUpload.FileCount-1
				Response.Write("file name: "&objUpload.File(x).FileName&"<br />")
				filename = objUpload.File(x).FileName
				Response.Write("file type: "&objUpload.File(x).ContentType&"<br />")
				Response.Write("file size: "&objUpload.File(x).Size&"<br />")
				Response.Write("image width: "&objUpload.File(x).ImageWidth&"<br />")
				Response.Write("image height: "&objUpload.File(x).ImageHeight&"<br />")
				If (objUpload.File(x).ImageWidth>200) Or (objUpload.File(x).ImageHeight>200) Then
					Response.Write("image to big, not saving!")
					rsSql.Close
					set rsSql = Nothing
					globalConn.Close
					Set golbalConn = Nothing
					Response.Redirect ("members.asp?act=up_big")
				Else
				
					Set fso = Server.CreateObject("Scripting.FileSystemObject")
					
					if fso.FolderExists(Server.MapPath(path)) then
						If len(rsSql("mem_imgPath")) <> 0 Then
									
							fileNm = rsSql("mem_imgPath")
								
							If (fso.FileExists(fileNm)) Then
								Set MyFile = fso.GetFile(fileNm)
								MyFile.Delete
							end if
						End If
					end if
								
					'fso.Close
					set fso = Nothing
					
					Call objUpload.File(x).SaveToDisk(Server.MapPath(path),   "")
					Response.Write("file saved successfully!")
				End If
				Response.Write("<hr />")
			Next
			Response.Write("thank you, "&objUpload("name"))
		End If
		
		rsSql("mem_imgPath") = Server.MapPath(path) & "\" & filename
		rsSql.Update
		
		'log save start
		Set rsLog = Server.CreateObject("ADODB.Command")
		strLog = "Insert Into TBLADMINLOG (ALOG_DATE,ALOG_EVENT,ALOG_ACTION,ADM_ID,ALOG_SESS  IONID) Values ('" & Now() & "','PHOTO UPLOADED','" & ucase(Session("AdminName")) & " UPLOAD','" & Session("AdminID") & "','" & Session.SessionID & "-" & Session.LCID & "')"
		rsLog.ActiveConnection = globalConn
		rsLog.CommandText = strLog
		rsLog.Execute
		Set rsLog = Nothing
		'log save end
		
		rsSql.Close
		set rsSql = Nothing
		globalConn.Close
		Set golbalConn = Nothing
		Response.Redirect ("members.asp?act=upload")
	end if
	
	rsSql.Close
	set rsSql = Nothing
	globalConn.Close
	Set golbalConn = Nothing
	Response.Redirect ("members.asp?act=no")

Else