il problema in sintesi : una volta selezionati i corsi (da tabella corsi)
devo estrarre da tabella edizioni tutte le sessioni per quel corso e metterle in una select .
errore :
codice:ADODB.Recordset (0x800A0CC1) Item cannot be found in the collection corresponding to the requested name or ordinal. /ife/area_protetta/news.asp, line 83codice:<% 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&"" '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"><%=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="sessioni"> <option value=""selected>Seleziona</option> <% sql2 = "select * from edizioni where ( corso = '"& corso &"') and vis = -1" 'rs.open sql2, objconn if not rs.eof then do until rs.eof %> <option value="<%=rs("edizioni")%>"><%= rs("edizioni")%></option> <% rs.movenext loop end if rs.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"> </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>

Rispondi quotando