Duyuru Sorunu ?

[cartel24]

Yönetici panelinden duyuru ekle dediğimde başlangıç ve bitiş tarihlerini istiyor ama en 2005 e kadar var ve 2006 seçemediğim için duyuru başlamıyor 2007 ye de girecek .... muhahaha :D  ağlanacak halime gülüorum ya

[cartel24]

tamam eklentilerde bulup ekledim sorunum çözüldü tşkler....   o kadar acil değil ama kayan duyuruyu açıklamadaki gibi ekleyince hata veriyor site hiç açılmıyor... default asp ye yapıştırdığım kodu silince açılıyor ... neden olabilir ?

[burajan]

Dosyayı direk indirip web alanına yüklediysen sorun olmaması gerekir. Eğer dosyayı açıp içinde düzenleme yaptıysan sorun orada oluşabiliyor. Çünkü mesela Frontpage gibi programda açtıysan sayfa içinde kodları tek satır haline getiriyor ve ondan dolayı hata verebiliyor.

[cartel24]

yok dosyayı olduğu gibi attım birde notapad da bir kod vardı bunu default aspye yapıştırın die.... bende ekledim ama ondan soora bosuldu ??

[pcalav]

ya arkadaşlar ben duyuru ekliyorum ama anasayfada birtürlü görmiyorum bu sorunu nasıl çözebilirim?

[burajan]

Eğer duyuruyu eklediysen ana sayfada görüntülenmesi lazım. Ama eğer duyuru gözükmesi için include edilen sayfayı kaldırdıysan gözükmez. inc_duyuru.asp dosyası ana sayfanda include varmı?

[newformat]

Merhaba,
duyurular bölümünde forum kodları açık olmasına rağmen istediğim şekilde yazı yazamıyorum (ör:koyu renk,parağraf şeklinde,italik vs.) işaretleri tıkladığımda kodlar geliyor ama istediğim şekilde çıkmıyor kodlarla birlikte çıkıyor,sorunun çözümü konusunda yardım rica ediyorum.
teşekkürler.

[ziyaretci12]

Mrb Arkadaşlar. Duyuru Sorunu Cözülmüştür.

Atltaki Kodları Uygulayınız!

2 Dosyada sadece iki değişiklik paymanız yeterli olacaktır

dosya 1: admin_announce_add.asp

admin_announce_add.asp bu dosya yı acıyorsunuz sizin dosyada bulunan dokları silin bunları ekleyin

<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> Copyright (C) 2004-2005 Tom Nance (SkyDogg) All Rights Reserved
'<> Events Suite Copyright (C) 2004-2005 Ken Smiley 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.info 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.info
'<>
'<> Email: maxweb@maxwebportal.info
'** Türkçeye Çevirenler: OgReTmEnLeRiM.NeT | Bülent KARAYAZI & UzmanWeb.Net | Adem TÜRK
'***********************************************************************
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'***********************************************************************
'** 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
'***********************************************************************
'** This Page Contains source code of Snitz Forums 2000
'***********************************************************************
'#################################################################################
'## 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
'#################################################################################
%><!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_adminvar.asp" --><%If Session(strCookieURL & "Approval") = "256697926329" and instr(strWebMaster,lcase(strAdmin1UserName)&",") <> 0 and not lcase(strAdmin1UserName) = "" and not lcase(strAdmin1UserName) = " " Then %>
<!--#INCLUDE file="inc_functions.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
<script language="JavaScript" type="text/javascript" src="inc_jscode.js"></script>
<script language="JavaScript">
<!--
function OpenPreview()
{
   var curCookie = "strMessagePreview=" + escape(document.PostTopic.Message.value);
   document.cookie = curCookie;
   popupWin = window.open('pop_preview.asp', 'preview_page', 'scrollbars=yes,width=550,height=250')
}
//-->
</script>
<table border="0" width="100%" align="center">
  <tr>
    <td width="33%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <img src="images/icons/icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="default.asp">Ana Sayfa[/url]

    <img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="admin_home.asp">Yönetici Paneli[/url]

    <img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="admin_announce_home.asp">Duyurular[/url]

    <img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_folder_open_topic.gif" height=15 width=15 border="0">&nbsp;Yeni Duyuru Ekleyin...</font></td>
  </tr>
