<% ' ************************************************************************ ' * ASP-Nuke: Free web portal in ASP * ' * Türkçeleştiren: İsa SARI (www.e-xploder.net) * ' ************************************************************************ ' * Copyright (c) 2002-2003 by Gaetan Bouveret (webmaster@asp-nuke.com) * ' * http://www.asp-nuke.com * ' * * ' * Bu program ücretsiz olup, Free Software Foundation tarafından * ' * yayımlanan GNU Genel Lisansı altında, istediğiniz gibi değiştire- * ' * bilirsiniz. * ' * * ' ************************************************************************ %> <% ' Option Explicit Response.Expires = 0 Const sVersion = "v1.3" Const sLangCode = "TR" ' Const sCharset = "windows-1254" Dim bIsAdvanceTheme bIsAdvanceTheme = false Const LANG_VERSION_NAME = "Türkçe Versiyon" Const LANG_ERROR_DB_PATH = "HATA: Yanlış veritabanı yolu.
Geri dön." Const LANG_TITLE_PAGE = "Web Site Ayarları" Const LANG_SITE_ALREADY_CONFIGURED = "Web sitesi daha önceden ayarlanmış" Const LANG_CONFIGURATION_CREATED1 = "Ayar dosyası (configuration-inc.asp) ""/includes/"" klasörü içerisinde başarıyla oluşturuldu." Const LANG_CONFIGURATION_CREATED2 = "
Web sitenizin ayarları düzeltildi.
" Const LANG_FILESYSTEM_FORBIDDEN1 = "Hostunuz dosya oluşturmayı desteklememektedir. Text alanı içerisindeki kodları ""configuration-inc.asp"" dosyasının içerisine yazın. Daha sonra ""configuration-inc.asp"" dosyasını ""/includes/"" klasörünüz içerisine yerleştirin.
" Const LANG_FILESYSTEM_FORBIDDEN2 = "
/includes/ klasörü içerisine bu dosya yerleştirildiği zaman, web siteniz düzgün olarak çalışacaktır.
" Const LANG_CONFIGURATION_END1 = "Lütfen bu dosyayı (kur.asp) sunucunuzdan siliniz.
" Const LANG_CONFIGURATION_END1_2 = "Lütfen bu dosyayı (upgrade.asp) sunucunuzdan siliniz.
" Const LANG_CONFIGURATION_END2 = "Web sitenizi tekrar konfigüre etmek için sadece ayar dosyasını (/includes/configuration-inc.asp) silin ve tekrar kurulum dosyasını (kur.asp) çalıştırın.

