掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DO...Loopで作ったラジオボタンの値を取得するには? (ID:119431)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
今、データベースから条件に合ったデータ全てをラジオボタン付きで表示させ、その後ラジオボタンが選択されているデータを表示させるというプログラムを作っているのですが、ラジオボタンの値をうまく取得できません。 何かいい方法はないでしょうか? 一応データベースを検索する所まではできているので、ソースを記載します。 <%@LANGUAGE="VBScript"%> <% '***** 使用オブジェクト宣言 ***** Dim Objcon Dim ObjRS '***** 使用変数名宣言 ***** Dim K_No,K_name,K_date Dim sql,sqlhantei,andhantei '***** データベース接続 ***** 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 %> <html> <head> <title>条件検索</title> </head> <body> <p><b><font size="5">条件検索</font></b></p> <form method="post" name=form1 > <hr> <p><b>入力番号 <input name="K_No"></b></p> <p><b>日付 <input name="K_date" ></b></p> <p><b>名前 <input name="K_name" size="59"></b></p> <table border="1" width="100%"> <tr> <td width="5%" bgcolor="#ccffff"></td> <td width="5%" bgcolor="#ccffff"><font size="2">入力番号</font></td> <td width="8%" bgcolor="#ccffff"><font size="2">日付</font></td> <td width="6%" bgcolor="#ccffff"><font size="2">名前</font></td> </tr> </table> <P><INPUT type=submit value=データ検索 name=Reference></P> <P><INPUT type=reset value=クリア></P> <p><input type=submit value="表示する" name="Indication"></p> <% '***** 検索開始 ***** If Request.Form("Reference") = "データ検索" Then '***** フォームからデータを受け取る ***** K_No = Request.Form("K_No") K_date= Request.Form("K_date") K_name = Request.Form("K_name") sqlhantei=0 andhantei=0 '***** DBからデータを検索する ***** 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ObjRS.Open sql,Objcon,3 %> 該当データ数 <%=objRS.RecordCount%><br> <% '***** 検索されたデータの表示 ***** Do Until ObjRS.EOF %> <table border="5" width="100%"> <tr> <td width="5%"> <% Response.Write"<input type=""radio"" value="""& ObjRS("no")&""" name=""Check"">" %> </td> <td width="5%"><%=ObjRS("no")%></td> <td width="8%"><%=ObjRS("date")%></FONT></td> <td width="6%"><%=ObjRS("name")%></FONT></td> </tr> </table> <% ObjRS.MoveNext LOOP End If %> </form></B> </body> </html> <% '***** データベース接続切断&オブジェクト終了 ***** 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 %>
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.