%@language = "vbscript" %> <% todaydate = date ddate = year(todaydate) & "/" & month(todaydate) & "/" & day(todaydate) & "/" Set bc = Server.CreateObject ("MSWC.BrowserType") Set db = Server.CreateObject("ADODB.Connection") db.Open "DOWNLOAD" if (Request.ServerVariables("REMOTE_HOST") <> "194.7.206.2") and (Request.ServerVariables("REMOTE_HOST") <> "194.7.206.3") then ADD ="INSERT INTO Loguser "_ & "(Dateu,Log,Browse) "_ & "SELECT '" & ddate & "' AS Dateu, '"_ & Request.ServerVariables("REMOTE_HOST") & "' AS Log, '"_ & bc.browser & "' AS Browse;" db.Execute(ADD) end if db.Close %>
![]() |
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | ||||||||
European leader in structured information processing technologies and services.
Stay in contact with the latest developments of these technologies, become a member of
Copyright © 1999 TIMELUX - Last update: December 7, 1999. |