<%@ LANGUAGE="VBSCRIPT" %>
<%
Response.Expires = 0
' creation du fichier log
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(server.mappath("flash.log"), 8, True, False)
a.Write(Date & VBTab & Time & VBTab)
if Request.ServerVariables("HTTP_REFERER") <= "" then
a.Write("N/A" & VBTab)
else
a.Write(Request.ServerVariables("HTTP_REFERER") & VBTab)
end if
a.Write(Request.ServerVariables("REMOTE_ADDR") & VBTab)
a.Write(Request.ServerVariables("HTTP_USER_AGENT") & VBCrLf)
a.Close
%>
B L U S T E R - F l a s h