" Const LANG_CONFIGURATION_END3 = "Web Sitenize Gidin !" Const LANG_BAD_LOGIN_PASSWORD = "Kullanıcı adı/şifreniz yanlış veya bir yönetici hesabı yok." Const LANG_INTRODUCTION1 = "
Aşağıdaki alanlar web sitenizin kurulumu için gereklidir. Lütfen ihtiyaçlarınıza göre, ilgili alanları doldurunuz." Const LANG_INTRODUCTION1_2 = "
ASP Nuke web sitenizi upgrade etmek için lütfen aşağıdaki alanları doldurunuz.
" Const LANG_INTRODUCTION2 = "
Bu formu gönderdikten sonra, web sitenizin oluşturulduğuna dair mesaj okuyacaksınız. Eğer kurulum işlemi başarılı ise ""kur.asp"" dosyasını sunucunuzdan silebilirsiniz.
" Const LANG_INTRODUCTION3 = "
" Const LANG_MISSING_FIELDS = "Aşağıdaki alanlar zorunludur" Const LANG_WEBSITE_NAME = "Sitenizin İsmi" Const LANG_WEBSITE_URL = "URL" Const LANG_ADMIN_LOGIN = "Yönetici Adı" Const LANG_ADMIN_PASSWORD = "Yönetici Şifresi" Const LANG_WEBSITE_EMAIL = "E-mail adresi (Webmaster)" Const LANG_WEBSITE_EMAIL2 = "E-mail adresi (Genel)" Const LANG_ADMIN_LOGIN_NOTE = "yönetici hesabı için gerekli olan mail adresidir" Const LANG_ADMIN_PASSWORD_NOTE = "bir yere not edebilirsiniz" Const LANG_WEBSITE_KEYWORDS = "Anahtar Kelimeler" Const LANG_WEBSITE_KEYWORDS_NOTE = "virgül ile kelimeleri ayırabilirsiniz" Const LANG_WEBSITE_DESCRIPTION = "Web sitenizin kısa tanımı" Const LANG_WEBSITE_DESCRIPTION_NOTE = "2 veya 3 cümle" Const LANG_WEBSITE_AUTHOR = "Site Sahibi" Const LANG_WEBSITE_AUTHOR_NOTE = "isminiz / nickiniz vs..." Const LANG_DATABASE_DIRECTORY = "Veritabanı Klasörü" Const LANG_DISPLAY_VISITORS_COUNTER = "Aktif Kullanıcıları Göster" Const LANG_DISPLAY_ADVERTISING = "Reklamları Göster" Const LANG_DISPLAY_SEARCH = "Arama Motorunu Göster" Const LANG_DISPLAY_NEWSLETTER_CHECKBOX = "Mail Listesi" Const LANG_DISPLAY_FAVORITES = "Favori Web Sitelerini Göster" Const LANG_DISPLAY_ACCOUNTS = "Hesap Bilgisini Göster" Const LANG_DISPLAY_TOP_DIRECTORY = "Dizine Eklenen Son Web Sitelerini Göster" Const LANG_DISPLAY_BULLETS = "İmleri Göster" Const LANG_DISPLAY_BULLETS_NOTE = "menü kısmında" Const LANG_DISPLAY_BACKEND = "Yedek Oluştur" Const LANG_DISPLAY_BACKEND_NOTE = """/scripts"" klasörü için yazma izni olması gerekmektedir" Const LANG_ENABLE_PRIVATE_AVATAR = "Kullanıcılar Özel Simge Seçebilir" Const LANG_AUTO_ACCEPT_PRIVATE_AVATAR = "Özel Simgeler Otomatik Olarak Doğrulansın" Const LANG_DISPLAY_VERSIONS = "Dil Seçim Ekranını Göster" Const LANG_AUTO_SIGNUP = "Otomatik Üyelik" Const LANG_AUTO_SIGNUP_NOTE = "eğer deaktif hale getirirseniz, kullanıcılar sitenize e-mail aktivasyonu ile üye olabileceklerdir." Const LANG_WYSIWYG = "WYSIWYG Editor Kullan" Const LANG_WYSIWYG_NOTE = "Sadece Internet Explorer 5.5 ve üstü için" Const LANG_TOP_IMPORTANT_NOTE = "Uyarı : Eğer aşağıdaki alanlarda 0 seçerseniz, seçmiş olduğunuz alan deaktif olacaktır." Const LANG_TOP_NEWS = "Son Haberler" Const LANG_TOP_NEWS_LINKS = "Son Haberler (Link)" Const LANG_TOP_COMMENTS = "Son Yorumlar" Const LANG_TOP_ARTICLES = "Son Makaleler" Const LANG_TOP_DOWNLOADS = "Son Programlar" Const LANG_TOP_POSTS = "Son Mesajlar (forum)" Const LANG_TOP_SEARCH_RESULTS = "Arama Sonuçları" Const LANG_TOP_POLLS = "Son Anketler" Const LANG_TOP_IMAGES = "Son Resimler" Const LANG_TOP_DIRECTORY = "Son Web Siteleri" Const LANG_TOP_CALENDER = "Son Yapılacaklar" Const LANG_COMMENTS_BY_PAGE = "Sayfa Başına Yorum" Const LANG_IMAGES_BY_PAGE = "Sayfa Başına Resim" Const LANG_TOP_BLOCK = "Varsayılan Bloklar" Const LANG_SUBMIT = "Gönder" Const LANG_PROPERTY = "Özellik" Const LANG_VALUE = "Değer" %> <% Function AutoDetectDBPath(sPath) Dim oFs, oFolder, oSubFolder, oFile, bMain, bForum, sTempPath, sDBPath bMain = False bForum = False sDBPath = "" If sPath = "" then sPath = "." On Error Resume Next Set oFs = Server.CreateObject("Scripting.FileSystemObject") If oFs.FolderExists(Server.MapPath(sPath)) Then Set oFolder = oFs.GetFolder(Server.MapPath(sPath)) For Each oFile In oFolder.Files If LCase(oFile.Name) = "forum.mdb" Then bForum = True If LCase(oFile.Name) = "main.mdb" Then bMain = True Next If bMain and bForum Then sDBPath = sPath Else For Each oSubFolder In oFolder.SubFolders sTempPath = AutoDetectDBPath(sPath & "/" & oSubFolder.Name) If sTempPath <> "" Then sDBPath = sTempPath Exit For End If Next End If End If If sDBPath <> "" Then If Left(sDBPath, 2) = "./" Then sDBPath = Mid(sDBPath, 3) ElseIf Left(sDBPath, 1) = "." Then sDBPath = Mid(sDBPath, 2) ElseIf Left(sDBPath, 1) = "/" Then sDBPath = Mid(sDBPath, 2) End If End If Set oFs = Nothing On Error Goto 0 AutoDetectDBPath = sDBPath End Function Function GetDBPath(sPath) Dim sMyDBPath sMyDBPath = AutoDetectDBPath(sPath) If sMyDBPath = "" Then sMyDBPath = "db" End If If Left(sMyDBPath, 1) <> "/" Then sMyDBPath = "/" & sMyDBPath GetDBPath = sMyDBPath End Function Function DBConnexion(sPath, sDBName) Dim oCn, sConnString, oFs, sDBPath sDBPath = Server.MapPath(sPath) Set oCn = Server.CreateObject("ADODB.Connection") sConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & sDBPath & "/" & sDBName & ".mdb" On Error Resume Next oCn.Open sConnString If Err.number <> 0 Then Response.Write LANG_ERROR_DB_PATH Response.End Err.Clear End If On Error Goto 0 Set DBConnexion = oCn End Function Function DateTimeToString(dDateTime) DateTimeToString = Year(dDateTime) & Right("0" & Month(dDateTime), 2) & Right("0" & Day(dDateTime), 2) & " " & Right("0" & Hour(dDateTime), 2) & ":" & Right("0" & Minute(dDateTime), 2) & ":" & Right("0" & Second(dDateTime), 2) End Function Dim oFs, oFile, sDirectory, X, bFileSO, bAlreadyConf, sMsg, oCn, oRs, rSQL Dim bDynCount, bAdvertsing, bSearchEngine, bNewsletter, bFavorites, bAccounts, bLastSites, bBullet, bBackEnd, sAdminPseudo, sAdminPwd, sDBDir Dim bAllowPrivateAvatars, bAutoAcceptPrivateAvatar, bDisplayVersions, bAutoSignup sDirectory = Replace(LCase(Request.ServerVariables("PATH_INFO")), "/kur.asp", "") bAlreadyConf = False bFileSO = True Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF On Error Resume Next Set oFs = Server.CreateObject("Scripting.FileSystemObject") If Err.number <> 0 Then Err.Clear bFileSO = False End If On Error Goto 0 If bFileSO Then If oFs.FileExists(Server.MapPath("./includes/configuration-inc.asp")) Then bAlreadyConf = True End If If bAlreadyConf Then Response.Write LANG_SITE_ALREADY_CONFIGURED Else If Request.Form("SiteName") <> "" Then If Request.Form("DynamicCount") <> "" Then bDynCount = "True" Else bDynCount = "False" End If If Request.Form("Advertising") <> "" Then bAdvertsing = "True" Else bAdvertsing = "False" End If If Request.Form("SearchEngine") <> "" Then bSearchEngine = "True" Else bSearchEngine = "False" End If If Request.Form("Newsletter") <> "" Then bNewsletter = "True" Else bNewsletter = "False" End If If Request.Form("Favorites") <> "" Then bFavorites = "True" Else bFavorites = "False" End If If Request.Form("Accounts") <> "" Then bAccounts = "True" Else bAccounts = "False" End If If Request.Form("LastSites") <> "" Then bLastSites = "True" Else bLastSites = "False" End If If Request.Form("Bullet") <> "" Then bBullet = "True" Else bBullet = "False" End If If Request.Form("AllowPrivateAvatars") <> "" Then bAllowPrivateAvatars = "True" Else bAllowPrivateAvatars = "False" End If If Request.Form("AutoAcceptPrivateAvatar") <> "" Then bAutoAcceptPrivateAvatar = "True" Else bAutoAcceptPrivateAvatar = "False" End If If Request.Form("DisplayVersions") <> "" Then bDisplayVersions = "True" Else bDisplayVersions = "False" End If If Request.Form("AutoSignup") <> "" Then bAutoSignup = "True" Else bAutoSignup = "False" End If If Request.Form("WYSIWYG") <> "" Then bWYSIWYG = "True" Else bWYSIWYG = "False" End If If Request.Form("AutoBackEnd") <> "" Then bBackEnd = "True" Else bBackEnd = "False" End If sAdminPseudo = Request.Form("uLogin") sAdminPwd = Request.Form("uPassword") sDBDir = Request.Form("sDBPath") Set oCn = DBConnexion(sDBDir, "main") rSQL = "SELECT * FROM Users WHERE uLogin='" & Replace(sAdminPseudo, "'", "''") & "'" Set oRs = oCn.Execute(rSQL) If oRs.EOF Then rSQL = "INSERT INTO users (uLogin, uPassword, uEmail, uMSN, uYahoo, uICQ, uAIM, uURL, uSignature, uRole, uDate, uNewsletter, uProfile, uValid) VALUES ('" & Replace(sAdminPseudo, "'", "''") & "', '" & Replace(sAdminPwd, "'", "''") & "', '" & Replace(Request.Form("SiteEmail"), "'", "''") & "', '', '', '', '', '" & Replace(Request.Form("SiteURL"), "'", "''") & "', '', 5, '" & DateTimeToString(Now()) & "', 0, 0, 1)" oCn.Execute rSQL rSQL = "SELECT * FROM Versions WHERE vCode='" & Replace(sLangCode, "'", "''") & "'" Set oRs = oCn.Execute(rSQL) If oRs.EOF Then rSQL = "INSERT INTO versions (vCode, vTitle, vPicture) VALUES ('" & Replace(sLangCode, "'", "''") & "', '" & Replace(LANG_VERSION_NAME, "'", "''") & "', '')" oCn.Execute rSQL End If Set oCn = DBConnexion(sDBDir, "forum") rSQL = "INSERT INTO users (UserLogin, UserPosts, UserValid) VALUES ('" & Replace(sAdminPseudo, "'", "''") & "', 0, 1)" oCn.Execute rSQL rSQL = "INSERT INTO Owners (OwnerID) VALUES ('" & Replace(sAdminPseudo, "'", "''") & "')" oCn.Execute rSQL End If oCn.Close Set oCn = Nothing sMsg = "<" & "%" & vbCRLF sMsg = sMsg & " ' General website's information" & vbCRLF sMsg = sMsg & " ' Website's name" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_NAME = """ & Server.HTMLEncode(Request.Form("SiteName")) & """" & vbCRLF sMsg = sMsg & " ' Website's url" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_URL = """ & Server.HTMLEncode(Request.Form("SiteURL")) & """" & vbCRLF sMsg = sMsg & " ' Webmaster's email" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_EMAIL = """ & Server.HTMLEncode(Request.Form("SiteEmail")) & """" & vbCRLF sMsg = sMsg & " ' Accounts email" & vbCRLF sMsg = sMsg & " Const GLOBAL_ACCOUNTS_EMAIL = """ & Server.HTMLEncode(Request.Form("AccountsEmail")) & """" & vbCRLF sMsg = sMsg & " ' Copyright display at bottom" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_COPYRIGHT = """ & Server.HTMLEncode(Request.Form("SiteCopyright")) & """" & vbCRLF sMsg = sMsg & " ' Default language file" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_DEFAULT_VERSION = """ & sLangCode & """" & vbCRLF sMsg = sMsg & "" & vbCRLF sMsg = sMsg & " ' META info" & vbCRLF sMsg = sMsg & " ' Keywords" & vbCRLF sMsg = sMsg & " Const GLOBAL_META_KEYWORDS = """ & Server.HTMLEncode(Request.Form("MetaKeywords")) & """" & vbCRLF sMsg = sMsg & " ' Description" & vbCRLF sMsg = sMsg & " Const GLOBAL_META_DESCRIPTION = """ & Server.HTMLEncode(Request.Form("MetaDescription")) & """" & vbCRLF sMsg = sMsg & " ' Author" & vbCRLF sMsg = sMsg & " Const GLOBAL_META_AUTHOR = """ & Server.HTMLEncode(Request.Form("MetaAuthor")) & """" & vbCRLF sMsg = sMsg & " ' Head structure of subtable" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_SUBTABLE = """"" & vbCRLF sMsg = sMsg & "" & vbCRLF sMsg = sMsg & " ' Paths. Edit ALL paths IF YOU ARE IN A VIRTUAL DIRECTORY !" & vbCRLF sMsg = sMsg & " ' put a ""/myAspNukeDir"" before paths if you're in a virtual directory, " & vbCRLF sMsg = sMsg & " ' where /myAspNukeDir is your virtual directory. " & vbCRLF sMsg = sMsg & " ' For example : Const GLOBAL_SITE_PATH = ""/mywebsite/""" & vbCRLF sMsg = sMsg & "" & vbCRLF sMsg = sMsg & " ' Website path" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_PATH = """ & sDirectory & "/""" & vbCRLF sMsg = sMsg & " ' admin path" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_ADMIN_PATH = """ & sDirectory & "/admin/""" & vbCRLF sMsg = sMsg & " ' Themes Path" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_THEMES_PATH = """ & sDirectory & "/themes/""" & vbCRLF sMsg = sMsg & " ' Pictures directory" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_IMAGES_PATH = """ & sDirectory & "/imgs/""" & vbCRLF sMsg = sMsg & " ' News pictures directory" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_IMAGES_NEWS_PATH = """ & sDirectory & "/imgs/news/""" & vbCRLF sMsg = sMsg & " ' News pictures directory" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_IMAGES_CALENDER_PATH = """ & sDirectory & "/imgs/calender/""" & vbCRLF sMsg = sMsg & " ' Smileys pictures directory" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_IMAGES_SMILEYS_PATH = """ & sDirectory & "/forum/smileys/""" & vbCRLF sMsg = sMsg & " ' Avatars pictures directory" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_IMAGES_AVATARS_PATH = """ & sDirectory & "/forum/avatars/""" & vbCRLF sMsg = sMsg & " ' Forum Ranks Imgs" & vbCRLF sMsg = sMsg & " Const GLOBAL_FORUM_IMGS_RANK = """ & sDirectory & "/forum/imgs/""" & vbCRLF sMsg = sMsg & " ' Backend path and file" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_BACKEND = """ & sDirectory & "/scripts/display_news.js""" & vbCRLF sMsg = sMsg & " ' Database path" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_DATABASE_PATH = """ & sDBDir & """" & vbCRLF sMsg = sMsg & " ' Language files path" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_VERSIONS_PATH = """ & sDirectory & "/lang/""" & vbCRLF sMsg = sMsg & " ' WYSIWYG uploaded images" & vbCRLF sMsg = sMsg & " Const GLOBAL_SITE_IMAGEADD_PATH = """ & sDBDir & "/imgs/""" & vbCRLF sMsg = sMsg & "" & vbCRLF sMsg = sMsg & " ' Database constants" & vbCRLF sMsg = sMsg & " Const DB_MAIN = ""main""" & vbCRLF sMsg = sMsg & " Const DB_FORUM = ""forum""" & vbCRLF sMsg = sMsg & "" & vbCRLF sMsg = sMsg & " ' Display configuration (left column)" & vbCRLF sMsg = sMsg & " ' Dynamic count display" & vbCRLF sMsg = sMsg & " Const bDisplayDynamicCount = " & bDynCount & vbCRLF sMsg = sMsg & " ' Advertising display" & vbCRLF sMsg = sMsg & " Const bDisplayAdvertising = " & bAdvertsing & vbCRLF sMsg = sMsg & " ' Search engine display" & vbCRLF sMsg = sMsg & " Const bDisplaySearchEngine = " & bSearchEngine & vbCRLF sMsg = sMsg & " ' Newsletter" & vbCRLF sMsg = sMsg & " Const bNewsletter = " & bNewsletter & vbCRLF sMsg = sMsg & " ' Favorites display" & vbCRLF sMsg = sMsg & " Const bDisplayFavorites = " & bFavorites & vbCRLF sMsg = sMsg & " ' Accounts display" & vbCRLF sMsg = sMsg & " Const bDisplayAccounts = " & bAccounts & vbCRLF sMsg = sMsg & " ' Last websites display" & vbCRLF sMsg = sMsg & " Const bDisplayLastSites = " & bLastSites & vbCRLF sMsg = sMsg & " ' Display a bullet before menu choices" & vbCRLF sMsg = sMsg & " Const bDisplayBullet = " & bBullet & vbCRLF sMsg = sMsg & " ' Allow or not private avatar" & vbCRLF sMsg = sMsg & " Const bAllowPrivateAvatars = " & bAllowPrivateAvatars & vbCRLF sMsg = sMsg & " ' Auto accept private avatar or not by default" & vbCRLF sMsg = sMsg & " Const bAutoAcceptPrivateAvatar = " & bAutoAcceptPrivateAvatar & vbCRLF sMsg = sMsg & " ' Display language choice" & vbCRLF sMsg = sMsg & " Const bDisplayVersions = " & bDisplayVersions & vbCRLF sMsg = sMsg & " ' Automatic signup" & vbCRLF sMsg = sMsg & " Const bAutoSignup = " & bAutoSignup & vbCRLF sMsg = sMsg & "" & vbCRLF sMsg = sMsg & " ' WYSIWYG Editor" & vbCRLF sMsg = sMsg & " Const bWYSIWYGeditor = " & bWYSIWYG & vbCRLF sMsg = sMsg & "" & vbCRLF sMsg = sMsg & " ' Back End" & vbCRLF sMsg = sMsg & " ' Automatic backend generated" & vbCRLF sMsg = sMsg & " Const bAutoBackEnd = " & bBackEnd & "" & vbCRLF sMsg = sMsg & "" & vbCRLF sMsg = sMsg & " ' TOP results for each section" & vbCRLF sMsg = sMsg & " Const GLOBAL_NEWS_TOP = " & Request.Form("TopNews") & vbCRLF sMsg = sMsg & " Const GLOBAL_NEWS_LINKS_TOP = " & Request.Form("TopNewsLinks") & vbCRLF sMsg = sMsg & " Const GLOBAL_COMMENTS_TOP = " & Request.Form("TopComments") & vbCRLF sMsg = sMsg & " Const GLOBAL_ARTICLES_TOP = " & Request.Form("TopArticles") & vbCRLF sMsg = sMsg & " Const GLOBAL_DOWNLOADS_TOP = " & Request.Form("TopDownloads") & vbCRLF sMsg = sMsg & " Const GLOBAL_FORUM_TOP = " & Request.Form("TopForum") & vbCRLF sMsg = sMsg & " Const GLOBAL_SEARCH_TOP = " & Request.Form("TopSearch") & vbCRLF sMsg = sMsg & " Const GLOBAL_POLLS_TOP = " & Request.Form("TopPolls") & vbCRLF sMsg = sMsg & " Const GLOBAL_IMAGES_TOP = " & Request.Form("TopImages") & vbCRLF sMsg = sMsg & " Const GLOBAL_DIRECTORY_TOP = " & Request.Form("TopDirectory") & vbCRLF sMsg = sMsg & " Const GLOBAL_COMMENTS_PAGE = " & Request.Form("PageComments") & vbCRLF sMsg = sMsg & " Const GLOBAL_IMAGES_PAGE = " & Request.Form("PageImages") & vbCRLF sMsg = sMsg & " Const GLOBAL_POLLS_MAX_RESULTS = 5" & vbCRLF sMsg = sMsg & " Const GLOBAL_CUSTOM_BLOCKS = 8" & vbCRLF sMsg = sMsg & " Const GLOBAL_CALENDER_LINKS_TOP = " & Request.Form("TopCalender") & vbCRLF sMsg = sMsg & " Const GLOBAL_CALENDER_TOP = " & Request.Form("TopCalender") & vbCRLF sMsg = sMsg & " Const GLOBAL_EVENTS_TOP = " & Request.Form("TopCalender") & vbCRLF sMsg = sMsg & "" & vbCRLF sMsg = sMsg & " Const GLOBAL_NEWS_FORUM_TOP = " & Request.Form("TopBLock") & " ' 0 = Dont show any, 1 = Show News/Forum, 2 = Show Calender/Forum, 3 = Show Calender/News, 4 = Show Calender, News and Forum" & vbCRLF sMsg = sMsg & "" & vbCRLF sMsg = sMsg & " ' User Membership activation" & vbCRLF sMsg = sMsg & " Const GLOBAL_USE_MEMBERSHIP = false" & vbCRLF sMsg = sMsg & "" & vbCRLF sMsg = sMsg & "%" & ">" & vbCRLF If bFileSO Then On Error Resume Next Set oFile = oFs.OpenTextFile(Server.MapPath("./includes/configuration-inc.asp"), 2, True) oFile.WriteLine sMsg oFile.Close If oFs.FileExists(Server.MapPath("./includes/configuration-inc.asp")) Then Response.Write LANG_CONFIGURATION_CREATED1 & vbCRLF Response.Write LANG_CONFIGURATION_CREATED2 & vbCRLF Else bFileSO = False End If Set oFs = Nothing On Error GoTo 0 End If If Not bFileSO Then Response.Write LANG_FILESYSTEM_FORBIDDEN1 & vbCRLF Response.Write "

