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 83
codice:
<%
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>