出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[1642] 日付形式の処理方法
投稿者：Brownさん 2002/02/14 7:51:17
ASPを使い始めたばかりなので解らないことばかりです。
どなたかアドバイスいただけないでしょうか？

ASPで作成したWeb上の表をExcelで保存するために
参考書をもとに9から14行目と39から44行目の部分を追加して以下のコードを作成しました。

この状態でテーブルは表示するのですが「Excelファイルとして保存」ボタンを押すと

16行目で型が一致しません。: 'CDate'とエラーになります。

16、17行目は日付処理をしているのですが書き方に自信がありません。
この部分はどのように修正すればよいでしょうか？
また下記のコードで他にも間違った部分があれば教えてください。
なにぶん参考書をもとに作成したのでつぎはぎだらけですが
どなたかアドバイスいただけないでしょうか？

1：<% @LANGUAGE="VBScript" %>
2：<% Response.Buffer=TRUE
3：Set DBConnect = Server.CreateObject("ADODB.Connection")
4：DBConnect.Open "kensaku","",""
5： %>

6：<HTML>
7：<HEAD><TITLE>テーブル表示</TITLE></HEAD>
8：<BODY>

9：<% act = Request.Form("act")
10：If act = "go" Then
11：Response.ContentType = "application/vnd.ms-excel"
12：Response.AddHeader "Content-Disposition", "filename=test.xls"
13：End If
14： %>

15：<% Dim strWHERE

16：dtmFrom= CDate(Request.Form("from年") & "/" & Request.Form("from月") & "/1")
17：dtmto= DateAdd("m",1,CDate(Request.Form("to年") & "/" & Request.Form("to月") & "/1"))-1

18：strWHERE="WHERE [生産月] Between #" & dtmFrom & "# and #" & dtmTo & "#"
19：SQL="SELECT * FROM Qry_CFData " & strWHERE & _
20："ORDER BY 生産機台 ASC, 生産月 DESC ;"
21：Set RS = Server.CreateObject("ADODB.Recordset")
22：RS.Open SQL, DBConnect, 1 ,1
23： %>

24： <% If RS.RecordCount = 0 Then %>
25：検索条件に該当するデータはありません。

26：<% Else %>
27：検索結果
28：<TABLE>
29：<TR><TH>機台</TH></TR>
30：<% DO WHILE NOT RS.EOF %>
31：<TR><TD><% Response.Write RS("生産機台") %></TD></TR>
32：<%
33：RS.MoveNext
34：LOOP
35：RS.Close
36：%>
37：</TABLE>
38：<% End If %>

39：<% If act <> "go" Then %>
40：<Form method="POST" action="cf_find2.asp">
41：<input type="hidden" name="act" value="go">
42：<input type="submit" name="sub" value="Excelファイル保存">
43：</Form>
44：<% End If %>
45：</BODY>
46：</HTML>
日付形式の処理方法 　 Brownさん [2002/02/14 7:51:17] [1642]
　 Re:日付形式の処理方法 　 喜平さん [2002/02/14 8:05:42] [1643]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