Home

<% Dim oConn Dim aRs Dim oRs Dim filePath Dim TodayCount Dim TotalCount filePath = ("E:\www.farzammd.com\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 + 7 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 %>