<!--#include file="config/config.asp"-->
<!--#include file="libraries.asp"-->
<%
If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp"
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
	strPlog = "SELECT hitDate,IP,referer FROM " & tablPfx & "HitLog ORDER BY hitDate;"
	set rs = objConn.Execute(strPlog)
	If not rs.EOF then
		Do while Not rs.EOF
			For I = 2 to 0 step -1
				nextRec = rs(i)
				records = nextRec & "," & records
			Next
			records = vbCrLf & records
			rs.MoveNext
		Loop
	End If
	rs.close
	set rs = Nothing
	records = Replace(records, vbCrLf, "", 1, 1, vbTextCompare)
	logPATH = Server.MapPath(upload) & "\"
	downFile = "hit_log.csv"
	If len(records) > 10 then
		writeFile logPATH & downFile, "Date,IP,Referer"
		appendFile logPATH & downFile, records
	Else: Response.Redirect "admin_logs.asp"
	End If	
	Server.ScriptTimeout = 60
	Const adTypeBinary = 1
	Response.ContentType = "application/octet-stream"
	Response.AddHeader "content-disposition", "attachment; filename=" & downFile
	Set Stream = server.CreateObject("ADODB.Stream")
	Stream.Type = adTypeBinary
	Stream.Open
	Stream.LoadFromFile logPATH & downFile
	While Not Stream.EOS
		Response.BinaryWrite Stream.Read(1024 * 64)
	Wend
	Stream.Close
	Set Stream = Nothing
	objFile.DeleteFile(logPATH & downFile)
	Set objFile = Nothing
	Response.Flush
	Response.End
%>