<!--#include file="Db/ayarlar.asp"-->
<%
Set data = Server.CreateObject("ADODB.Connection")
data.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&databaseyolu&"")

shibby = request.QueryString("shibby")
if shibby = "" then%>
<p><strong>G&uuml;ncelleme &#304;&#351;lemleri:</strong></p>
<ul>
  <li>Öncelikle sisteminizdeki t&uuml;m dosyalar&#305; yedekleyin bi. Sonra olmad&#305; bu, sitem bozuldu demeyin :)</li>
  <li>Daha sonra, sHibby Download v2.3 klas&ouml;r&uuml;ndeki t&uuml;m dosyalar&#305; sitenizin kurulu oldu&#287;u dizine at&#305;n. Ancaak, Db klas&ouml;r&uuml;ndeki veritabanlar&#305; atmay&#305;n. Sizin eski veritabanlar&#305;n&#305;z&#305; kullan&#305;caz. Db klas&ouml;r&uuml;nden sadece ayarlar.asp yi g&ouml;nderin. Ve bu dosyadaki veritaban&#305; yollar&#305;n&#305; tekrar d&uuml;zenleyin. </li>
  <li>Daha sonra <a href="?shibby=to23">buraya</a> t&#305;kl&#305;yarak veritaban&#305; y&uuml;kseltme i&#351;lemine ba&#351;lay&#305;n.</li>
  <li>Veritaban&#305; y&uuml;kseltmesi tamamland&#305;ktan sonra admin paneline girerek site ayarlar&#305;n&#305; d&uuml;zenleyin.</li>
  <li>T&uuml;m i&#351;lemler bittikten sonra bu dosyay&#305; silin. </li>
  <li>NOT: Bu dosya v2.2 den 2.3 e g&uuml;ncelleme dosyas&#305;d&#305;r. 2.2 den eski s&uuml;r&uuml;m kullan&#305;yorsan&#305;z &ouml;ncelikle 2.2 ye g&uuml;ncellemeniz gerekmektedir. Onun i&ccedil;inde 2.2 s&uuml;r&uuml;m dosyas&#305;n&#305; indirmeniz gerekmektedir. http://www.guvenatbakan.net adrsinden indirebilirsiniz.  </li>
</ul>
 </p>
<%elseif shibby = "to23" then
'download_dokuman tablosu olusturuluyor
data.Execute("Create TABLE download_dokuman (id AutoIncrement, hangidosya NUMERIC, baslik TEXT(255), icerik MEMO, tarih DATETIME, ekleyen NUMERIC, aktif BIT, hit NUMERIC)")
'kelime tablosu olusturuluyor
data.Execute("Create TABLE kelime (id AutoIncrement, kelime TEXT(255), hit NUMERIC)")
'download tablosuna sütun ekleniyor
data.Execute("Alter TABLE download ADD toplamoy NUMERIC, toplamoysayi NUMERIC")
'tüm dosyalarin oylari ve oy sayilair 0 yapiliyor.
data.execute("update download set toplamoy = 0, toplamoysayi = 0")
'ayarlar tablosuna sütun ekleniyor
data.Execute("Alter TABLE ayarlar ADD strdosya TEXT(255), strsiteadi TEXT(255), strkeywords TEXT(255), stryorum BIT, strcopyright MEMO, strcrack BIT, strdokuman BIT, striletisimkime NUMERIC, strsiteadresi TEXT(255)")
t = true
set up = server.CreateObject("adodb.recordset")
up.open "select * from ayarlar",data,1,3
up("strdosya") = "Download.asp"
up("strsiteadi") = "sHibby"
up("strkeywords") = "download"
up("stryorum") = True
up("strcopyright") = "Powered by sHibby"
up("strcrack") = True
up("strdokuman") = True
up("striletisimkime") = 1
up("strsiteadresi") = "http://localhost/down/"
up.update
up.close
set up = nothing
Response.Write "Güncelleme Tamamlandi"
end if%>