出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
複数リストボックスの表示について 　 ASP覚えたいさん [01/07/11 8:51:56] [400]
　 Re:複数リストボックスの表示について 　 YasNet（管理人）さん [01/07/11 9:40:20] [401]
　 　 Re:複数リストボックスの表示について 　 ASP覚えたいさん [01/07/11 12:16:24] [402]
　 　 　 Re:複数リストボックスの表示について 　 YasNet（管理人）さん [01/07/11 12:36:06] [403]
　 　 　 　 Re:複数リストボックスの表示について 　 ASP覚えたいさん [01/07/11 12:51:48] [404]
[400] 複数リストボックスの表示について
投稿者：ASP覚えたいさん 01/07/11 8:51:56
まだ皆さんのサンプルを参考にコードを組んでいる
全くの初心者です。
リストボックスについて質問があります。

検索条件入力用にリストボックス２つ（産地、果物名）と
送信ボタンを設置したいのですが
1つ目の地域リストボックスは表示されるのですが
2つ目の果物名リストボックスと送信ボタンが表示されません。

どなたかアドバイスいただけないでしょうか？、

<% Response.Buffer=TRUE
Set DBConnect = Server.CreateObject("ADODB.Connection")
DBConnect.Open "kensaku","",""
i = Request("menu")

If i = "" Then
Response.Write("<HTML>")
Response.Write("<BODY>")
Response.Write("送信を押すと，入力されたデータを表示します。")
Response.Write("<FORM ACTION=find1.asp METHOD=POST>")
Response.Write("<INPUT TYPE=HIDDEN NAME=menu VALUE=search>")

Response.Write("<TD>")
Response.Write("<SELECT NAME=産地 SIZE=8 Multiple>")
Set RS = DBConnect.EXECUTE("SELECT * from Tbl_地域リスト")
Do While Not RS.EOF
Response.Write("<option>")
Response.Write RS("産地")
Response.Write("</option>")
RS.MoveNext
Loop
Response Write("</SELECT>")
　　　　　RS.Close
Set RS = Nothing
Response.Write("</TD>")

Response.Write("<TD>")
Response.Write("<SELECT NAME=果物　Size=8 Multiple>")
Set RS = DBConnect.EXECUTE("SELECT * from Tbl_果物名リスト")
Do While Not RS.EOF
Response.Write("<option>")
Response.Write RS("果物")
Response.Write("</option>")
RS.MoveNext
Loop
Response Write("</SELECT>")
　　　　　RS.Close
　　　　　Set RS = Nothing
Response.Write("</TD>")

Response.Write("<BR>")
Response.Write("<TD>")
Response.Write("<INPUT TYPE=SUBMIT VALUE=送信>")
Response.Write("</FORM>")
Response.Write("</BODY>")
Response.Write("</HTML>")

Elseif i = "search" Then
　　　　　：
　　　　　：


[401] Re:複数リストボックスの表示について
投稿者：YasNet（管理人）さん 01/07/11 9:40:20
こんにちは　YasNet　です
　
この場合、出力されたHTMLのソースを確認すると、原因がはっきりすると思いますよ
　
ブラウザに表示された状態で、IEなら右クリックでソースの表示を選択すれば
HTMLが確認できます。
　
きっとこれで原因が発見できるでしょう・・・
結果お待ちしています
　　
では　では
[402] Re:複数リストボックスの表示について
投稿者：ASP覚えたいさん 01/07/11 12:16:24
YasNetさん　レスありがとうございます。
便利な方法教えていただき早速試してみました。
以下のようなコードが表示されたのですが
font size=2 というのがエラーなのでしょうか？
そうであればfont size=2というコードは
aspファイルには見当たりません。

お手数おかけしますが
品といただけますか？
よろしくお願いします。

<HTML>
<BODY>送信を押すと，入力されたデータを表示します。
<FORM ACTION=find1.asp METHOD=POST><INPUT TYPE=HIDDEN NAME=menu VALUE=search>
<TD>
<SELECT NAME=機台名称 SIZE=8 Multiple>
<option>東京</option>
<option>埼玉</option>
<option>千葉</option>
<font size=2>
<p>Microsoft VBScript 実行時エラー
</font>
<font size=2>エラー '800a000d'</font>
<p>
<font size=2>型が一致しません。: 'Write'</font>
<p>
<font size=2>/find1.asp</font><font size=2>, 行 22</font>

[403] Re:複数リストボックスの表示について
投稿者：YasNet（管理人）さん 01/07/11 12:36:06
こんにちは　YasNet　です
　
> font size=2 というのがエラーなのでしょうか？
> そうであればfont size=2というコードは
> aspファイルには見当たりません。
>
> <p>Microsoft VBScript 実行時エラー
> </font>
> <font size=2>エラー '800a000d'</font>
> <p>
> <font size=2>型が一致しません。: 'Write'</font>
> <p>
> <font size=2>/find1.asp</font><font size=2>, 行 22</font>
プログラムの22行目がエラーって事です。
　
では　では
[404] Re:複数リストボックスの表示について
投稿者：ASP覚えたいさん 01/07/11 12:51:48
YasNetさん、ありがとうございます。
22行目がResponse Write("</SELECT>")
となっており、｢.｣が抜けていました｡

自分なりに試行錯誤していこうと思っていますが
今後またお世話になると思いますので
よろしくお願いします。

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