Had to rewrite my Hit Counter for ASPX.
dim authuser
dim pager
dim myconn
dim connstring
dim selecter
dim listy
dim bongo
dim inserter
dim listy1
dim sel
dim listy2
dim numb
dim writer
dim listy3
dim s1
dim s2
dim s3
dim s4
dim s5
dim s6
dim area51
dim area52
dim r1
dim r2
authuser = ChkEmailuserToCheck
pager = "home"
MyConn=Server.CreateObject("ADODB.Connection")
connstring="Provider=SQLOLEDB.1;Password=hedgehog;Persist Security Info=False;User ID=websrv;Initial Catalog=websrv;Data Source=yardibck"
MyConn.Open(connstring)
selecter = "select Count(authname) as countr from Names where authname ='" & authuser & "';"
listy = MyConn.Execute(selecter)
bongo = listy("countr").value
if bongo = 0 then
inserter = "Insert into Names (authname, logins, pager, dater) values ('" & authuser & "', '1', 'default', '" & now() & "');"
listy1 = MyConn.Execute(inserter)
else
sel = "select logins as logger from Names where authname = '" & authuser & "';"
listy2 = MyConn.Execute(sel)
numb = listy2("logger").value
numb = numb + 1
writer = "update names set logins = '" & numb & "', dater = '" & now() & "' where authname = '" & authuser & "';"
listy3 = MyConn.Execute(writer)
end if
s1 = "select count(dater) as dtr from names1 where datediff(d, dater, getdate()) = '0'"
s2 = MyConn.Execute(s1)
if s2("dtr").value = 0 then
s3 = "insert into names1 (dater, counter) values ('" & now() & "','1')"
s4 = MyConn.Execute(s3)
else
r1 = "select counter from names1 where datediff(d, dater, getdate()) = '0'"
r2 = MyConn.execute(r1)
area51 = r2("counter").value
area52 = area51 + 1
s5 = "update names1 set counter = '"& area52 & "';"
s6 = MyConn.execute(s5)
end if
