@IT会議室は、ITエンジニアに特化した質問・回答コミュニティ「QA@IT」に生まれ変わりました。ぜひご利用ください。
- PR -

ASPでのSelect結果をcsvにダウンロード

1
投稿者投稿内容
Eternity
会議室デビュー日: 2008/06/23
投稿数: 6
投稿日時: 2008-06-24 13:04
下記のように書いてみましたが、”HTTP ヘッダーはすでにクライアントのブラウザに書き込まれています。HTTP ヘッダーの修正はページ内容を書き込む前に行われなければなりません。”とエラーになってしまいます。
どこにどのように下記のラインを書き込めばよいのかわかりません。

Response.ContentType="application/octet-stream"
Response.AddHeader "Content-Disposition","attachment; filename=test.csv"

素人でもうしわけありませんがどなたか助けて頂けないでしょうか。




<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%scriptlanguage = vbscript%>

<HTML>
<HEAD>

<TITLE>CSV Download</TITLE>

<HEAD>

<body>
<H2 align="center">パフォーマンス件数確認(Start&EndDateをyyyy/mm/ddで入力)</H2>
<DIV align="left">
<FORM method="POST">Start Date <INPUT size="10" type="text" name="StartDate" ><BR>
<FORM method="POST">End Date <INPUT size="10" type="text" name="EndDate" ><INPUT type="submit" name="sarch" value="検索">
</FORM>
</DIV>

<table border="border">

<%

Response.ContentType="application/octet-stream"
Response.AddHeader "Content-Disposition","attachment; filename=test.csv"

i = 1
set Conn = nothing
Set Conn = Server.CreateObject("ADODB.Connection")
set rs = nothing
Set rs = Server.CreateObject("ADODB.Connection")
call conn.Open("PROVIDER=SQLOLEDB;DATA SOURCE=;DATABASE=;UID=;PWD=;")


StartDate = request.form("StartDate")
EndDate = request.form("EndDate")

if StartDate <> "" then

sql="select sd.name, sum(day1) + sum(day2) + sum(day3) + sum(day4) + sum(day5) + sum(day6) + sum(day7) from tblbooking b, tblsitedetails sd "
sql= sql & " where b.sitecode = sd.sitecode "
sql= sql & " and Date >= ' " & StartDate & "' "
sql= sql & " and Date <= ' " & EndDate & "' "
sql= sql & " and filmcode not in ( select filmcode from tblfilms where name like '#%') "
sql= sql & " group by sd.name "

Set rs = Conn.Execute(sql)

do until rs.eof

response.write i & ","
response.write rs.Fields(0) & ","
response.write rs.Fields(1)
response.Write "<BR>"
response.write Chr(13) & Chr(10)
rs.movenext

i = i + 1

loop

rs.Close
end if

conn.Close

response.end()

%>

</table>
</BODY></HTML>


burton999
ぬし
会議室デビュー日: 2003/10/06
投稿数: 898
お住まい・勤務地: 東京
投稿日時: 2008-06-24 13:09
ナゼに新しいスレッドを?

CSVへの出力のしかた - Insider.NET
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=45323&forum=7
1

スキルアップ/キャリアアップ(JOB@IT)