" & Server.HTMLEncode(sMsg) & "

" & vbCRLF Response.Write LANG_FILESYSTEM_FORBIDDEN2 & vbCRLF End If Response.Write LANG_CONFIGURATION_END1 & vbCRLF Response.Write LANG_CONFIGURATION_END2 & vbCRLF Response.Write LANG_CONFIGURATION_END3 & vbCRLF Else sDBDir = GetDBPath(sDirectory) CreateTopTable "setup", "ASP-Nuke Kurulumu (" & sVersion & ") - " & LANG_VERSION_NAME Response.Write LANG_INTRODUCTION1 & vbCRLF Response.Write LANG_INTRODUCTION2 & vbCRLF Response.Write LANG_INTRODUCTION3 & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "" & vbCRLF Response.Write "

" & LANG_PROPERTY & "	" & LANG_VALUE & "
" & LANG_WEBSITE_NAME & "
" & LANG_WEBSITE_URL & "
" & LANG_ADMIN_LOGIN & " (" & LANG_ADMIN_LOGIN_NOTE & ")
" & LANG_ADMIN_PASSWORD & " (" & LANG_ADMIN_PASSWORD_NOTE & ")
" & LANG_WEBSITE_EMAIL & "
" & LANG_WEBSITE_EMAIL2 & "
Copyright
" & LANG_WEBSITE_KEYWORDS & " (" & LANG_WEBSITE_KEYWORDS_NOTE & ")
" & LANG_WEBSITE_DESCRIPTION & " (" & LANG_WEBSITE_DESCRIPTION_NOTE & ")
" & LANG_WEBSITE_AUTHOR & " (" & LANG_WEBSITE_AUTHOR_NOTE & ")
" & LANG_DATABASE_DIRECTORY & "
" & LANG_DISPLAY_VISITORS_COUNTER & "
" & LANG_DISPLAY_ADVERTISING & "
" & LANG_DISPLAY_SEARCH & "
" & LANG_DISPLAY_NEWSLETTER_CHECKBOX & "
" & LANG_DISPLAY_FAVORITES & "
" & LANG_DISPLAY_ACCOUNTS & "
" & LANG_DISPLAY_TOP_DIRECTORY & "
" & LANG_DISPLAY_BULLETS & " (" & LANG_DISPLAY_BULLETS_NOTE & ")
" & LANG_DISPLAY_BACKEND & " (" & LANG_DISPLAY_BACKEND_NOTE & ")
" & LANG_ENABLE_PRIVATE_AVATAR & "
" & LANG_AUTO_ACCEPT_PRIVATE_AVATAR & "
" & LANG_DISPLAY_VERSIONS & "
" & LANG_AUTO_SIGNUP & " (" & LANG_AUTO_SIGNUP_NOTE & ")
" & LANG_WYSIWYG & " (" & LANG_WYSIWYG_NOTE & ")
" & LANG_TOP_IMPORTANT_NOTE & "
" & LANG_TOP_NEWS & "	" & vbCRLF Response.Write " " & vbCRLF For X = 0 To 20 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_TOP_NEWS_LINKS & "	" & vbCRLF Response.Write " " & vbCRLF For X = 0 To 20 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_TOP_COMMENTS & "	" & vbCRLF Response.Write " " & vbCRLF For X = 0 To 20 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_TOP_ARTICLES & "	" & vbCRLF Response.Write " " & vbCRLF For X = 0 To 20 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_TOP_DOWNLOADS & "	" & vbCRLF Response.Write " " & vbCRLF For X = 0 To 20 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_TOP_POSTS & "	" & vbCRLF Response.Write " " & vbCRLF For X = 0 To 20 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_TOP_SEARCH_RESULTS & "	" & vbCRLF Response.Write " " & vbCRLF For X = 0 To 20 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_TOP_POLLS & "	" & vbCRLF Response.Write " " & vbCRLF For X = 0 To 5 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_TOP_IMAGES & "	" & vbCRLF Response.Write " " & vbCRLF For X = 0 To 20 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_TOP_DIRECTORY & "	" & vbCRLF Response.Write " " & vbCRLF For X = 0 To 20 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_COMMENTS_BY_PAGE & "	" & vbCRLF Response.Write " " & vbCRLF For X = 1 To 30 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_IMAGES_BY_PAGE & "	" & vbCRLF Response.Write " " & vbCRLF For X = 1 To 30 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_TOP_CALENDER & "	" & vbCRLF Response.Write " " & vbCRLF For X = 0 To 20 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & LANG_TOP_BLOCK & "	" & vbCRLF Response.Write " " & vbCRLF For X = 0 To 4 Response.Write "" & X & "" & vbCRLF Next Response.Write " " & vbCRLF Response.Write "
" & vbCRLF Response.Write "

" & vbCRLF CreateBottomTable "" End If End If Response.Write "" & vbCRLF Response.Write "" & vbCRLF %>