Giorno a tutti. Non riesco a venirne fuori xche sto affrontando una cosa, semplice per gli esperti ma che io non ho mai fatto. In breve:
ho un form dove stampo vari record (libro, titolo, autore, ecc) dal db, alla fine di ogni riga ci sono 2 checkbox nuovo e usato (l'utente può anche selezionarle entrambe o nn selezionarle affatto). Nella stessa pagina mi devo aggiornare il risultato della selezione del cliente andando anche ad aggiornare i relativi campi si/no nel db, tab ordini.
Questo il codice che ho scritto fin'ora.
...
All'inizio della pagina con il form:
If Request.querystring("stato")="aggiorna" Then
aggiorna
End If
...
Form:
<form method="POST" action="ordina.asp?stato=aggiorna">
...
Per ogni riga di dati che stampo, alla fine ci sono i seguenti check:
<% If RS_Ord("Nuovo")=True Then %>
<td width="33" align="center" valign="top">
<% OrdNuovo = RS_Ord("Nuovo") %>
<input type="checkbox" name="<%=OrdNuovo%>" value="On" checked>
</td>
<% Else %>
<td width="33" align="center" valign="top">
<%OrdNuovo=RS_Ord("Nuovo")%>
<input type="checkbox" name="<%=OrdNuovo%>" value="On">
</td>
<% End If %>
<% If RS_Ord("Usato")=True Then %>
<td width="33" align="center" valign="top">
<% OrdUsato = RS_Ord("Usato") %>
<input type="checkbox" name="<%=OrdUsato%>" value="On" checked>
</td>
<% Else %>
<td width="33" align="center" valign="top">
<% OrdUsato = RS_Ord("Usato") %>
<input type="checkbox" name="<%=OrdUsato%>" value="On">
</td>
<% End If %>
Poi chiudo tutto quello che devo chiudere e poi:
Sub Aggiorna
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)}; dbq="& Server.MapPath("bombastic.mdb")
If Request(OrdNuovo)="" Then
OrdNuovo = 0
else
OrdNuovo= 1
end if
If Request(OrdUsato)="" Then
OrdUsato = 0
else
OrdUsato= 1
end if
strAgg = "UPDATE Ordini SET Nuovo = " & OrdNuovo & ", Usato = " & OrdUsato & " WHERE NumOrdine = " & Session("iNumOrd")
Set RS_Ord = Server.CreateObject("ADODB.Recordset")
RS_Ord.Open strAgg, ObjConn, adOpenDynamic, adLockPessimistic
RS_Ord.MoveNext
RS_Ord.Close
Set RS_Ord = Nothing
objConn.Close
Set objConn = Nothing
Response.redirect ("Utente.asp")
End Sub
%>

Sicuramente manca qualcosa o sbaglio qualcosa... non funziona.
Spero che qualcuno possa aiutarmi.
Grazie,
Elisa

No, non sono vuoti... cmq, rismontando il codice e anallizzando pezzo per pezzo, con dei lievi cambiamenti è andata!
Grazie! :-)
Elisa

Corretto neonet, anche io non uso i campi sì/no, uso invece campi di tipo BIT che assumono valore 0 o -1.