If Request.TotalBytes > 0 Then
     Set objUpload = new clsUpload
     objUpload.ParseRequest
     If (objUpload.Files.Count = 1) Then
        strFolder = objUpload.Form.Item("Folder")
		TopicID = objUpload.Form.Item("TOPIC_ID")
		ReplyID = objUpload.Form.Item("REPLY_ID")
		ServerTimeout = objUpload.Form.Item("TimeOut")
		if ReplyId = "" then 
		ReplyID = -1
		end if
		if TopicID = "" then
	 		TopicID = -1
		end if
		MemberID = objUpload.Form.Item("MEMBER_ID")
		faname = objUpload.Files.Item(0).FileName
        boolAllowedType = Instr(strAllowedExtensions, Right(objUpload.Files.Item(0).FileName,4)) > 0
		ImageFile = Instr(".jpg,.gif", Right(objUpload.Files.Item(0).FileName,4)) > 0
		intFileLen = len(objUpload.Files.Item(0).Blob)
		if intFileLen > MaxFileSize then
			strResult = "File is too Large to upload"
		else
	        if boolAllowedType then
				Response.write "Uploading.... Please wait"
				boolSuccess = saveDoc()
				If boolSuccess = "True" Then
	          	intoDB()
  
	          	strResult = "The File " & objUpload.Files.Item(0).FileName & " was uploaded to the Server"
	        	End If
			else
				strResult = "File Type Not Allowed"
			end if
		end if
     Else
       strResult = "No file to upload."
     End If
   End If