Salve a tutti, qualcuno mi potrebbe aiutare? mi sono bloccato da giorni e non riesco proprio ad andare avanti :-(
Ho una pagina (rma.asp) con un classico form il quale viene compilato, stampato a video ed inviato al database, poi in un'altra pagina (reg_rma.asp - lato back office) mi riporto tutti i dati inseriti nel form precedente, in piu' ho aggiunto alla pagina dei campi che servono a me...e cioè (la casella combinata che viene popolata dal db e la check control).
faccio un esempio: l'utente compila il form "rma.asp" con i campi descritti (codice,quantità,descrizione,difetto) ed invia al db, poi apro la pagina "reg_rma.asp" (lato back office) e mi visualizzo tutti i dati restituiti, poi dopo aver accertato realmente lo stato del prodotto, apro il menu a tendina della casella combinata, e scelgo il difetto riscontrato. (Ci sono almeno 50 tipologie di difetto nella casella combinata) il mio problema è che per ogni difetto devo associare un valore: RM( restituzione merce) o SM (sostituzione merce) ovviamente questi 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 della scelta del difetto senza inviare piu' nessun tipo di dato...diciamo che dovrebbe funzionare un po' come l'ajax...la pagina resta ferma ma si agisce solo sulla casella combinata....ma non lo so fare :-(
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,parti taiva,telefono,fax,descrizione,descrizione2,descri zione3,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,em ail,vettore,corriere,corriere2,fatture,commenti,pa rtitaiva,telefono,fax,descrizione,descrizione2,des crizione3,quantita,quantita2,quantita3,codice,codi ce2,codice3,difetto,difetto2,difetto3,consuno,cons due
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
%>
Rispondi quotando
