<%
'#################################################################################
'## Copyright (C) 2000 Michael Anderson and Pierre Gorissen
'##
'## 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 Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
'## Part of the Avatar Mod by: Richard Kinser ##
'#################################################################################
%>
<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
 All Forums
 Admin Section
 Avatar Setup
Review Avatars
<% if Request.Form("Method_Type") = "Write_Configuration" then %>
 <% =ChkString(Request.Form("AvatarName"),"title") %> |
<% else %>
<% =ChkString(Request.QueryString("A_NAME"),"display") %>
<% end if %>
<%
if Request.Form("Method_Type") = "Write_Configuration" then
txtURL = ChkString(Request.Form("AvatarURL"),"url")
txtName = ChkString(Request.Form("AvatarName"),"")
if txtURL = " " then
Err_Msg = Err_Msg & "You Must Enter a URL for your Avatar!"
end if
if txtName = " " then
Err_Msg = Err_Msg & "You Must Enter a Name for your Avatar!"
end if
if Err_Msg = "" then
'## Forum_SQL - Do DB Update
strSql = "UPDATE " & strTablePrefix & "AVATAR "
strSql = strSql & " SET A_URL = '" & txtURL & "'"
strSql = strSql & ", A_NAME = '" & txtName & "'"
strSql = strSql & ", A_MEMBER_ID = " & ChkString(Request.Form("AvatarMemberID"),"")
strSql = strSql & " WHERE A_ID = " & Request.Form("A_ID")
my_Conn.Execute (strSql)
%>
Avatar Updated!
Congratulations!
Back To Review/Edit Avatars
<% else %>
There Was A Problem With Your Details
>Go Back To Enter Data
<% end if %>
<% else %>
<%
'## Forum_SQL - Get Avatars from DB
strSql = "SELECT * "
strSql = strSql & " FROM " & strTablePrefix & "AVATAR "
strSql = strSql & " WHERE A_ID = " & Request.QueryString("A_ID")
set rs = my_Conn.Execute (strSql)
TxtURL = rs("A_URL")
TxtName = rs("A_NAME")
TxtMemberID = rs("A_MEMBER_ID")
%>
<% rs.close
set rs = nothing
end if %>
<% else %>
<% Response.Redirect "admin_login.asp" %>
<% end if %>