<% on error resume next Yol = Server.MapPath ("/demo") & "\demo.mdb" Set Dosya = Server.CreateObject("ADODB.Connection") Dosya.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Yol & ";" SqlKomut = "Select Count(*) From trch" Set Sonuc = Dosya.Execute(SqlKomut) If Err Then Response.Write ("Look At This :> " & Err.Description) Else 'Response.Write (".OK." & "") End If Sonuc.Close Dosya.Close Set Sonuc = Nothing Response.Redirect "http://www.kulturdigital.com/demo/sozluk.zip" %>
| ANAMENÜ | DERSLER |  SORUBANKASI |  KONUKAVRATMA  | GRAFİKLER  | ANİMASYONLAR  | YARDIMCI ARAÇLAR | SESLENDİRME |

Soru Bankası

Üniversite Hazırlık

    Serbest Çalışma

    Kültür Denemeleri

    Resmi ÖSS ler

Lise Takviye

Bu bölümde, lise öğrencileri için hazırlanmış okula takviye  çalışması yer almaktadır.

 

Belirlediğiniz konularda, istediğiniz sayı ve zorluk derecelerinde sorulardan test hazırlayıp, kendinizi sınayabilirsiniz.