Salve a tutti ho un problema, qualcuno mi potrebbe aiutare? mi sono bloccato da settimane :-(

Ho una pagina (rma.asp) con un form il quale viene compilato, stampato a video ed inviato al database...in un'altra pagina (reg_rma.asp - back office)...mi vengono riportati tutti i dati inseriti nel form precedente, in piu' ho aggiunto alla pagina dei campi che servono a me...e cioè (caselle combinate e check control)...faccio un esempio:

l'utente compila il form "RMA"...con i campi descritti (codice,quantità,descrizione,difetto) ed invia al db..poi io apro la pagina "reg_rma.asp" (back office) e visualizzo tutti i dati restituiti, dopo un accurato test di laboratorio scelgo il tipo di difetto riscontrato...quindi apro il menu a tendina della casella combinata e scelgo il difetto...ci sono almeno 50 tipologie di difetto...il mio problema è che per ogni difetto devo associare un valore: RM( restituzione merce) SM (sostituzione merce) NC (notacredito)...ovviamente sono dati che interessano a me..non visibili dall'utente.
Mi spiego meglio:quando scelgo una voce dal menu della casella combinata...mi deve subito chekkare rm o sm a seconda del difetto.

non so se mi sono spiegato bene....mi potete aiutare?

questo è il link http://www.ettorino.it/reg_rma_sea.asp

Vi posto il codice della pagina reg_rma_sea.asp
<%
Dim conn
set conn=Server.CreateObject("adodb.connection")
conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/db/db.mdb")

Dim rs
set rs=Server.CreateObject("adodb.recordset")
rs.open "select datarichiesta,ragionesociale,indirizzo,colli,email,vettore,corriere,corriere2,fatture,commenti,partitaiva,telefono,fax,descrizione,descrizione2,descrizione3,quantita,quantita2,quantita3,codice,codice2,codice3,difetto,difetto2,difetto3,consuno,consdue from rma",conn
'Do while NOT RS.EOF
Dim id,datarichiesta,ragionesociale,indirizzo,colli,email,vettore,corriere,corriere2,fatture,commenti,partitaiva,telefono,fax,descrizione,descrizione2,descrizione3,quantita,quantita2,quantita3,codice,codice2,codice3,difetto,difetto2,difetto3,consuno,consdue

datarichiesta=rs("datarichiesta")
ragionesociale=rs("ragionesociale")
indirizzo=rs("indirizzo")
telefono=rs("telefono")
fax=rs("fax")
email=rs("email")
fatture=rs("fatture")
partitaiva=rs("partitaiva")
colli=rs("colli")
vettore=rs("vettore")
corriere=rs("corriere")
corriere2=rs("corriere2")
commenti=rs("commenti")
quantita=rs("quantita")
quantita2=rs("quantita2")
quantita3=rs("quantita3")
codice=rs("codice")
codice2=rs("codice2")
codice3=rs("codice3")
descrizione=rs("descrizione")
descrizione2=rs("descrizione2")
descrizione3=rs("descrizione3")
difetto=rs("difetto")
difetto2=rs("difetto2")
difetto3=rs("difetto3")
consuno=rs("consuno")
consdue=rs("consdue")
%>
'*****************TABELLE***********
<%response.write(quantita)%>
<%response.write(codice)%>
<%response.write(descrizione)%>
<%response.write(difetto)%>
'****************TABELLE************
<%
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("/db/db.mdb")
sql = "SELECT * FROM categorie"
set rs = conn.execute(sql)
if not rs.eof then
%>
<select name="difettosea" size="1">
<option value="">seleziona</option>
<%
do until rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("id")%> <%=rs("difetto")%></option>
<%
rs.moveNext
loop
%>
</select
<%
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
'*****************TABELLE***********
<%response.write(quantita2)%>
<%response.write(codice2)%>
<%response.write(descrizione2)%>
<%response.write(difetto2)%>
'*****************TABELLE***********
<%
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("/db/db.mdb")
sql = "SELECT * FROM categorie"
set rs = conn.execute(sql)
if not rs.eof then
%>
<select name="difettosea" size="1">
<option value="">seleziona</option>
<%
do until rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("id")%> <%=rs("difetto")%></option>
<%
rs.moveNext
loop
%>
</select
<%
end if

rs.close
set rs = nothing

conn.close
set conn = nothing
%>
'*****************TABELLE***********
<%response.write(quantita3)%>
<%response.write(codice3)%>
<%response.write(descrizione3)%>
<%response.write(difetto3)%>
'*****************TABELLE***********
<%
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("/db/db.mdb")
'dim valore_rm
sql = "SELECT * FROM categorie"
set rs = conn.execute(sql)
if not rs.eof then
%>
<select name="difettosea" size="1">
<option value="">seleziona</option>
<%
do until rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("id")%> <%=rs("difetto")%></option><%
rs.moveNext
loop
%>
</select
<%
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%></TABLE>
<%
'RS.MoveNext
'Loop
'rs.close
'conn.close
'set rs=nothing
'set conn=nothing
%>