<!--#include file="../../Revealsite/Counters/connection/connection.asp"-->
<%
'Reveal Goldsite id
siteid = Request.QueryString("siteid")
'Browser used by user
browser = Request.QueryString("browser")
'Operating System used by user
os = Request.QueryString("os")
'Response.Write(connectstring)
dim currentdate
dim ipcheck
ipcheck = 0
currentdate = formatdatetime(date,2)
ipaddress = Request.ServerVariables("REMOTE_ADDR")

oldip = session("ipaddress") 'old ip address if stored
oldsiteid = session("siteid") 'old Reveal site
session("ipaddress") = ipaddress 'new ip address taken
session("siteid") = siteid 'current Reveal site visiting

if oldip = session("ipaddress") and oldsiteid = session("siteid") then
	ipcheck = 1
else
	ipcheck = 0
end if

'Response.Write(session("ipaddress"))
browseros = Request.ServerVariables("HTTP_USER_AGENT")

'IE6 & Win2000 - "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
'IE6 & Win NT 4.0 - "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 4.0)"
'Netscape 4.77 & Win2000 - "Mozilla/4.77 [en] (Windows NT 5.0; U)"
'Netscape 6.1 & Win2000 - "Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:0.9.2) Gecko/20010726 Netscape6/6.1"
'Netscape 7.1 & Win2000 - "Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.4) Gecko/20030624 Netscape/7.1 (ax)"
'Opera 7.1 & Win2000 - "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) Opera 7.11 [en]"
'Mozilla & Linux - "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2.1) Gecko/20030225"
'Konqueror & Linux - "Mozilla/5.0 (compatible; Konqueror/3.1; Linux)"

'Detect which browser and set correct value
dim browser
dim OS 'Operating System Variable
dim BR 'Browser variable
OS = 0
BR = 0

'Select Correct Browser from userAgent and set value
'Legend
'1 = "Internet Explorer 6"
'2 = "Internet Explorer 5"
'3 = "Internet Explorer 4"
'4 = "Internet Explorer 3"
'5 = "Netscape"
'6 = "Konqueror"
'7 = "Opera"
'8 = Other Browser
if instr(1,browseros,"MSIE 6.0") then
	if instr(1,browseros,"Opera") then
		BR = 7
	else
		BR = 1
	end if
elseif instr(1,browseros,"MSIE 5.0") then
	BR = 2
elseif instr(1,browseros,"MSIE 4.0") then
	BR = 3
elseif instr(1,browseros,"MSIE 3.0") then
	BR = 4
elseif instr(1,browseros,"Netscape") then
	BR = 5
elseif instr(1,browseros,"Konqueror") then
	BR = 6
elseif instr(1,browseros,"Opera") then
	BR = 7
else
	BR = 8
end if

'Set sql string based on results
sql = "update browsers "
select case BR
case 1, 2, 3, 4
'Select current value
set rscurrent = server.CreateObject("adodb.recordset")
rscurrent.ActiveConnection = connectString
rscurrent.Source = "Select Microsoft from browsers where siteid = '" & siteid & "'"
rscurrent.Open
if not rscurrent.EOF then
	mcurrent = rscurrent("Microsoft") 'collect current value
	mcurrent = mcurrent + 1 'increment value by one
	sql = sql & " set Microsoft = " & mcurrent & " where siteid = '" & siteid & "'"
end if

if rscurrent.state = 1 then rscurrent.close 'close recordset

case 5
'Select current value
set rscurrent = server.CreateObject("adodb.recordset")
rscurrent.ActiveConnection = connectString
rscurrent.Source = "Select Netscape from browsers where siteid = '" & siteid & "'"
rscurrent.Open
if not rscurrent.EOF then
	ncurrent = rscurrent("Netscape") 'collect current value
	ncurrent = ncurrent + 1 'increment value by one
	sql = sql & " set Netscape = " & ncurrent & " where siteid = '" & siteid & "'"
end if

if rscurrent.state = 1 then rscurrent.close 'close recordset

