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

Dersanemiz tarafından hazırlanan 10 deneme sınavı yer almaktadır. Bu sınavlardan istediğinizi seçerek kendinizi test edebilir ve sonucu anında öğrenebilirsiniz.

Ayrıca cevap anahtarını ve aldığınız sonuca göre başarınızı grafiksel olarak görebilirsiniz.