<% '################################################################################# '## Snitz Forums 2000 v3.4.07 '################################################################################# '## Copyright (C) 2000-09 Michael Anderson, Pierre Gorissen, '## Huw Reddick and Richard Kinser '## '## 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 (at your option) 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 our support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## manderson@snitz.com '## '################################################################################# %> <% if Session(strCookieURL & "Approval") <> "15916941253" Then scriptname = split(request.servervariables("SCRIPT_NAME"),"/") Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname)) end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " Admin Section
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member Details Configuration

" & vbNewLine if Request.Form("Method_Type") = "Write_Configuration" then Err_Msg = "" if Request.Form("strAge") = "1" and Request.Form("strAgeDOB") = "1" then Err_Msg = Err_Msg & "

Age and Birth Date cannot both be On at the same time

" end if intAge = ChkString(trim(Request.Form("strMinAge")), "SQLString") if len(intAge) = 0 then intAge = 0 end if if not isNumeric(intAge) then Err_Msg = Err_Msg & "

Minimum Age must be a numerical value.

" end if if Err_Msg = "" then for each key in Request.Form if left(key,3) = "str" then strDummy = SetConfigValue(1, key, ChkString(Request.Form(key),"SQLString")) end if next Application(strCookieURL & "ConfigLoaded") = "" Response.Write "

Configuration Posted!

" & vbNewLine & _ " " & vbNewLine & _ "

Congratulations!

" & vbNewLine & _ "

Back To Admin Home

" & vbNewLine else Response.Write "

There Was A Problem With Your Details

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & Err_Msg & "

" & vbNewLine & _ "

Go Back To Enter Data

" & vbNewLine end if else Response.Write "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

Member Details Configuration
Full Name
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Picture
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Recent Topics
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Gender (male/female)
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Age
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Birth Date
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Minimum Age
" & vbNewLine intYoungest = 0 if strAge = "1" then set rs = my_Conn.execute(TopSQL("SELECT M_AGE FROM " & strMemberTablePrefix & "MEMBERS WHERE M_AGE <> '' AND M_STATUS <> 0 ORDER BY M_AGE ASC", 1)) if not rs.eof then intYoungest = cInt(rs("M_AGE")) end if rs.close set rs = nothing elseif strAgeDOB = "1" then set rs = my_Conn.execute(TopSQL("SELECT M_DOB FROM " & strMemberTablePrefix & "MEMBERS WHERE M_DOB <> '' AND M_STATUS <> 0 ORDER BY M_DOB DESC", 1)) if not rs.eof then intYoungest = cInt(DisplayUsersAge(DOBToDate(rs("M_DOB")))) end if rs.close set rs = nothing end if if intYoungest > 0 then Response.Write " Youngest member is " & intYoungest & " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
City
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
State
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Country
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
AIM
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
ICQ
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
MSN
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Yahoo!
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Occupation
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Homepages
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Favorite Links
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Marital Status
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Bio
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Hobbies
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Latest News
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "
Quote
Enabled:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
Required:	" & vbNewLine & _ " On: " & vbNewLine & _ " Off: " & vbNewLine & _ "

" & vbNewLine & _ "

" & vbNewLine end if WriteFooter %>