Kodlar
<%
Set baglan = Server.CreateObject("ADODB.Connection")
baglan.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databaseadimiz.mdb")
%>
<%
set ist = baglan.execute("SELECT COUNT(*) AS T1 FROM videolar")
set iz = baglan.execute("SELECT SUM(Hit) AS T2 FROM videolar")
ToplamVideo = ist(0)
ToplamIzlenme = iz(0)
%>
Toplam Video: <%=FormatNumber(ToplamVideo,0)%> <br>
Toplam İzlenme: <%=FormatNumber(ToplamIzlenme,0)%><br>
<%
iz.close : set iz = nothing
ist.close : set ist = nothing
%>Belki kolay ve basit bir kodlama ama bilmeyenler için yazdım. Kendinize göre geliştirebilirsiniz kodlamayı