<% '################################################################################# '## Snitz Forums 2000 v3.4.05 '################################################################################# '## Copyright (C) 2000-05 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 if strAuthType <> "nt" then Response.Redirect "admin_home.asp" end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " כל הפורומים
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " אזור מנהל
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " הגדרת אפשרויות NT

" & vbNewLine if Request.Form("Method_Type") = "Write_Configuration" then Err_Msg = "" if Request.Form("strIMGInPosts") = "1" and Request.Form("strAllowForumCode") = "0" then Err_Msg = Err_Msg & "

יש לאפשר קוד פורום על מנת לאפשר תמונות

" end if if (Request.Form("strHotTopic") = "1" and strHotTopic = "1") or (Request.Form("strHotTopic") = "1" and strHotTopic = "0") then if Request.Form("intHotTopicNum") = "" then Err_Msg = Err_Msg & "

עליך להכניס כמות נושאים חמים

" end if if left(Request.Form("intHotTopicNum"), 1) = "-" then Err_Msg = Err_Msg & "

עליך להכניס כמות נושאים חמים חיובית

" end if if left(Request.Form("intHotTopicNum"), 1) = "+" then Err_Msg = Err_Msg & "

עליך להכניס כמות חיובית של נושאים חמים ללא ה +

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

ההגדרות נשלחו

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

מזל טוב!

" & vbNewLine & _ "

חזרה לדף הבית של הניהול

" & vbNewLine else Response.Write "

ארעה בעיה עם הפרטים שלך

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

" & Err_Msg & "

" & vbNewLine & _ "

חזור להזנת נתונים

" & vbNewLine end if else Response.Write "

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

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if strAuthType = "nt" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strAuthType = "nt" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

הגדרת אפשרויות NT
שימוש בקבוצות NT:	" & vbNewLine & _ " מופעל: " & vbNewLine & _ " מכובה: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "
שימוש בכניסת NT אוטומטית:	" & vbNewLine & _ " מופעל: " & vbNewLine & _ " מכובה: " & vbNewLine & _ " " & getCurrentIcon(strIconSmileQuestion,"","") & "

" & vbNewLine & _ "

" & vbNewLine end if %><% '---- START FOOTER ---- %> <% Response.Write " " & vbNewLine & _ " " & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

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

" & strForumTitle & "

" & getCurrentIcon(strIconGoUp,"עבור לראש הדף","align=""right""") & "

" & vbNewLine & _ "

" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine if strShowTimer = "1" then Response.Write " " & vbNewLine end if %> <% Response.Write " " & vbNewLine & _ "

" & chkString(replace(strTimerPhrase, "[TIMER]", abs(round(StopTimer(1), 2)), 1, -1, 1),"display") & "

" & vbNewline '## END - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT %>

Snitz Hebrew Forums - מערכת פורומים בעברית גרסה <%=HEB_VERSION%>
תרגום עברי באדיבות קידום אתרים

<% Response.Write "" '## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT Response.Write "" if strShowImagePoweredBy = "1" then Response.Write getCurrentIcon("logo_powered_by.gif||","מונע על ידי: " & strVersion,"") else Response.Write "פורום סניץ 2000" end if Response.Write "

" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine my_Conn.Close set my_Conn = nothing %> <% '---- END FOOTER ---- %><% Response.End %>