</table>
<%   Function Date_GetYear( dDate )
   Date_GetYear = DatePart( "yyyy", dDate )
   End Function

   Function Date_GetMonthNo( dDate )
   Date_GetMonthNo = DatePart( "m", dDate )
   End Function

   Function Date_GetDayNo( dDate )
   Date_GetDayNo = DatePart( "d", dDate )
   End Function

   Function Date_GetMonthName( nMonthNo )
   Select Case nMonthNo
   Case 1
   Date_GetMonthName = "Ocak"
   Case 2
   Date_GetMonthName = "Şubat"
   Case 3
   Date_GetMonthName = "Mart"
   Case 4
   Date_GetMonthName = "Nisan"
   Case 5
   Date_GetMonthName = "Mayıs"
   Case 6
   Date_GetMonthName = "Haziran"
   Case 7
   Date_GetMonthName = "Temmuz"
   Case 8
   Date_GetMonthName = "Ağustos"
   Case 9
   Date_GetMonthName = "Eylül"
   Case 10
   Date_GetMonthName = "Ekim"
   Case 11
   Date_GetMonthName = "Kasım"
   Case 12
   Date_GetMonthName = "Aralık"
   End Select
   End Function

strEndDayDefault = Date_GetDayNo(DateAdd( "d", 0, strForumTimeAdjust) )
strEndMonthDefault = Date_GetMonthNo(DateAdd( "m", 1, strForumTimeAdjust) )
strEndYearDefault = Date_GetYear(DateAdd( "yyyy", 0, strForumTimeAdjust) )

    if Request.Form("Method_Type") = "Write_Configuration" then

   txtSubject = ChkString(Request.Form("Subject"),"title")
   txtMessage = ChkString(Request.Form("Message"),"message")
   txtStartDate = Request.Form("StartYearName") & doublenum(Request.Form("StartMonthName")) & doublenum(Request.Form("StartDayName")) & "000001"
   txtEndDate = Request.Form("EndYearName") & doublenum(Request.Form("EndMonthName")) & doublenum(Request.Form("EndDayName")) & "000001"

   Err_Msg = ""

   if txtSubject = " " then
      Err_Msg = Err_Msg & "<li>Duyuru Konusunu Yazmadınız!</li>"
   end if

   if txtMessage = " " then
      Err_Msg = Err_Msg & "<li>Duyuru İçeriğini Yazmadınız!</li>"
   end if

   if txtStartDate = txtEndDate then
      Err_Msg = Err_Msg & "<li>Duyurunun Başlangıcı İle Bitişi Aynı Tarih Olamaz!</li>"
   end if

   if txtStartDate > txtEndDate then
      Err_Msg = Err_Msg & "<li>Duyurunun Bitiş Tarihi Başlangıç Tarihinden Erken Olamaz!</li>"
   end if

   if Err_Msg = "" then

        txtMessage = ChkString(Request.Form("Message"),"message")
      txtSubject = ChkString(Request.Form("Subject"),"title")
      strStartDate = Request.Form("StartYearName") & doublenum(Request.Form("StartMonthName")) & doublenum(Request.Form("StartDayName")) & "000001"
      strEndDate = Request.Form("EndYearName") & doublenum(Request.Form("EndMonthName")) & doublenum(Request.Form("EndDayName")) & "000001"

      '## Forum_SQL - Do DB Update
      strSql = "INSERT INTO " & strTablePrefix & "ANNOUNCE ("
      strSql = strSql & "A_AUTHOR"
      strSql = strSql & ", A_SUBJECT"
      strSql = strSql & ", A_MESSAGE"
      strSql = strSql & ", A_START_DATE"
      strSql = strSql & ", A_END_DATE"
      strSql = strSql & ") VALUES ("
      strSql = strSql & "'" & strDBNTUserName & "'"
      strSql = strSql & ", '" & txtSubject & "'"
      strSql = strSql & ", '" & txtMessage & "'"
      strSql = strSql & ", " & "'" & strStartDate & "'"
      strSql = strSql & ", " & "'" & strEndDate & "'"
      strSql = strSql & ")"

      my_Conn.Execute (strSql)
