[an error occurred while processing this directive]
<%
DIM mySQL, objRS
mySQL = "SELECT * FROM tblDailyHits WHERE DateVisited = #" & Date() & "#;"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText
DIM iRecordCount
iRecordCount = 0
IF objRS.EOF THEN
objRS.AddNew
ELSE
objRS.MoveFirst
iRecordCount = objRS("Hits")
END IF
objRS("Hits") = iRecordCount + 1
objRS.Update
%>
We have <% =objRS("Hits") %> hits today.
<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
HitsFile = Server.MapPath ("/statistics") & "\totalhits.txt"
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
%>
....::::: Index Of M.Clan :::::....
