<%
'Aeonsector ASP-DB Visitor Counter Open Source Code feel free to change and redistribute
'http://www.aeonsector.com
Dim openConn, conString, stringDB, objRS, addCount
Set openConn = Server.CreateObject("ADODB.Connection")
'-----------------------------------------------------------------------------------------------------------------------------
'This is the only part that needs changing (Change the DSN_NAME_HERE to your DSN name"
' conString = "DSN=DSN_NAME_HERE"
conString = "SERVER=SQL2K-1.NETHERE.NET;DSN=sdsl;User Id=aa4457;Password=sd66812;"
' Open the database connection
openConn.Open Application("Driver={SQL Server};SERVER=SQL2K-1.NETHERE.NET;DSN=sdsl;User Id=aa4457;Password=sd66812;")
sql = "SELECT * FROM Visitors WHERE SiteName=NP"
Set objRS = objConn.Execute (sql)
'-----------------------------------------------------------------------------------------------------------------------------
' openConn.Open conString
' stringDB="SELECT * FROM Visitors WHERE SiteName=NP"
' set rstt=server.CreateObject("ADODB.Recordset")
objRS.open stringDB,openConn,3,3
addCount = objRS.fields("dbCNTR")
objRS.fields("dbCNTR")= addCount + 1
objRS.Update
%>
<%=addCount%>
<%
objRS.Close
Set objRS= Nothing
%>
|
|
