problema con checkbox

**hugheshi** · 15-10-2004, 08:54

ciao
dopo avere estratto i dati da una query ho dei checkbox
vorrei far selezionare un solo di questi e poi passare i dati ad una pagina successiva .
non so se questo è il forum giusto .
posto la pagina

codice:

<script>
function controlla(){
.... 
if(c1 == false){
alert('Devi selezionare una opzione!');
}
else if(c2 == FALSE){
alert('Non puoi checkkare più di una opzione!');
}else{
f.action="Formprecorso.asp";
f.submit();
}
}
</script>
<%
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="form" 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="#0000FF" size="3" face="Verdana">SELEZIONA 
        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="edizione">
          <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="checkbox" name="check<%=rs("id")%>">
        </font></td>
    </tr>
    <%
	rs.MoveNext
	wend
	%>
    <tr> 
      <td colspan="5" align="center" bgcolor="#FF0000">[b]<font face="Verdana" size="3" color="#0000FF"> 
        <input type="submit" name="btn" value="Procedi" onClick=controlla();>

**Mich_** · 15-10-2004, 09:52

Non e` facile interpretare il tuo codice. Dovresti postare il codice come arriva al browser, non il sorgente ASP (eventualmente puoi semplificare / togliere parti inutili).

Ma perche` non usi dei radio, se ne deve essere selezionato solo uno?

**hugheshi** · 16-10-2004, 08:38

posto il codice di tutta la pagina :
anche se ho bisogno che nella lista generata dinamicamente
quando viene selezionato il campo :
<input type="checkbox" name="check<%=rs("id")%>">
i dati relativi alla stringa vadano inviati alla pagina successiva .

codice:

<%@ language = vbscript%>

<html>
<head>
<title>mail</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<script>
function controlla(){
f = document.form; 
c1 = (checkbox.checked || f.check_2.checked || f.check_2.checked); 
c2 = 0; 
c2 += (f.check_a.checked)?1:0; 
c2 += (f.check_b.checked)?1:0; 
c2 += (f.check_c.checked)?1:0; 
c2 += (f.check_d.checked)?1:0; 
c2 = (c2<=1); 
if(c1 == false){
alert('Devi selezionare una opzione!');
}
else if(c2 == FALSE){
alert('Non puoi checkkare più di una opzione!');
}else{
f.action="Formprecorso.asp";
f.submit();
}
}
</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="form" 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="#0000FF" size="3" face="Verdana">SELEZIONA 
        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="edizione">
          <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="checkbox" name="check<%=rs("id")%>">
        </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="btn" value="Procedi" onClick=controlla();>
		<input type=button value=vai onClick=controlla();>
        </font></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
	objConn.close
	set objConn=nothing


%>
</body>
</html>

Discussione: problema con checkbox

Strumenti discussione

Ricerca discussione

Visualizza

problema con checkbox

Permessi di invio