' =======================================================================
' === 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
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;
' =======================================================================
' === 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<%
'=== 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 ===
' ======================================================================
%>
avatarFolderPath = "avatars/"