<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<% Response.Expires= -1 %>
به سایت اطلاع رسانی دکتر علی وفایی خوش آمدید
<%
Dim oConn
Dim aRs
Dim oRs
Dim filePath
Dim TodayCount
Dim TotalCount
filePath = Server.MapPath("taffiran.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
Set aRs = oConn.Execute("SELECT * FROM VisitCounter " & "WHERE ADate = '" & Date & "'")
Set oRs = oConn.Execute("SELECT SUM(ACount) AS TotalCount FROM VisitCounter")
if oRs.eof then
TotalCount = 0
else
TotalCount = oRs("TotalCount")
end if
oRs.Close
Set oRs = Nothing
if not aRs.eof then
TodayCount = aRs("ACount")
TodayCount = TodayCount + 1
oConn.Execute("UPDATE VisitCounter SET ACount = " & TodayCount & " WHERE ADate = '" & Date & "'")
else
oConn.Execute "INSERT INTO VisitCounter (ADate, ACount) VALUES ('" & Date & "', 1)"
TodayCount = 1
end if
aRs.Close
Set aRs= Nothing
oConn.Close
Set oConn = Nothing
%>
