<% SelectSQL = "select * from site_counter" set rs=ADO.execute (SelectSQL) Dir = "/s209034/temp" do while NOT rs.eof page = rs("fldPage") Select case page case Dir&"/caac/main.asp" main_PageCounts = rs("fldCount") case Dir&"/caac/objectives.asp" objectives_PageCounts = rs("fldCount") case Dir&"/caac/studentRights.asp" studentRights_PageCounts = rs("fldCount") case Dir&"/caac/lectures.asp" lectures_PageCounts = rs("fldCount") case Dir&"/caac/relatedSites.asp" relatedSites_PageCounts = rs("fldCount") case Dir&"/caac/books.asp" books_PageCounts = rs("fldCount") case Dir&"/caac/contact.asp" contact_PageCounts = rs("fldCount") case Dir&"/caac/last_issues.asp" last_issues_PageCounts = rs("fldCount") case "messagesent" messagesent_Counts = rs("fldCount") End select rs.movenext loop ADO.close Set ADO=Nothing %>

      إحصائيات الموقع

 
عدد زوار الموقع الكلي منذ
19\2\1426 هـ
<%=main_PageCounts%> 
عدد زوار صفحة الأهداف
<%=objectives_PageCounts%> 
عدد زوار صفحة حقوق الطالب
<%=studentRights_PageCounts%> 
عدد زوار صفحة المحاضرات
<%=lectures_PageCounts%> 
عدد زوار صفحة مواقع ذات علاقة
<%=relatedSites_PageCounts%> 
عدد زوار صفحة إصدارات المركز
<%=books_PageCounts%> 
عدد زوار صفحة للتواصل
<%=contact_PageCounts%> 
عدد زوار صفحة الإعلانات
<%=last_issues_PageCounts%> 
عدد الرسائل المرسلة للموقع
<%=messagesent_Counts%>