%>
      <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Duyuru Eklendi!</font></p>
      <meta http-equiv="Refresh" content="2; URL=admin_announce_home.asp">

      <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Tebrikler!</font></p>

      <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="admin_announce_home.asp">Duyuru Yönetimi Sayfasına Geri Dön</font>[/url]</p>
<%   else %>
      <p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Yazdığınız Bilgilerde Bir Problem Var</font></p>

      <table align=center border=0>
        <tr>
          <td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
            <ul>
         <% =Err_Msg %>
            </ul>
          </font></td>
        </tr>
      </table>

      <p align=center><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>><a href="JavaScript:history.go(-1)">Geri Dönüp Bilgilerinizi Kontrol Edin[/url]</font></p>
<%   end if %>
<%  else %>
   <form action="admin_announce_add.asp" method="post" id="formEle" name="PostTopic">
   <input type="hidden" name="Method_Type" value="Write_Configuration">
   <table border="0" cellspacing="0" cellpadding="0" align=center>
     <tr>
       <td bgcolor="<% =strPopUpBorderColor %>">
         <table border="0" cellspacing="1" cellpadding="1">
      <tr valign="top">
        <td align="center" bgcolor="<% =strHeadCellColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Yeni Duyuru Oluşturun</font></td>
      </tr>
      <tr valign="top">
        <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Konu:&nbsp;</font></td>
        <td bgColor="<% =strPopUpTableColor %>"><input maxLength="50" name="Subject" value="<% =Trim(ChkString(TxtSub,"display")) %>" size="30" tabindex="1"></td>
      </tr>
      <tr valign="top">
        <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Biçim:</font></td>
        <td bgColor="<% =strPopUpTableColor %>" align="left"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
          <select name="font" onChange="thelp(this.options[this.selectedIndex].value)">
            <option value="1">Yardım&nbsp;</option>
            <option selected value="0">Tam&nbsp;</option>
            <option value="2">Temel&nbsp;</option>
          </select></font></td>
      </tr>
      <!--#INCLUDE FILE="inc_post_buttons.asp" --> 
      <tr valign="top">
        <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Duyuru İçeriği:&nbsp;</font>


          <table border=0>
            <tr>
              <td align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
           <% if strAllowHTML = "1" then %>
                  * HTML Kod Kullanımı Açık

           <% else %>
                  * HTML Kod Kullanımı Kapalı

           <% end if %>
           <% if strAllowForumCode = "1" then %>
                  * <a href="JavaScript:openWindow3('pop_forum_code.asp')">Forum Kodu[/url] Kullanımı Açık

           <% else %>
                  * Forum Kodu Kullanımı Kapalı

           <% end if %>
                </font>
              </td>
                 </tr>
               </table>
             </td>
            <td bgColor="<% =strPopUpTableColor %>"><textarea name="Message" cols="33" rows=6 wrap="virtual" onfocus="getActiveText(this)" onclick="getActiveText(this)" onchange="getActiveText(this)" onkeyup="getActiveText(this)" onselect="getActiveText(this)" tabindex="2"><% =Trim(cleancode(TxtMsg)) %></textarea></td>
      </tr>
           <tr>
        <td align="right" bgcolor="<% =strPopUpTableColor %>" colspan="1">
          <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Başlangıç Tarihi:&nbsp;</font><BR>
          <font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">Duyuru bu tarihte görüntülenmeye başlar.<BR></font>
        </td>
        <td align="left" bgcolor="<% =strPopUpTableColor %>" colspan="1">
          <table border="0" cellspacing="1" cellpadding="1">
            <tr valign="top">
              <td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><B>Gün</B></FONT></td>
         <td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><B>Ay</B></FONT></td>
         <td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><B>Yıl</B></FONT>
</td>
            </tr>
            <tr>
         <td><SELECT NAME="StartDayName"><% Date_FillBoxWithDays "" %></SELECT></td>
         <td><SELECT NAME="StartMonthName"><% Date_FillBoxWithMonths "", True %></SELECT></td>
         <td><SELECT NAME="StartYearName"><% Date_FillBoxWithYears 2007, 2020, "" %></SELECT></td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td align="right" bgcolor="<% =strPopUpTableColor %>" colspan="1">
          <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Bitiş Tarihi:&nbsp;</font><BR>
          <font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">Duyuru bu tarihten sonra görüntülenmez.<BR></font>
        </td>
        <td align="left" bgcolor="<% =strPopUpTableColor %>" colspan="1">
          <table border="0" cellspacing="1" cellpadding="1">
            <tr valign="top">
         <td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><B>Gün</B></FONT></td>
         <td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><B>Ay</B></FONT></td>
         <td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><B>Yıl</B></FONT>
