counter >
counter_script

counter_script

base on IP, no duplicate IP each day

counter

Table1
id      IP      date (time) visitors hits
1 *.*.*.77  11/9/2007       1       2
2 *.*.*.99  11/9/2007       1       3

<% '--------------the script created by ezer.com ---------
IP=request.servervariables("remote_addr")
Today=date
oneVisitor=1
oneHit=1
'---------- no duplicate IP each day ---------------
Set rs1 = GetSQLserverRecordset (conn, "select * from TB1 where IP='"&IP&"' and date='"&Today&"' ")
if rs1.eof then ' can not find one
rs1.AddNew
rs1("IP")=IP
rs1("date")=Today
rs1("visitors")=oneVisitor
rs1("hits")=oneHit
rs1.Update
else
rs1("hits")=rs1("hits")+1
rs1.Update
end if
'-------- Sum Total of a field ----------------------
SQL2="SELECT SUM(visitors) AS sumVisitors from TB1 where date='"&Today&"' "
Set RS2 = Server.CreateObject("ADODB.Recordset")
RS2.Open SQL2,conn
sumVisitors=rs2("sumVisitors")
SQL3="SELECT SUM(hits) AS sumHits from TB1 where date='"&Today&"' "
Set RS3 = Server.CreateObject("ADODB.Recordset")
RS3.Open SQL3,conn
sumHits=rs3("sumHits")
rs1.close
rs2.close
rs3.close
%>
Today is : <%=date%><br>
Today Total visitors: <%=sumVisitors%> <br>
Today Total hits : <%=sumHits%>

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open Source, ActiveConnection, CursorType, LockType, Options

Today is : 11/9/2007 
Today Total visitors: 2
Today Total hits : 5

---------- tips memo ----------
if you get this:
"Microsoft VBScript runtime error '800a000d'
Type mismatch: 'GetSQLserverRecordset' "
this means: you forget to setup the function for 'GetSQLserverRecordset'
that is why [ mismatch ]
you need add a function for this
and you may name it whatever name you want

Function GetSQLServerRecordset( conn, source )
   Dim rs
   Set rs = Server.CreateObject("ADODB.Recordset")
   rs.Open source, conn, 2, 2
   Set GetSQLServerRecordset = rs
End Function

-------------------------------
For Access : GetMDBStaticRecordset ....
For Excel: GetExcelStaticRecordset 
For FoxPro :GetExcelStaticRecordset 
For Text : GetTextStaticRecordset 
For dBase : GetdBaseStaticRecordset 
For SQLserver : GetSQLserverStaticRecordset