<% SqlKomut = "Select * From index" Yol = Server.MapPath ("/") & "\sayac1.mdb" Set Dosya = Server.CreateObject("ADODB.Connection") Dosya.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Yol &";" Set RS = Dosya.Execute(SqlKomut) OldHits = Rs("Sayac") Dosya.Close Set Dosya = nothing if Session("Yenimi") <> "Evet" Then NewHits = OldHits + 1 Set Dosya1 = Server.CreateObject("ADODB.Connection") Dosya1.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Yol &";" '--- determin browser and IP-------------- If Instr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") Then browser = "MSIE" Elseif Instr(Request.ServerVariables("HTTP_USER_AGENT"), "Mozilla") Then browser = "Netscape" Else browser = "Other" End If IP = Request.ServerVariables("Remote_Addr") '---- end -------------------------------- SqlKomut = "UPDATE index SET Sayac = '" & NewHits & "' Where Kimlik = 1" Set Sonuc = Dosya1.Execute(SqlKomut) Dosya1.Close Set Dosya1 = nothing on error resume next If Err Then Response.Write ("Hata Olu?tu : " & Err.Description) End If Else NewHits = OldHits End if Session("Yenimi") = "Evet" %>

| ANAMENÜ | DERSLER | SORUBANKASI | KONUKAVRATMA | GRAFİKLER | ANİMASYONLAR | YARDIMCI ARAÇLAR | SESLENDİRME |

Dersler

Soru Bankası

Üniversite Hazırlık

Serbest Çalışma

Kültür Denemeleri

Resmi ÖSS ler

Örnek Ekranlar

SESLENDİRME

Kültür Digital'de yer alan her bir konu ve animasyonlar profesyonel kişiler tarafından seslendirilmiştir. Seslendirme işlemi, konuyu başladıktan itibaren otomatik olarak, ta ki siz müdahale edene kadar sürer. Her bir ders için seslendirme süresi ;

Matematik	28:37:44
Geometri	05:24:17
Türkçe	12:50:32
Fizik	16:07:42
Kimya	18:21:34
Biyoloji	15:17:07
Tarih	10:25:03
Coğrafya	13:36:06
Felsefe Grubu	12:18:36

olmak üzere toplam 135:41:21 'dir.