case 6
'Select current value
set rscurrent = server.CreateObject("adodb.recordset")
rscurrent.ActiveConnection = connectString
rscurrent.Source = "Select Konqueror from browsers where siteid = '" & siteid & "'"
rscurrent.Open
if not rscurrent.EOF then
	kcurrent = rscurrent("Konqueror") 'collect current value
	kcurrent = kcurrent + 1 'increment value by one
	sql = sql & " set Konqueror = " & kcurrent & " where siteid = '" & siteid & "'"
end if

if rscurrent.state = 1 then rscurrent.close 'close recordset

case 7
'Select current value
set rscurrent = server.CreateObject("adodb.recordset")
rscurrent.ActiveConnection = connectString
rscurrent.Source = "Select Opera from browsers where siteid = '" & siteid & "'"
rscurrent.Open
if not rscurrent.EOF then
	ocurrent = rscurrent("Opera") 'collect current value
	ocurrent = ocurrent + 1 'increment value by one
	sql = sql & " set Opera = " & ocurrent & " where siteid = '" & siteid & "'"
end if

if rscurrent.state = 1 then rscurrent.close 'close recordset

case 8 'other browser
'Select current value
set rscurrent = server.CreateObject("adodb.recordset")
rscurrent.ActiveConnection = connectString
rscurrent.Source = "Select Other from browsers where siteid = '" & siteid & "'"
rscurrent.Open
if not rscurrent.EOF then
	otcurrent = rscurrent("Other") 'collect current value
	otcurrent = otcurrent + 1 'increment value by one
	sql = sql & " set Other = " & otcurrent & " where siteid = '" & siteid & "'"
end if

if rscurrent.state = 1 then rscurrent.close 'close recordset

end select

'Run built sql string
set rsbrowser = server.CreateObject("adodb.recordset")
rsbrowser.ActiveConnection = connectString
rsbrowser.Source = sql
rsbrowser.Open


'Select correct Operating System and set value
'Legend
'1 = "Windows 2000"
'2 = "Windows NT 4.0"
'3 = "Linux"

if instr(1,browseros,"Windows NT 5.0") then
	OS = 1
elseif instr(1,browseros,"Windows NT 4.0") then
	OS = 2
elseif instr(1,browseros,"Linux") then
	OS = 3
elseif instr(1,browseros,"Mac") then
	OS = 4
elseif instr(1,browseros,"XP") then
	OS = 5
else
	OS = 6
end if

'Set sql string based on results
sqlos = "update os "
select case OS
case 1
'Select current value
set rscurrent = server.CreateObject("adodb.recordset")
rscurrent.ActiveConnection = connectString
rscurrent.Source = "Select Windows2000 from os where siteid = '" & siteid & "'"
rscurrent.Open
if not rscurrent.EOF then
	mcurrent = rscurrent("Windows2000") 'collect current value
	mcurrent = mcurrent + 1 'increment value by one
	sqlos = sqlos & " set Windows2000 = " & mcurrent & " where siteid = '" & siteid & "'"
end if

if rscurrent.state = 1 then rscurrent.close 'close recordset

case 2
'Select current value
set rscurrent = server.CreateObject("adodb.recordset")
rscurrent.ActiveConnection = connectString
rscurrent.Source = "Select WindowsNT from os where siteid = '" & siteid & "'"
rscurrent.Open
if not rscurrent.EOF then
	ncurrent = rscurrent("WindowsNT") 'collect current value
	ncurrent = ncurrent + 1 'increment value by one
	sqlos = sqlos & " set WindowsNT = " & ncurrent & " where siteid = '" & siteid & "'"
end if

if rscurrent.state = 1 then rscurrent.close 'close recordset

case 3
'Select current value
set rscurrent = server.CreateObject("adodb.recordset")
rscurrent.ActiveConnection = connectString
rscurrent.Source = "Select Linux from os where siteid = '" & siteid & "'"
rscurrent.Open
if not rscurrent.EOF then
	lcurrent = rscurrent("Linux") 'collect current value
	lcurrent = lcurrent + 1 'increment value by one
	sqlos = sqlos & " set Linux = " & lcurrent & " where siteid = '" & siteid & "'"
