
<!-- #include file="./include.asp" -->

<%
'<!--
'################################################
' 名称	：CSV出力
' 作成日：2019/10/05
' 作成者：小野
' 目的	：CSVをダウンロードダイアログに出力する
' 概要	：
'################################################
'-->
'
'
%>

<%
main()

Sub main()

	Dim Query
   	Dim Content
   	Dim Content2


	Dim CSVOutput
	CSVOutput = Request("CSVOutput")
	CSVOutput = Replace("" & CSVOutput, "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak", vbCrLf)

	Dim OutMode
	OutMode = Request("OutMode")

	'ファイル名
	Dim FileName
	If Left(OutMode, 10) = "EnshuJokyo" Then
		FileName = "演習状況一覧_" & Right(OutMode, Len(OutMode) - 10) & ".csv"
	ElseIf OutMode = "Taishakutaishohyo" Then
		FileName = "貸借対照表（自動）.csv"
	ElseIf OutMode = "Sonekikeisansho" Then
		FileName = "損益計算書（自動）.csv"
	Else'If OutMode = "Siwakecho" Then
		FileName = "仕訳帳（自動）.csv"
	End If

	'ダウンロードダイアログを開く
	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
%>