</td>
            </tr>
            <tr>
         <td><SELECT NAME="EndDayName"><% Date_FillBoxWithDays strEndDayDefault %></SELECT></td>
         <td><SELECT NAME="EndMonthName"><% Date_FillBoxWithMonths strEndMonthDefault, True %></SELECT></td>
         <td><SELECT NAME="EndYearName"><% Date_FillBoxWithYears 2007, 2020, strEndYearDefault %></SELECT></td>
            </tr>
          </table>
        </td>
      </tr>
      <tr valign="top">
        <td bgColor="<% =strPopUpTableColor %>" colspan="2" align="center">&nbsp;</td>
      </tr>
      <tr valign="top">
        <td bgColor="<% =strPopUpTableColor %>" colspan="2" align="center"><input type="submit" value=" Duyuruyu Gönder " id="submit1" name="submit1" tabindex="3" class="button"> <input class="button" name="Preview" type="button" value=" Önizleme " onclick="OpenPreview()"> <input type="reset" value=" İptal Et " id="reset1" name="reset1" class="button"></td>
      </tr>
         </table>
       </td>
     </tr>
   </table>
   </form>
   </font>
<%  end if %>
<!--#INCLUDE file="inc_footer.asp" -->
<% else %>
   <% Response.Redirect "admin_login.asp" %>
<% end if %>
<%
Sub Date_FillBoxWithYears( nFirst, nLast, nDefault )
Dim nYear
If nDefault = "" Then
   nDefault = Date_GetYear( strForumTimeAdjust )
End If
For nYear = nFirst To nLast
         Response.Write "<option"
         If nYear = nDefault Then
         Response.Write " selected=yes"
         End If
         Response.Write ">" & nYear & "</option>" & vbcrlf
Next
End Sub

Sub Date_FillBoxWithMonths( nDefault, fUseNumbersAsValue )
Dim nMonth
If nDefault = "" Then
   nDefault = Date_GetMonthNo( strForumTimeAdjust )
End If
For nMonth = 1 To 12
         Response.Write "<option"
         If nMonth = nDefault Then
         Response.Write " selected=yes"
         End If
         If fUseNumbersAsValue = True Then
         Response.Write " value=" & nMonth
         End If
         Response.Write ">" & Date_GetMonthName(nMonth) & "</option>" & vbcrlf
Next
End Sub

Sub Date_FillBoxWithDays( nDefault )
Dim nDay
If nDefault = "" Then
   nDefault = Date_GetDayNo( strForumTimeAdjust )
End If
For nDay = 1 To 31
         Response.Write "<option"
         If nDay = nDefault Then
         Response.Write " selected=yes"
         End If
         Response.Write ">" & nDay & "</option>" & vbcrlf
Next
End Sub
%>

[ziyaretci12]

dosya 2: admin_announce_edit.asp

ve bu dosyadakileride koplele sizde bulunan admin_announce_edit.asp değiştiriyorsunuz yaniz sizde bunu nanı silin bunları ekleyin ve ondan sonra ftp. atınboylece sorun cüzülmüz olur

<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> Copyright (C) 2004-2005 Tom Nance (SkyDogg) All Rights Reserved
'<> Events Suite Copyright (C) 2004-2005 Ken Smiley 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.info 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.info
'<>
'<> Email: maxweb@maxwebportal.info
'** Türkçeye Çevirenler: OgReTmEnLeRiM.NeT | Bülent KARAYAZI & UzmanWeb.Net | Adem TÜRK
'***********************************************************************
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'***********************************************************************
'** 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
'***********************************************************************
'** This Page Contains source code of Snitz Forums 2000
'***********************************************************************
'#################################################################################
'## 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
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<% If Session(strCookieURL & "Approval") = "256697926329" Then %>
<!--#INCLUDE file="inc_functions.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
<script language="JavaScript" type="text/javascript" src="inc_jscode.js"></script>
<script language="JavaScript">
<!--
function OpenPreview()
{
   var curCookie = "strMessagePreview=" + escape(document.PostTopic.Message.value);
   document.cookie = curCookie;
   popupWin = window.open('pop_preview.asp', 'preview_page', 'scrollbars=yes,width=550,height=250')
}
//-->
</script>
<table border="0" width="100%" align="center">
  <tr>
    <td width="33%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <img src="images/icons/icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="default.asp">Ana Sayfa[/url]

    <img src="images/icons/icon_bar.gif" height=15 width=15 border="0"><img src="images/icons/icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="admin_home.asp">Yönetici Paneli[/url]

    <img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="admin_announce_home.asp">Duyurular[/url]

    <img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="admin_review_announce.asp">Duyuru Düzenleme[/url]