end if

if rscurrent.state = 1 then rscurrent.close 'close recordset

case 4
'Select current value
set rscurrent = server.CreateObject("adodb.recordset")
rscurrent.ActiveConnection = connectString
rscurrent.Source = "Select Macintosh from os where siteid = '" & siteid & "'"
rscurrent.Open
if not rscurrent.EOF then
	macurrent = rscurrent("Macintosh") 'collect current value
	macurrent = macurrent + 1 'increment value by one
	sqlos = sqlos & " set Macintosh = " & macurrent & " where siteid = '" & siteid & "'"
end if

if rscurrent.state = 1 then rscurrent.close 'close recordset

case 5
'Select current value
set rscurrent = server.CreateObject("adodb.recordset")
rscurrent.ActiveConnection = connectString
rscurrent.Source = "Select WindowsXP from os where siteid = '" & siteid & "'"
rscurrent.Open
if not rscurrent.EOF then
	mxcurrent = rscurrent("WindowsXP") 'collect current value
	mxcurrent = mxcurrent + 1 'increment value by one
	sqlos = sqlos & " set WindowsXP = " & mxcurrent & " where siteid = '" & siteid & "'"
end if

if rscurrent.state = 1 then rscurrent.close 'close recordset

case 6
'Select current value
set rscurrent = server.CreateObject("adodb.recordset")
rscurrent.ActiveConnection = connectString
rscurrent.Source = "Select Other from os where siteid = '" & siteid & "'"
rscurrent.Open
if not rscurrent.EOF then
	ocurrent = rscurrent("Other") 'collect current value
	ocurrent = ocurrent + 1 'increment value by one
	sqlos = sqlos & " set Other = " & ocurrent & " where siteid = '" & siteid & "'"
end if

if rscurrent.state = 1 then rscurrent.close 'close recordset

end select

'Run built sql string
set rsOS = server.CreateObject("adodb.recordset")
rsOS.ActiveConnection = connectString
rsOS.Source = sqlos
rsOS.Open


'Open Database and recordset
set rsdb = server.CreateObject("adodb.recordset")
rsdb.ActiveConnection = connectString 'connectionstring to database
rsdb.CursorLocation = 3
rsdb.Source = "Select * from sitecounter where siteid = '" & siteid & "'"
rsdb.Open

if not rsdb.EOF then
	VisitorNumber = rsdb("counter") 'get current counter value in database
	cstyle = rsdb("cstyle")
	select case cstyle
	case 1
	ipath = "../Revealsite/counters/images/style1"
	case 2
	ipath = "../Revealsite/counters/images/style2"
	case 3
	ipath = "../Revealsite/counters/images/style3"
	case 4
	ipath = "../Revealsite/counters/images/style4"
	case 5
	ipath = "../Revealsite/counters/images/style5"
	case 6
	ipath = "../Revealsite/counters/images/style6"
	case 7
	ipath = "../Revealsite/counters/images/style7"
	case 8
	ipath = "../Revealsite/counters/images/style8"
	end select
end if

if ipcheck = 0 then
VisitorNumber = VisitorNumber + 1 'increment the counter by 1
end if

'update the counter in the database
set rsdb2 = server.CreateObject("adodb.recordset")
rsdb2.ActiveConnection = connectString 'connection string to database
rsdb2.Source = "update sitecounter set [counter] = " & cint(VisitorNumber) & " where siteid = '" & siteid & "'"
rsdb2.Open

set rsdb2 = nothing 'delete object created

set rsdate = server.CreateObject("adodb.recordset")
rsdate.ActiveConnection = connectString 'connection string to database
rsdate.CursorLocation = 3 'set cursorlocation so that an update is available
rsdate.CursorType = 3
rsdate.Source = "Select * from dailycounter where siteid = '" & siteid & "' and [cdate] = #" & currentdate & "#"
rsdate.Open 'open recordset

