<% language="VBScript"%> <% dt= date() t= Time() rhost=Request.ServerVariables("REMOTE_HOST") ref=Request.ServerVariables("HTTP_REFERER") host=Request.ServerVariables("HTTP_HOST") set bc = Server.CreateObject("MSWC.BrowserType") dim brow brow =bc.browser set mycon=Server.CreateObject("ADODB.Connection") mycon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\fpdb\db3.mdb")) ' mycon.execute("insert into stats values('hello', 'hello', 'hello', 'hello', 'hello', 'hello', 'hello')") 'mycon.execute("insert into stats (remotehost, referer, time, browser, date) values('"&rhost&"', '"&ref&"', '"&t&"', '"&brow&"', '"&dt&"'") mycon.execute("Insert into stats values('"&rhost&"', '"&ref&"', '"&t&"', '"&brow&"', '"&dt&"')") mycon.close() 'set rs= mycon.execute("select * from stats") %> time and date click to continue <%=t%>
<%=dt%>