<!--#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 pdate,rstat,pstat,txID,payment,email,userID,fname,lname,IP,merchant,inote FROM " & tablPfx & "Plog ORDER BY pdate;"
	set rs = objConn.Execute(strPlog)
	If not rs.EOF then
		Do while Not rs.EOF
			For I = 11 to 0 step -1
				nextRec = rs(i)
				If I = 3 Or I = 5 then nextRec = CryptText(nextRec, adminkey, True)
				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 = "paypal_log.csv"
	If len(records) > 10 then
		writeFile logPATH & downFile, "Payment Date,Status,Payment Status,Transaction ID,Amount,Email,User ID,First Name,Last Name, IP,Merchant,Note"
		appendFile logPATH & downFile, records
	Else: Response.Redirect "admin_paylog.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
%>