DO...Loopで作ったラジオボタンの値を取得するには？

解決

つなまる 2005-02-04 05:05:24 No: 119431

今、データベースから条件に合ったデータ全てをラジオボタン付きで表示させ、その後ラジオボタンが選択されているデータを表示させるというプログラムを作っているのですが、ラジオボタンの値をうまく取得できません。
何かいい方法はないでしょうか？

一応データベースを検索する所まではできているので、ソースを記載します。

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

いな 2005-02-04 19:41:42 No: 119432

これって、、、、ＡＳＰっぽく見えるがＶＢ？

ってのは置いといて、

Document.Form.Check.Value等で値が取得できませんか？

つなまる 2005-02-04 20:48:36 No: 119433

回答ありがとうございます。

> これって、、、、ＡＳＰっぽく見えるがＶＢ？
えっとそうです。VBScriptで書いているんで、ここの方達なら
何か助言を頂けるのでは・・・と思い、書き込んでしまいました。
掲示板の趣旨ではないのに書き込んでしまってすみません。

> Document.Form.Check.Value等
取得できました。
なんかいろいろ変な風に考えてしまって、気付きませんでした・・・。

ありがとうございます。