
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
' 名称	：自動仕訳帳CSV出力
' 作成日：2008/12/22
' 作成者：小野
' 目的	：自動仕訳帳をCSV出力する
' 概要	：
'################################################
'-->
'
'
%>

<%
main()

Sub main()

	Dim Query
   	Dim Content
   	Dim Content2


	Dim CSVOutput
	CSVOutput = Request("CSVOutput")
	CSVOutput = Replace("" & CSVOutput, "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak", vbCrLf)

	'ファイル名
	Dim FileName
	FileName = "仕訳帳（自動）.csv"

	'ダウンロードダイアログを開く
	Response.Expires = 0
	Response.Buffer = TRUE
	Response.Clear
	Response.Charset = "shift_jis"
	Response.ContentType = "application/download; name=" & FileName
	Response.AddHeader "Content-Disposition", "attachment; filename=" & FileName
	Response.AddHeader "Content-Disposition", "inline; filename=" & FileName
	Response.Write CSVOutput
	Response.End

End Sub
%>