Merhaba,
WEB Calendar Application - Version 2.5 kullanıyorum.
Fakat tarihler hep ingilizce
Yani december falan filan. Ben bunların Kasım aralık gibi türkçe olmasını nasıl sağlarım.
_config.asp dosyası bu şekilde.
| 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
'----------------------------------------------------------------------
%> |
|
|
