出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[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
　　　　　：
　　　　　：


複数リストボックスの表示について 　 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]

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