<%  if Request.Form("Method_Type") = "Write_Configuration" then %>
       <img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_bar.gif" height=15 width=15 border="0"><img src="images/icons/icon_folder_open_topic.gif" height=15 width=15 border="0">&nbsp;<% =ChkString(Request.Form("Subject"),"title") %></font></td>
<%  else %>
       <img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_blank.gif" height=15 width=15 border="0"><img src="images/icons/icon_bar.gif" height=15 width=15 border="0"><img src="images/icons/icon_folder_open_topic.gif" height=15 width=15 border="0">&nbsp;<% =ChkString(Request.QueryString("A_SUBJECT"),"display") %></font></td>
<%  end if %>
  </tr>
</table>
<%   Function Date_GetYear( dDate )
   Date_GetYear = DatePart( "yyyy", dDate )
   End Function

   Function Date_GetMonthNo( dDate )
   Date_GetMonthNo = DatePart( "m", dDate )
   End Function

   Function Date_GetDayNo( dDate )
   Date_GetDayNo = DatePart( "d", dDate )
   End Function

   Function Date_GetMonthName( nMonthNo )
   Select Case nMonthNo
   Case 1
   Date_GetMonthName = "Ocak"
   Case 2
   Date_GetMonthName = "Şubat"
   Case 3
   Date_GetMonthName = "Mart"
   Case 4
   Date_GetMonthName = "Nisan"
   Case 5
   Date_GetMonthName = "Mayıs"
   Case 6
   Date_GetMonthName = "Haziran"
   Case 7
   Date_GetMonthName = "Temmuz"
   Case 8
   Date_GetMonthName = "Ağustos"
   Case 9
   Date_GetMonthName = "Eylül"
   Case 10
   Date_GetMonthName = "Ekim"
   Case 11
   Date_GetMonthName = "Kasım"
   Case 12
   Date_GetMonthName = "Aralık"
   End Select
   End Function


    if Request.Form("Method_Type") = "Write_Configuration" then

   txtSubject = ChkString(Request.Form("Subject"),"title")
   txtMessage = ChkString(Request.Form("Message"),"message")
   txtEndDate = Request.Form("EndYearName") & doublenum(Request.Form("EndMonthName")) & doublenum(Request.Form("EndDayName")) & "000001"

   Err_Msg = ""

   if txtSubject = " " then
      Err_Msg = Err_Msg & "<li>Duyuru Konusunu Yazmadınız!</li>"
   end if

   if txtMessage = " " then
      Err_Msg = Err_Msg & "<li>Duyuru İçeriğini Yazmadınız!</li>"
   end if

   if txtEndDate < DateToStr(Now()) then
      Err_Msg = Err_Msg & "<li>Duyuru Bitiş Tarihi Başlangıç Tarihinden İtibaren En Az 1 Gün Olmalıdır!</li>"
   end if

   if Err_Msg = "" then

        txtMessage = ChkString(Request.Form("Message"),"message")
      txtSubject = ChkString(Request.Form("Subject"),"title")
      strEndDate = Request.Form("EndYearName") & doublenum(Request.Form("EndMonthName")) & doublenum(Request.Form("EndDayName")) & "000001"

      '## Forum_SQL - Do DB Update
      strSql = "UPDATE " & strTablePrefix & "ANNOUNCE "
      strSql = strSql & " SET A_SUBJECT = '" & txtSubject & "'"
      strSql = strSql & ",    A_MESSAGE = '" & txtMessage & "'"
      strSql = strSql & ",    A_END_DATE = '" & strEndDate & "'"
      strSql = strSql & " WHERE A_ID = " & Request.Form("A_ID")

      my_Conn.Execute (strSql)
