6. satır
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")

tüm scriptlerde veri tabanı ile bağlantı satırında sorun veriyor.