problema con query string

[hugheshi]

ho un problema di questo tipo :
estraggo dei dati e creo un recordset
all'interno di questo voglio selzionarne alcuni (recordset rs1)
per postarli ad un altra pagina
nell'altra pagina arriva tutto tranne il valore della selct "edizioni"

<%
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="pre_iscrizione.asp" >
  <%
	
	if rs.eof then
%>
  
Nessun Dato disponibile
  <%
	else
	
%>
  



    <%
	while not rs.EOF
	%>
    
    <tr> 
      <%=Trim(rs.fields("corso"))%>
<%=rs.fields("ruolo")%>
<%=rs.fields("anzianita")%>
<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>
        
      ">iscriviti
    <%
	rs.MoveNext
	wend
	%>
    
  

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


%>

[Sypher]

magari la select non trova risultati

[sepa]

Ma accedi alla pagina successiva dal link: ">iscriviti
?
Se è così i dati della select non arrivano perchè quelli, contenuti in un form, dovresti inviarli con il submit del form e poi nella pagina successiva recuperarli con Request.Form("edizioni").

Per il submi del form insersci un pulsante del genere prima di chiudere il tag form:
<input type="submit" name="btnInvia" value="Invia">

Prova un pò così ... ciao

[hugheshi]

grazie ma avevo già provato , tieni presente che i record che estraggo sono variabili se metto il submit alla fine il cliente potrebbe sezionare più corsi e invece io vorrei che ne selezionasse uno solo.

[sepa]

Ma il cliente lo può selezionare il corso (o l'edizione)?
Perchè cmq in questo caso la select, se non metti l'attributo multiple, ti permette di selezionarne uno solo.

Nel caso in cui il corso non può selezionarlo e sei tu a doverglielo passare, (anche se onestamente ignoro il motivo di una simile cosa :master: ) puoi aggiungerlo al link.

Dimmi se ho capito il problema oppure mi sono perso qualcosa ...
(probabilmente il cervello)

[hugheshi]

il cliente vede una lista di corsi e per ognuno di questi
ha una selezione di edizioni .

vorrei che : scelga una edizione (una data) per un solo corso e poi
posti i dati ad un altra pagina.

se vuoi ti posto il codice

[hugheshi]

ecco il codice

cat2 = request.form("categ")
uoat = request.form("uoat")
'prendo i dati da una pagina precedente 

'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="vediamo.asp" >
  <%
	
	if rs.eof then
%>
  


Nessun Dato disponibile></p>
  <%
	else
	
%>
<td width="40%" >Corso</td>
< td width="50%">Ruolo</td>
<td width="10%" >Anzianita</td>
<td width="10%">Edizione</td>
<td width="10%">Sel</td>
</tr>
    <%
	while not rs.EOF
    %>
    
    <tr> 
      <td><%=rs.fields("corso")%></td>
      <td><%=rs.fields("ruolo")%></td>
      <td><%=rs.fields("anzianita")%></td>
      <td>
	<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 
%>
          
        </select>
        &ruolo=<%=rs.fields("ruolo")%>&anzianita=<%=rs.fields("anzianita")%>&edizioni=<%=rs1.fields("edizioni")%>">iscriviti</td> 
    </tr>
    <%
	rs.MoveNext
	wend
	%>
       <tr> 
      <td><input type="submit" name="Submit" value="Invia">
       </td>
    </tr>
    </table>	

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


%>

[sepa]

Se ho capito il tuo problema (se no vorrà dire che sono ad averne ) prova un pò con il codice che ti posto.
Le aggiunte e/o modifiche sono quelle in grassetto.

<%
cat2 = request.form("categ")
uoat = request.form("uoat")
'prendo i dati da una pagina precedente

'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

if rs.eof then
%>



Nessun Dato disponibile></p>

<%
else

%>

<td width="40%" >Corso</td>
<td width="50%">Ruolo</td>
<td width="10%" >Anzianita</td>
<td width="10%">Edizione</td>
<td width="10%">Sel</td>
</tr>

<%
Dim x 'Varibile di incremento per differenziare il nome del form
x = 0

while not rs.EOF
%>

<form name="<% ="form_" & x %>" method="post" action="vediamo.asp"> 'Creo un form in dinamico con un nome diverso ad ogni ciclo
<input type="hidden" name="txtCorso" value="<% =rs.fields("corso") %>"> 'casella hidden per memorizzare il corso
<input type="hidden" name="txtRuolo" value="<% =rs.fields("ruolo") %>"> 'casella hidden per memorizzare il ruolo
<input type="hidden" name="txtAnzianita" value="<% =rs.fields("anzianita") %>"> 'casella hidden per memorizzare l'anzianità

<tr>
<td><%=rs.fields("corso")%></td>
<td><%=rs.fields("ruolo")%></td>
<td><%=rs.fields("anzianita")%></td>
<td>
<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
%>

</select>
').submit()">iscriviti 'per ogni riga hai il link che invia il singolo form di riferimento, quindi anche se l'utente sceglie tutti i corsi invia solo le info del corso dove ha fatto click
</td>
</tr>
</form>
<%
x = x + 1 'Incremento x per il ciclo successivo
rs.MoveNext
wend
%>
<tr>
<td><input type="submit" name="Submit" value="Invia">

</td>
</tr>
</table>


<%
end if
rs.close
rs1.close

set rs=nothing

objConn.close
set objConn=nothing
%>

Poi successivamente nella pagina vediamo.asp ovviamente ti recuperi i valori dalle caselle di testo e dalla select.

Spero di averci azzeccato
Ciao e fammi sapere se è andata ...

[hugheshi]

grazie 1000
adesso provo e poi ti faccio sapere !!!