<!--#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 " & tablUPfx & "User.* FROM " & tablUPfx & "User ORDER BY cdate;"
	set rs = objConn.Execute(strPlog)
	If not rs.EOF then
		Do while Not rs.EOF
				records = rs(1) & "," & CryptText(rs(2), key, True) & "," & rs(3) & ","
				records = records & Replace(rs(5), ",", "") & "," & rs(6) & "," & rs(7) & "," & rs(8) & "," & rs(10) & "," & rs(11) & "," & rs(12) & "," & rs(13) & ","
				records = records & rs(14) & "," & rs(15) & "," & rs(16) & "," & rs(17) & "," & rs(18) & "," & rs(19) & "," & rs(20) & "," & rs(21) & "," & rs(22)
			saverecords = records & vbCrLf & saverecords
			records = Empty
			rs.MoveNext
		Loop
	End If
	rs.close
	set rs = Nothing
	logPATH = Server.MapPath(upload) & "\"
	downFile = "user_log.csv"
	If len(saverecords) > 10 then
		writeFile logPATH & downFile, "UserID,Email,Nick,City,Is Moderator,Created,Status(0-active|1-not active|2-suspended),Ads Posted,Updated,Last Logon,Is Elist Member,Credits,Option1,Option2,Option3,Option4,Option5,Option6,Option7,Option8" & vbcrlf
		appendFile logPATH & downFile, saverecords
	Else: Response.Redirect "admin_user.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
%>