<% 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

ANİMASYON

Kültür Digital içerikte olduğu kadar görsel anlatımda da kaliteli hizmet sunmaktadır. Konuların daha iyi anlaşılması ve akılda kalıcı olması açısından çok sayıda video ve animasyon yer almaktadır.

Matematik	8
Geometri	0
Türkçe	2
Fizik	75
Kimya	90
Biyoloji	61
Tarih	19
Coğrafya	42
Felsefe Gurubu	8

Örnek animasyonları görmek için...

olmak üzere toplam 305 video vardır. Tüm animasyon ve videoların toplam süresi ise 2:42:40 'dir.