problema:estraggo dei dati e li riporto in una form(form1)
per ogni record ho una select e un radio

riesco a postare in una pagina successiva i dati
ma senza controllo
ecco la pagina
codice:
<%@ language = vbscript%>
<html>
<head>
<title>mail</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<script language="JavaScript">
function controlla(radio)
  {
  var n=0;
  var cc = document.form1.radio;
  for(var i=0; i<cc.length; i++) {
    if(cc[i].checked) { n++; break; }
  }
  if(n>0) {
    alert("devi selezionare almeno un radio");
    return false;
  } else {
   return true;
  }
 }
</script>



<body bgproperties="fixed">
<%
Response.Write "
 Benvenuto : " & Session("UserName") & " [/b]."
Response.Write "
Il codice  è  " & Session("Clearance") & "."
if Request.ServerVariables("HTTP_REFERER") <>"" then
response.write "
Torna Indietro</br>"
end if
Response.Write "Uscita"
%>
<%
cat2 = request.form("categ")
uoat = request.form("uoat")

'Stringa per la connessione
'cString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("./area_protetta/mdb/ife.mdb")
cString=Application("CNN")
'set connession to database 
Set objConn=Server.CreateObject("ADODB.Connection")

'open connession to database
objConn.Open cstring

'xxxxxxxx presentazione dati xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Set rs = Server.CreateObject("ADODB.Recordset")

nometabella="corsi"  ' inserisci qui il nome della tabella da vedere

sql = "SELECT  * from "&nometabella&" where id_anz="&cat2&" AND id_ruo="&uoat&" AND vis= -1"
'response.write sql:response.end
'apro il rs
rs.Open sql, objConn, 3, 3 'cursore dinamico

%>

<form name="form1" method="post" action="Formprecorso.asp" >
  <%
	
	if rs.eof then
%>
  
<p align="center"><font color="#FF0000" face="Verdana" size="6">Nessun Dato disponibile.</font></p>
  <%
	else
	
%>
  

  <table align="center" width="400" border="1" bordercolor="#ff0000">
    <tr> 
      <td colspan="5" align="center" bgcolor="#FF0000"><font color="#00FFFF" size="3" face="Verdana">ATTENZIONE 
        SELEZIONATE SOLO UN CORSO</font></td>
    </tr>
    <tr> 
      <td width="40%" align="center"><font face="Verdana" size="3" color="#0000FF">Corso</font></td>
      <td width="50%" align="center"><font face="Verdana" size="3" color="#0000FF">Ruolo</font></td>
      <td width="10%" align="CENTER"><font face="Verdana" size="3" color="#0000FF">Anzianita</font></td>
	   <td width="10%" align="CENTER"><font face="Verdana" size="3" color="#0000FF">Edizione</font></td>
      <td width="10%" align="CENTER"><font color="#0000FF" size="3" face="Verdana">Sel</font></td>
    </tr>
    <%
	while not rs.EOF
	%>
    
    <tr> 
      <td align="center"><font face="Verdana" size="3" color="#0000FF"><%=Trim(rs.fields("corso"))%></font></td>
      <td align="center"><font face="Verdana" size="3" color="#0000FF"><%=rs.fields("ruolo")%></font></td>
      <td align="center"><font face="Verdana" size="3" color="#0000FF"><%=rs.fields("anzianita")%></font></td>
	  <td align="center">
        <font face="Verdana, Arial, Helvetica, sans-serif"><font face="Arial, Helvetica, sans-serif">
			<select name="edizioni">
          <option value=""selected>Seleziona</option>
          <%
Set rs1 = Server.CreateObject("ADODB.Recordset")

sql2 = "select * from edizioni where corso = '"& rs.fields("corso") &"' and vis = -1" 

rs1.open sql2, objconn
if not rs1.eof then 
do until rs1.eof 
%>
          <option value="<%=rs1("edizioni")%>"><%= rs1("edizioni")%></option>
          <%
rs1.movenext 
loop
end if 

rs1.close 
%>
          
        </select></font></font>
        </td>
      <td align="center"><font face="Verdana" size="3" color="#0000FF"> 
        <input type="radio" name="radio<%=rs("id")%>" oncheck="controlla('radio')">
        </font></td>
    </tr>
    <%
	rs.MoveNext
	wend
	%>
    
    <tr> 
      <td colspan="5" align="center" bgcolor="#FF0000"><font face="Verdana" size="3" color="#0000FF"> 
              <input type="submit" name="Submit" value="Invia">
        </font></a></font>[/b]</td>
    </tr>
    <tr> 
      <td colspan="5" align="center" bgcolor="#FF0000"><font face="Verdana" size="3" color="#0000FF">Indietro</font></td>
    </tr>
  </table>	

</form>
<%
	end if
	rs.close
	set rs=nothing
	set rs1=nothing
	objConn.close
	set objConn=nothing


%>
</body>
</html>