<% '*********************************************************************** '** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved '** '** By using this program, you are agreeing to the terms of the '** GNU General Public License. '** '** This program is free software; you can redistribute it and/or '** modify it under the terms of the GNU General Public License '** as published by the Free Software Foundation; either version 2 '** of the License, or any later version. '** '** All copyright notices regarding MaxWebPortal must remain intact '** in the scripts and in the outputted HTML. '** The "powered by" text/logo with a link back to '** http://www.maxwebportal.com in the footer of the pages MUST '** remain visible when the pages are viewed on the internet or intranet. '** '** Support can be obtained from support forums at: '** http://www.maxwebportal.com '** '** Email: maxwebportal@hotmail.com '** ICQ: 148111300 '*********************************************************************** %> <%If Session(strCookieURL & "Approval") = "256697926329" and instr(strWebMaster,lcase(strAdmin1UserName)&",") <> 0 and not lcase(strAdmin1UserName) = "" and not lcase(strAdmin1UserName) = " " Then %>

home  Admin Section  Avatar Setup  Review/Edit Avatars

<% '## Forum_SQL - Get Avatar Settings from DB strSql = "SELECT " & strTablePrefix & "AVATAR2.A_HSIZE" strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_WSIZE" strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_BORDER" strSql = strSql & " FROM " & strTablePrefix & "AVATAR2" set rsav = my_Conn.Execute (strSql) '## Forum_SQL - Get Avatars from DB strSql = "SELECT " & strTablePrefix & "AVATAR.A_ID" strSql = strSql & ", " & strTablePrefix & "AVATAR.A_URL" strSql = strSql & ", " & strTablePrefix & "AVATAR.A_NAME" strSql = strSql & ", " & strTablePrefix & "AVATAR.A_MEMBER_ID" strSql = strSql & " FROM " & strTablePrefix & "AVATAR " strSql = strSql & " ORDER BY " & strTablePrefix & "AVATAR.A_ID ASC;" set rs = Server.CreateObject("ADODB.Recordset") rs.cachesize = 20 rs.open strSql, my_Conn, 3 if rs.EOF or rs.BOF then '## No replies found in DB %> <% else rs.movefirst rs.pagesize = strPageSize maxpages = cint(rs.pagecount) intI = 0 howmanyrecs = 0 rec = 1 do until rs.EOF '** if intI = 0 then CColor = strForumFirstCellColor else CColor = strAltForumCellColor end if %> <% rs.MoveNext intI = intI + 1 if intI = 2 then intI = 0 end if rec = rec + 1 loop end if rs.close set rs = nothing set rsav = nothing %> Review/Edit Avatars Preview Avatar URL Avatar Name Owner No Avatars Found " height=<% =rsav("A_HSIZE") %> width=<% =rsav("A_WSIZE") %> border=<% =rsav("A_BORDER") %> hspace=0 alt="<% =rs("A_NAME") %>"> <% =rs("A_URL") %> <% =rs("A_NAME") %> <% if rs("A_MEMBER_ID") <> "0" then response.write (getMemberName(rs("A_MEMBER_ID"))) else response.write " - " end if %> &A_NAME=<% =ChkString(rs("A_NAME"),"urlpath") %>"> &A_URL=<% =rs("A_URL") %>')">

<% else %><% Response.Redirect "admin_login.asp" %><% end if %>