<!--#include file="config/config.asp"-->
<!--#include file="language/advertise_language.asp"-->
<!--#include file="libraries.asp"-->
<%
	If session("user_logged_email" & strSUnique) = Empty then Response.Redirect "default.asp"
	bname = Request.Form("B2")
	Set objFile = Server.CreateObject("Scripting.FileSystemObject")
	strSQL = "SELECT * FROM " & tablPfx & "Bannerstat WHERE bname='" & bname & "' ORDER by adate;"
	Set rsbs = objConn.Execute(strSQL)
	If Not rsbs.EOF then
		Do While Not rsbs.EOF
			statDataArray = statDataArray & rsbs(2) & "," & rsbs(3) & "," & rsbs(4) & vbCrLf
			rsbs.MoveNext
		Loop
	End If
	rsbs.close
	logPATH = Server.MapPath(upload) & "\"
	downFile = bname & ".csv"
	If len(statDataArray) > 10 then
		writeFile logPATH & downFile, strText_Date & "," & strText_Impressions & "," & strText_Clicks
		appendFile logPATH & downFile, statDataArray
	Else: Response.Redirect "rotstat.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
%>