%>
      <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Duyuru Güncellendi!</font></p>
      <meta http-equiv="Refresh" content="2; URL=admin_review_announce.asp">

      <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Tebrikler!</font></p>

      <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="admin_review_announce.asp">Duyuru Düzenleme Sayfasına Geri Dön</font>[/url]</p>
<%   else %>
      <p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Yazdığınız Bilgilerde Bir Problem Var</font></p>

      <table align=center border=0>
        <tr>
          <td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
            <ul>
         <% =Err_Msg %>
            </ul>
          </font></td>
        </tr>
      </table>

      <p align=center><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>><a href="JavaScript:history.go(-1)">Geri Dönüp Bilgilerinizi Kontrol Edin[/url]</font></p>
<%   end if %>
<%  else %>
<%
   '## Forum_SQL - Get Announcements from DB
   strSql = "SELECT * "
   strSql = strSql & " FROM " & strTablePrefix & "ANNOUNCE "
   strSql = strSql & " WHERE A_ID = " & Request.QueryString("A_ID")

   set rs = my_Conn.Execute (strSql)

        TxtSub = rs("A_SUBJECT")
        TxtMsg = rs("A_MESSAGE")
   strStartDate = StrToDate(rs("A_START_DATE"))
   strEndDate = StrToDate(rs("A_END_DATE"))
%>
   <form action="admin_announce_edit.asp" method="post" id="PostTopic" name="PostTopic">
   <input type="hidden" name="Method_Type" value="Write_Configuration">
   <input type="hidden" name="A_ID" value="<% =rs("A_ID") %>">
   <table border="0" cellspacing="0" cellpadding="0" align=center>
     <tr>
       <td bgcolor="<% =strPopUpBorderColor %>">
              <table border="0" cellspacing="1" cellpadding="1">
      <tr valign="top">
        <td align="center" bgcolor="<% =strHeadCellColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Duyuru Düzenleme</font></td>
      </tr>
      <tr valign="top">
        <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Konu:&nbsp;</font></td>
        <td bgColor="<% =strPopUpTableColor %>"><input maxLength="50" name="Subject" value="<% =Trim(ChkString(TxtSub,"display")) %>" size="30" tabindex="1"></td>
      </tr>
      <tr valign="top">
        <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Biçim:</font></td>
        <td bgColor="<% =strPopUpTableColor %>" align="left"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
          <select name="font" onChange="thelp(this.options[this.selectedIndex].value)">
            <option value="1">Yardım&nbsp;</option>
            <option selected value="0">Tam&nbsp;</option>
            <option value="2">Temel&nbsp;</option>
          </select></font></td>
      </tr>
      <!--#INCLUDE FILE="inc_post_buttons.asp" -->
      <tr valign="top">
        <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Duyuru İçeriği:&nbsp;</font>


          <table border=0>
            <tr>
              <td align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
                <% if strAllowHTML = "1" then %>
                  * HTML Kod Kullanımı Açık

           <% else %>
                  * HTML Kod Kullanımı Kapalı

           <% end if %>
           <% if strAllowForumCode = "1" then %>
                  * <a href="JavaScript:openWindow3('pop_forum_code.asp')">Forum Kodu[/url] Kullanımı Açık

           <% else %>
                  * Forum Kodu Kullanımı Kapalı

           <% end if %>
                </font>
                   </td>
            </tr>
          </table>
        </td>
        <td bgColor="<% =strPopUpTableColor %>"><textarea name="Message" cols="33" rows=6 wrap="virtual" onfocus="getActiveText(this)" onclick="getActiveText(this)" onchange="getActiveText(this)" onkeyup="getActiveText(this)" onselect="getActiveText(this)" tabindex="2"><% =Trim(cleancode(TxtMsg)) %></textarea></td>
      </tr>
      <tr>
        <td align="right" bgcolor="<% =strPopUpTableColor %>" colspan="1">
          <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Başlangıç Tarihi:&nbsp;</font><BR>
          <font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">Duyuru bu tarihte görüntülenmeye başlar<BR></font>
        </td>
        <td align="left" bgcolor="<% =strPopUpTableColor %>" colspan="1">
          <table border="0" cellspacing="1" cellpadding="1">
            <tr valign="top">
         <td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><B>Gün</B></FONT></td>
         <td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><B>Ay</B></FONT></td>
         <td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><B>Yıl</B></FONT>
