update solo campo modificato

[nextart]

ciao a tutti l asituaiozne e' questa:
- db access
- tabella photo con campo testo foto,desc,day
- ho tre foto inserite nel db

se nel campo day c'e' "1" allora visualizzi la foto.
gestisco cosi' la visualizzazione della foto del giorno.
fin qui tutto ok.

in GESTIONE visualizzo il contenuto del db e do' la possibilità all'utente di modificare il valore del campo "day" da 0 a 1 e viceversa.
cliccando sul tasto aggiorna dovrebbe scrivermi il nuovo valore nel db di tutti i campi.

attiva=Trim(Request.Form("attiva"))
attiva=Replace(attiva, "'", "''" ) 
dim strSQL 
strSQL="UPDATE photo SET day='"&attiva&"'"  
conn.Execute(strSQL)

cosi' pero' mi scrive nel db il primo valore del campo day in tutti gli altri, cosi' se ho "0" scrive "0" in tutti i campi, se ho "1" scrive "1" in tutti i campi

come devo modificare il codice per mantenere il valore dei campi non modificati e aggiornare solo quello modificato?

grazie a tutti...........

ciao......

[Mems]

Dovresti aggiungere un campo di nome IDFoto e di tipo contatore.
Il campo di tipo contatore si incrementa da solo ad ogni inserimento partendo da 1.
In questo modo ogni record ha il suo campo identificativo, ovvero, il campo IDFoto.
Per aggiornare un determinato record basta fare riferimento al valore IDFoto del record in questione.

[nextart]

forse non mi sono spiegato bene io....
i campi della tabella "photo" sono:
id --- contatore
foto --- testo
desc --- testo
day --- testo



nel pannello di controllo ho questo:

l'1 nel campo day indica che quella foto e' mostrata nella sezione foto del giorno.
Da questo pannello l'utente puo' cambiare la foto da visuaizzare mettendo 0 dove c'e' 1 e 1 alla foto che vuole visualizzare quindi avro':


COME DIRGLI SCRIVI I NUOVI VALORI IN TUTTI I CAMPI CLICCANDO SUL TASTO AGGIORNA?

GRAZIE

[Mems]

Allora, il campo dove inserisci il valore 0 oppure 1 deve avere come name
id_5 (per il record con id = 5), id_33 per il record con id = 33), etc.
Al submit fai post verso la pagina che dovrebbe aggiornare il db dove:

<%
set conn = server.createObject("ADODB.Connection")
conn.open connString
for each item in request.form
  if left(item,3) = "id_" then
    tmpID = replace(item,"id_","")
      if isNumeric(tmpID) then
        tmpValue = request.form(item)
        conn.execute("UPDATE [photo] SET [day] = '" & tmpValue & "' WHERE [id] = " & tmpID)
      end if
  end if
next
conn.close
set conn = nothing
%>

[nextart]

perfetto..grazie.....