Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !
Forum Başlıklarına gitmek için tıklayınız
| Kod Alanı: |
<% Response.buffer = true '---------------------------------------------------------------------------------------- '- WEB Calendar Application - Version 2.5 - 05 December 2005 '- Copyright © 2005 - Livio Siri (http://www.livio.net) - All Rights Reserved. '---------------------------------------------------------------------------------------- '##### CONFIGURATION ################################## '#### EDIT YOUR LOGIN USERNAME and PASSWORD HERE #### UserName = "admin" Password = "pass" '--- Password protect add/edit/delete bProtect = True '-- The database name dbcalendar = "calendar25.mdb" '--- The database path on Server (this dir MUST have write permission on server) ' dbremotepath = "C:\inetpub\wwwroot\yourdomain\calendar\database\" dbremotepath = Server.MapPath("/takvim/database") & "/" '--- The local database path (OPTIONAL, for local PWS debugging purpose only) ' dblocalPath = "C:\inetpub\wwwroot\calendar\database\" dblocalPath = Server.MapPath("database") & "/" '--- The calendar files path refered to the root path sScriptDir ="" '--- Events are shown in a pop-up window (True) or in your own events page (False) bEventsPopUp = False '--- If bEventsPopUp = False then define here your own events calendar page name and path refered to the root path sCalendarEventsPage = "calendar_events.asp" '--- Show upcoming events bUpcomingEvents = True '--- How many upcoming events iUpcomingEvents = 10 '--- Show bottom info line for next month events bNextMonth = False '--- Show daily/weekly events checkbox selection bWeeklyEvents = True '--- Show weekly events at start bWeeklyEventsStart = False '##### EMAIL EVENT REMINDER Config ################# bEmailer = False '--- Enable/disable email reminder feature intEmailDays = 5 '--- How many days before event should the email reminder be sent sFrom = "Calendar Reminder" '--- Sender description and subject sAdministratorsEmail = "youremail@yourmailserver.net" '--- Sender email address sMailRecipient = "youremail@yourmailserver.net" '--- email reminder destination address sMailRecipientBCC = "" '--- BCC email reminder destination address sMailObject = "CDOSYS" '--- email Object, either "CDOSYS" or "JMail" or "CDONTS" or "AspEmail" sMailServerAddress = "localhost:25" '--- SMTP Mail Server address (required for JMail only) sFormat = "HTML" '--- Email reminder format "HTML" or "TEXT" '########### Calendar Language ######################## ActualLCID = Session.LCID '--- You can add below your own calendar language translation '--- Automatic language selection If instr(UCase(Request.Servervariables("HTTP_ACCEPT_LANGUAGE")), "IT") > 0 THEN Session.LCID = 1040 '--- italiano binternational = True '--- date format=DD/MM/YYYY strEventi = "Oggi ci sono eventi!!" strClicca = "Clicca per vederli" strEventi2 = "Ci sono %1 eventi in Calendario" strEventiPassati = "Eventi già passati" strNoEventi = "Nessun evento schedulato per questo giorno" strMesePre = "Mese passato" strMeseNex = "Mese prossimo" strAnnoPre = "Anno passato" strAnnoNex = "Anno prossimo" strAddEventi = "Aggiungi evento" strNewEventi = "Aggiorna evento" strDelEventi = "Cancella evento" strModEventi = "Edita evento" strCalendario = "Calendario eventi" strOggi = "Oggi" strFormError = "Errore nel form" strReqField = "Campo richiesto!" strRequired = "Richiesto" strOptional = "Opzionale" strEventDate = "Data evento" strEventEndDate = "Data fine evento" strEventEditor = "Nome editore" strEventTitle = "Titolo evento" strEventDetails = "Dettagli evento" strEventExit = "Esci" strEventDelete = "Sei sicuro di cancellare l'evento:" strYes = "SI" strNo = "NO" strEventRepeat = "Ricorrente ogni anno" strEventActive = "Attivo" strEventInactive = "Disattivato" strEventEmail = "Ricordato via Email" strEventEmailDate = "Ultima email inviata:" strEventUpcoming = "I prossimi %1 eventi:" strEndNote = "NOTA: Deve avere lo stesso mese di ""%1""<br>Se l'evento è a cavallo di mesi differenti editare 2 eventi separati." strEventRange = "Periodo evento:" strAllEvents = "%1 eventi totali" strShowUp = "Mostra la lista dei prossimi %1 eventi" strHideUp = "Nascondi la lista dei prossimi %1 eventi" strEventManager = "Apri manager eventi" strEventUp = "Vedi evento del" strPageControl = "Controllo pagine" strPagep = "Pagina " strFirstpTitle = " Prima " strPrevpTitle = " Precedente " strNextpTitle = " Successiva " strLastpTitle = " Ultima " strOfp = " di " strAll = " Tutti i record " strNorfp = "Nessun Record Trovato" strShowWK = "Mostra eventi per settimana" strHideWK = "Mostra eventi per giorno" strWK = "Settimana" '--- ###### ADD YOUR TRANSLATION HERE ############### ' ElseIf instr(UCase(Request.Servervariables("HTTP_ACCEPT_LANGUAGE")), "YOUR LANGUAGE ID IN UPPERCASE") > 0 THEN ' Session.LCID = YOUR COUNTRY SESSION.LCID NUMBER ' binternational = YOUR COUNTRY DATE FORMAT. False=MM/DD/YYYY, True=DD/MM/YYYY ' strEventi = ....... copy here and translate all variables etc. '--- ########################################## Else '--- calendar in english If instr(UCase(Request.Servervariables("HTTP_ACCEPT_LANGUAGE")), "US") > 0 THEN Session.LCID = 1033 '--- English (USA) binternational = False '--- date format=MM/DD/YYYY Else Session.LCID = 2057 '--- English (British) binternational = True '--- date format=DD/MM/YYYY End if strEventi = "Bugün Etklinlik Var!!" strClicca = "Tıklayınız" strEventi2 = "Bugün %1 etkinlik var." strEventiPassati = "Bu olay geçti.Üzgünüm" strNoEventi = "There are currently no events scheduled for this day" strMesePre = "Geçmiş Ay" strMeseNex = "Gelecek Ay" strAnnoPre = "Geçmiş Yıl" strAnnoNex = "Gelecek Yıl" strAddEventi = "Yeni Etkinlik Ekle" strNewEventi = "Etkinlik Düzelt" strDelEventi = "Etkinlik Sil" strModEventi = "Etkinlik Güncelle" strCalendario = "Etkinlik Takvimi" strOggi = "Bugün" strFormError = "Formda Hata VAr." strReqField = "Alan Gerekli" strRequired = "Require" strOptional = "Seçenekli" strEventDate = "Etkinlik Tarihi" strEventEndDate = "Bitiş Tarihi" strEventEditor = "Editorün ismi" strEventTitle = "Etkinlik Başlığı" strEventDetails = "Detay" strEventExit = "Çıkış" strEventDelete = "Bütün Etkinlikler Silinsin mi?" strYes = "Evet" strNo = "Hayır" strEventRepeat = "Senelik Tekrarlı Olaylar" strEventActive = "Aktif Olay" strEventInactive = "Aktif Olay Yok." strEventEmail = "E-posta İle Hatırlatalım Mı?" strEventEmailDate = "Eski Hatırlatmalar:" strEventUpcoming = "Gelecek %1 Etkinlik Var:" strEndNote = "NOTE: Must have the same month as ""%1""<br>If event range is between months then edit 2 different events." strEventRange = "Olay Süresi:" strEventManager = "Toggle events manager" strAllEvents = "%1 total recorded events" strShowUp = "Show next %1 upcoming event list" strHideUp = "Hide upcoming %1 event list" strEventUp = "Show event on" strPageControl = "Page control" strPagep = "Page " strFirstpTitle = " İlk " strPrevpTitle = " Önceki " strNextpTitle = " İleri " strLastpTitle = " geri " strOfp = " of " strAll = " Tüm kayıtları göster " strNorfp = "Kayıt Bulunamadı" strShowWK = "Toggle Weekly view ON" strHideWK = "Toggle Daily view ON" strWK = "Hafta" end if '################################################ '--- DO NOT Edit the entries below '---------------------------------------------------- IgVersion = "2.5" Session("DisableAction") = False strSSubDisabled = "Submit disabled" '--- Define common variables Dim UserName, Password, bProtect, dbCalendar, dbremotePath, dblocalPath, sScriptDir Dim sCalendarEventsPage, bUpcomingEvents, iUpcomingEvents, bNextMonth Dim sDB, sDSN, connOLE, RS, sSQL, bEvents, bWeeklyEvents, bWeeklyEventsStart Dim dbpath, ActualLCID, binternational, strSSubDisabled, bEventsPopUp Dim connCalendar, IgVersion, sScriptPath, intThisMonth, intThisYear Dim sFrom, sMailRecipient, sMailRecipientBCC, sMailObject, sMailServerAddress Dim sFormat, sAdministratorsEmail, intEmailDays, bEmailer '--- Define language variables Dim strEventi, strClicca, strEventi2, strEventiPassati, strNoEventi Dim strMesePre, strMeseNex, strAnnoPre, strAnnoNex, strAddEventi Dim strNewEventi, strDelEventi, strModEventi, strCalendario, strOggi Dim strFormError, strReqField, strRequired, strOptional, strEventDate Dim strEventEndDate, strEventEditor, strEventTitle, strEventDetails, strEventExit Dim strEventDelete, strYes, strNo, strEventRepeat, strEventActive Dim strEventInactive, strEventUpcoming, strEndNote, strEventRange, strEventManager Dim strAllEvents, strShowUp, strHideUp, strEventUp, strPageControl Dim strPagep, strFirstpTitle, strPrevpTitle, strNextpTitle, strLastpTitle Dim strOfp, strAll, strNorfp, strShowWK, strHideWK, strWK Dim strEventEmail, strEventEmailDate connOLE = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" If request.servervariables("HTTP_HOST") = "127.0.0.1" OR request.servervariables("HTTP_HOST") = "localhost" then dbpath = dblocalpath Else dbpath = dbremotepath End if ConnCalendar = connOLE & dbpath & dbcalendar & ";" sDSN = connCalendar If NOT bProtect then Session("bLoginSuccessful") = True sScriptPath = Request.ServerVariables("SCRIPT_NAME") '---------------------------------------------------------------------- Sub W(Str) Response.Write(Str & Vbcrlf) End Sub '---------------------------------------------------------------------- Sub re() Response.End End Sub '--- ADO Constants ------------------------------------------------ '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 '---- CursorLocationEnum Values ---- Const adUseServer = 2 Const adUseClient = 3 '---- CommandTypeEnum Values ---- Const adCmdUnknown = &H0008 Const adCmdText = &H0001 Const adCmdTable = &H0002 Const adCmdStoredProc = &H0004 Const adCmdFile = &H0100 Const adCmdTableDirect = &H0200 '---------------------------------------------------------------------- %> |