avatarFolderPath = "avatars/"

<%
	'=== Two Global Variables used within both Forms ===
	Dim avatarFolderPath, privateFolderName

	'=== Avatar Path Location - Change If You Wish ===
	'=== Example:  http://yourforumurl.com/forum/avatars/
	'=== Folder MUST be within the Forum Directory ===
	avatarFolderPath = "http://www.connietalk.com/forum/avatars/"

	'=== Private Avatar Folder Name - Change If You Wish ===
	'=== Example:  "Personal", "Secret", "Private" ===
	'=== This is only a NAME not a Directory - Do NOT Include the Slash "/" ===
	privateFolderName = "Personal"

	' ======================================================================
	' ===           Common Functions within frmAvatarMain.asp            ===
	' ===  LAST UPDATE:        July, 2006                                ===
	' ===  LAST FUNC MODIFIED: checkForCategoryRecords()  - CREATED      ===
	' ======================================================================
%>

' =======================================================================
	' ===           Returns the Number of Avatars from a User             ===
	' =======================================================================
	Function getPersonalAvatarLimit(userID)
		Dim ObjFSO : Set ObjFSO = CreateObject("Scripting.FileSystemObject")

		'=== Precheck For Folder ===
		Select Case (ObjFSO.FolderExists(Server.MapPath(avatarFolderPath & privateFolderName)))
			Case True
				'=== Set File System Object ===
				Set rootFolder    =  ObjFSO.GetFolder(Server.MapPath(avatarFolderPath & privateFolderName))
				Set files		  =	 rootFolder.Files

				For each File in Files
					Select Case (isAvatarMatch(File.Name, UserID))
						Case True: getPersonalAvatarLimit = getPersonalAvatarLimit + 1
						Case Else: '=== Do Nothing ===
					End Select
				Next

CREATE TABLE `forum_avatar_extension` (
  `EXTENSION_ID` int(11) NOT NULL auto_increment,
  `EXTENSION_NAME` varchar(100) NOT NULL default '',
  KEY `FORUM_AVATAR_EXTENSION_EXTENSION_ID` (`EXTENSION_ID`)
) ENGINE=MyISAM;

	' =======================================================================
	' ===        Grab all the Current Extensions from the Database        ===
	' =======================================================================
	Function getExtensionValues()
		Dim getExtensionRS, strSql
	
		'=== Set Database Connection ===
		Set getExtensionRS = Server.CreateObject("ADODB.RecordSet")

		'=== Build SQL Query ===
		strSql = "SELECT EXTENSION_NAME, EXTENSION_ID FROM " & strTablePrefix & "Avatar_Extension"

		'=== Open Database Connection ===
		getExtensionRS.open strSql, my_Conn 
		
		Select Case (getExtensionRS.EOF)
			Case True : extensionErrors    = True
			Case Else :	getExtensionValues = getExtensionRS.GetRows()
		End Select
		
		'=== Close Connection and Clear Memory ===
		getExtensionRS.Close
		Set getExtensionRS = Nothing
	Exit Function
	End Function