|
<%
set tt=server.createobject("scripting.filesystemobject")
set b=tt.opentextfile (server.mappath("hit.txt"))
t = (b.readline)
dim mitesh
mitesh = t
response.write("")
'
'response.write mitesh
mitesh = mitesh + 1
b.close
c = server.mappath("hit.txt")
'response.write c
%>
<%
set ss=server.createobject("scripting.filesystemobject")
set a=tt.opentextfile (server.mappath("hit.txt"),2,false)
a.writeline(mitesh)
a.close
%>
<%
set conn = server.createobject("adodb.connection")
clientip = request.servervariables("remote_addr")
clientserver = request.servervariables("server_name")
'response.write clientip
'response.write clientserver
newuser = session.sessionid
'response.write newuser
%>
<%
path = server.mappath(".\statistics\admin\impsstatistics.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&path&";"
conn.execute "insert into details values('"&clientserver&"','"&clientip&"','"&newuser&"',now(),date(),'impsmanagement.com','Page')"
conn.close
'con.close
%>
|