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>
<%
'*****  データベース接続切断＆オブジェクト終了  *****
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
%>

←解決時は質問者本人がここをチェックしてください。

戻る