if not rsdate.EOF then
	currentcounter = rsdate("counter") 'get current counter
	currentcounter = currentcounter + 1 'increment counter by 1
	rsdate.Close
	'update counter based on what day it is
	rsdate.Source = "Update dailycounter set [counter] = " & currentcounter & " where siteid = '" & siteid & "' and [cdate] = #" & currentdate & "#"
	rsdate.Open 'open recordset
else
	rsdate.Close 'close recordset
	'insert a value into the table if there isn't an entry alread
	rsdate.Source = "insert into dailycounter (siteid,[cdate],[counter]) values ('" & siteid & "','" & currentdate & "',1)"
	rsdate.Open 'open recordset
end if

'''Enter in IPaddress of user
'''It will enter a record into the database everytime the page is refreshed.
set rsip = server.CreateObject("adodb.recordset")
rsip.ActiveConnection = connectString
rsip.Source = "insert into individualcounter (siteid,ipaddress,browseros) values ('" & siteid & "','" & ipaddress & "','" & browseros & "')"
rsip.Open
'''''''''''''''''''''''''''''
Length = Len(VisitorNumber) 'calculate length of counter
Digit1 = Right(VisitorNumber, 1) 'get first digit
If length = 1 Then
 Digit2 = Right(VisitorNumber, 2)
 Digit2 = 0
 Digit3 = 0
 Digit4 = 0
 Digit5 = 0
 Digit6 = 0
ElseIf length = 2 Then
 Digit2 = Right(VisitorNumber, 2)
 Digit2 = Left(Digit2, 1)
 Digit3 = 0
 Digit4 = 0
 Digit5 = 0
 Digit6 = 0
ElseIf Length = 3 Then
 Digit2 = Right(VisitorNumber, 2)
 Digit2 = Left(Digit2, 1)
 Digit3 = Right(VisitorNumber, 3)
 Digit3 = Left(Digit3, 1)
 Digit4 = 0
 Digit5 = 0
 Digit6 = 0
ElseIf Length = 4 Then
 Digit2 = Right(VisitorNumber, 2)
 Digit2 = Left(Digit2, 1)
 Digit3 = Right(VisitorNumber, 3)
 Digit3 = Left(Digit3, 1)
 Digit4 = Right(VisitorNumber, 4)
 Digit4 = Left(Digit4, 1)
 Digit5 = 0
 Digit6 = 0
ElseIf Length = 5 Then
 Digit2 = Right(VisitorNumber, 2)
 Digit2 = Left(Digit2, 1)
 Digit3 = Right(VisitorNumber, 3)
 Digit3 = Left(Digit3, 1)
 Digit4 = Right(VisitorNumber, 4)
 Digit4 = Left(Digit4, 1)
 Digit5 = Right(VisitorNumber, 5)
 Digit5 = Left(Digit5, 1)
 Digit6 = 0
ElseIf Length = 6 Then
 Digit2 = Right(VisitorNumber, 2)
 Digit2 = Left(Digit2, 1)
 Digit3 = Right(VisitorNumber, 3)
 Digit3 = Left(Digit3, 1)
 Digit4 = Right(VisitorNumber, 4)
 Digit4 = Left(Digit4, 1)
 Digit5 = Right(VisitorNumber, 5)
 Digit5 = Left(Digit5, 1)
 Digit6 = Right(VisitorNumber, 6)
 Digit6 = Left(Digit6, 1)
End If
%>
<head><title></title>
</head>
<body STYLE="background-color:transparent" topmargin=0 leftmargin=0 bottommargin=0 rightmargin=0>
<center>
<!--<a href="viewstats.asp?siteid=demo" title="Click To View Stats" target="frame1">-->
<img src="<%=ipath%>/<%=Digit6%>.gif" border=0><img src="<%=ipath%>/<%=Digit5%>.gif" border=0><img src="<%=ipath%>/<%=Digit4%>.gif" border=0><img src="<%=ipath%>/<%=Digit3%>.gif" border=0><img src="<%=ipath%>/<%=Digit2%>.gif" border=0><img src="<%=ipath%>/<%=Digit1%>.gif" border=0>
<!--</a>-->
</center>