Sur.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../db/Sayac.mdb")&"")

db klasörünüzdeki sayac.mdb dosyasının adını değiştirip, 18. satırda bulunan (yukarıdaki kodda) koddan da değiştirdiğiniz dosya adını girip denemelisiniz.

Access veritabanları bazen bu tür hatalar veriyor, veritabanı adını değiştirince sorun düzeliyor.

Dim MM_baglanti_STRING
MM_baglanti_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../db/Y_Fpanel.mdb")&";Persist Security Info=False"
%>
<%
set SQLbaglanti = Server.CreateObject("ADODB.Connection")
SQLbaglanti.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../db/Y_Fpanel.mdb")&"")
%>
<%
set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../db/Sayac.mdb")&"")
%>


Connection stringleri değiştirmeyi denediniz mi ? sunucu taraflı bir arıza gibi görünüyor,

connection stringleri şununla değiştirin ;

SQLbaglanti = Server.createobject("adodb.connection")
SQLbaglanti.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("../db/Y_Fpanel.mdb")

set Sur = Server.CreateObject("ADODB.Connection")
Sur.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("../db/Sayac.mdb")