%
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 | |
|
|
|
KONU KAVRATMA
TESTLERİ
Kültür Digital'de tüm dersler için konu kavratma testi yer
almaktadır. Her bir ders için kkt' de bulunan soru sayısı ; |
|
Matematik |
1223 |
|
Geometri |
415 |
|
Türkçe |
442 |
|
Fizik |
573 |
|
Kimya |
817 |
|
Biyoloji |
619 |
|
Tarih |
397 |
|
Coğrafya |
676 |
|
Felsefe Grubu |
379 |
|
 |
|
olmak üzere toplam
5541 adettir. |
|