<!--#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 * FROM " & tablPfx & "Events ORDER BY ldate DESC;"
	set rs = objConn.Execute(strPlog)
	If not rs.EOF then
		Do while Not rs.EOF
			ldescr = Replace(rs(6), ",", "")
			luser = Replace(rs(7), ",", "")
			nextRec = rs(1) & "," & rs(3) & "," & rs(5) & "," & ldescr & "," & luser & "," & rs(8) & ","
			records =  records & vbCrLf & nextRec
			rs.MoveNext
		Loop
	End If
	rs.close
	set rs = Nothing
	Set re = new RegExp
	re.global=true
	re.ignoreCase=true
	re.pattern="(<.+?>)"
	records = re.Replace(records, "")
	records = Replace(records, vbCrLf, "", 1, 1, vbTextCompare)
	logPATH = Server.MapPath(upload) & "\"
	downFile = "event_log.csv"
	If len(records) > 10 then
		writeFile logPATH & downFile, "Event Type,Date,IP,Description,User,Admin"
		appendFile logPATH & downFile, records
	Else: Response.Redirect "admin_events.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
%>