</td>
            </tr>
            <tr>
         <td><SELECT NAME="StartDayName" disabled><% Date_FillBoxWithDays DatePart("d", strStartDate) %></SELECT></td>
         <td><SELECT NAME="StartMonthName" disabled><% Date_FillBoxWithMonths DatePart("m", strStartDate), True %></SELECT></td>
         <td><SELECT NAME="StartYearName" disabled><% Date_FillBoxWithYears 2007, 2020, DatePart("yyyy", strStartDate) %></SELECT></td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td align="right" bgcolor="<% =strPopUpTableColor %>" colspan="1">
          <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Bitiş Tarihi:&nbsp;</font><BR>
          <font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">Duyuru bu tarihten sonra görüntülenmez.<BR></font>
        </td>
        <td align="left" bgcolor="<% =strPopUpTableColor %>" colspan="1">
          <table border="0" cellspacing="1" cellpadding="1">
            <tr valign="top">
         <td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><B>Gün</B></FONT></td>
         <td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><B>Ay</B></FONT></td>
         <td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><B>Yıl</B></FONT>
</td>
            </tr>
            <tr>
         <td><SELECT NAME="EndDayName"><% Date_FillBoxWithDays DatePart("d", strEndDate) %></SELECT></td>
         <td><SELECT NAME="EndMonthName"><% Date_FillBoxWithMonths DatePart("m", strEndDate), True %></SELECT></td>
         <td><SELECT NAME="EndYearName"><% Date_FillBoxWithYears 2007, 2020, DatePart("yyyy", strEndDate) %></SELECT></td>
            </tr>
          </table>
        </td>
      </tr>
      <tr valign="top">
        <td bgColor="<% =strPopUpTableColor %>" colspan="2" align="center">&nbsp;</td>
      </tr>
      <tr valign="top">
        <td bgColor="<% =strPopUpTableColor %>" colspan="2" align="center"><input type="submit" value=" Duyuruyu Gönder " id="submit1" name="submit1" tabindex="3" class="button"> <input name="Preview" type="button" value=" Önizleme " onclick="OpenPreview()" class="button"> <input type="reset" value=" İptal Et " id="reset1" name="reset1" class="button"></td>
      </tr>
         </table>
       </td>
     </tr>
        </table>
        </form>
        </font>
<%  end if %>
<!--#INCLUDE file="inc_footer.asp" -->
<% else %>
   <% Response.Redirect "admin_login.asp" %>
<% end if %>
<%
Sub Date_FillBoxWithYears( nFirst, nLast, nDefault )
Dim nYear
If nDefault = "" Then
   nDefault = Date_GetYear( strForumTimeAdjust )
End If
For nYear = nFirst To nLast
         Response.Write "<option"
         If nYear = nDefault Then
         Response.Write " selected=yes"
         End If
         Response.Write ">" & nYear & "</option>" & vbcrlf
Next
End Sub

Sub Date_FillBoxWithMonths( nDefault, fUseNumbersAsValue )
Dim nMonth
If nDefault = "" Then
   nDefault = Date_GetMonthNo( strForumTimeAdjust )
End If
For nMonth = 1 To 12
         Response.Write "<option"
         If nMonth = nDefault Then
         Response.Write " selected=yes"
         End If
         If fUseNumbersAsValue = True Then
         Response.Write " value=" & nMonth
         End If
         Response.Write ">" & Date_GetMonthName(nMonth) & "</option>" & vbcrlf
Next
End Sub

Sub Date_FillBoxWithDays( nDefault )
Dim nDay
If nDefault = "" Then
   nDefault = Date_GetDayNo( strForumTimeAdjust )
End If
For nDay = 1 To 31
         Response.Write "<option"
         If nDay = nDefault Then
         Response.Write " selected=yes"
         End If
         Response.Write ">" & nDay & "</option>" & vbcrlf
Next
End Sub
%>

iyi calışmalar.