[RISOLTO] aggiorna tabella da select option asp classic

Stato
Chiusa ad ulteriori risposte.

sg2019

Nuovo Utente
17 Apr 2019
18
2
3
SICILIA
www.bronteportal.it
Salve. Ho un problema che spiego: Ho una select option con 2 valori "idoneo" "non idoneo" in base alla quale il programma deve effettuare opzioni diverse. Se è selezionato "idoneo" deve effettuare degli aggiornamento di tabelle ed inserimenti, se è selezionato "non idoneo" deve fare altre procedure. Ho provato con la condizione if else ma stranamente non tiene conto del nome della select option e effettua sempre la prima opzione. al momento non posso inserire il codice provato ma chiedo se forse si deve utilizzare una funzione javascript o jquery? grazie. Più tardi posto il codice.
Felice
 

sg2019

Nuovo Utente
17 Apr 2019
18
2
3
SICILIA
www.bronteportal.it
ciao Paolo. ecco il codice:

Codice:
   <form method="POST"action="addidoneoeg.asp">
<input type="radio" value="IDONEO" onkeypress="return (event.keyCode!=13)"  name="operazione" checked>IDONEO<input type="radio" value="NON IDONEO" name="operazione">NON IDONEO<INPUT TYPE="submit" VALUE="Invia" NAME="B5">
  <INPUT TYPE="reset" VALUE="Annulla" NAME="b6"></TR>
<%
   url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/sg2019.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

ido = Request.form("operazione")
if ido = "IDONEO" then
set recset=Server.CreateObject("ADODB.Recordset")
      CmdSQL="UPDATE [esami guida] SET [esami guida].[note] = 'IDONEO', [esami guida].idoneo = True , [esami guida].documentorilasciato = 'PATENTE GUIDA'  WHERE codice = '" & Request.querystring("codice") &"' "
               set Recset = Conn.Execute(CmdSQL)
Set RecSet = Nothing
elseif ido = "NON IDONEO" then

set recset=Server.CreateObject("ADODB.Recordset")
      CmdSQL="UPDATE [esami guida] SET [esami guida].[note] = 'NON IDONEO', [esami guida].idoneo = False  WHERE codice = '" & Request.querystring("codice") &"' "
               set Recset = Conn.Execute(CmdSQL)
Set RecSet = Nothing
end if
ho provato fino ad ora. credo che non tenga conto proprio della condizione if... boh
grazie
Felice
 
Ultima modifica di un moderatore:

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
550
13
18
Italy
www.riciclarte.info
prendi spunto da questo codice:
Codice:
<form method="POST" action="addidoneoeg.asp">
<input type="radio" name="operazione" value="0" checked>IDONEO<br />
<input type="radio" name="operazione" value="1">NON IDONEO<br />
<INPUT TYPE="submit" VALUE="Invia" NAME="B5"> 
<INPUT TYPE="reset" VALUE="Annulla" NAME="b6">
</form>
<%
   
    ' recupero i dati dai form
    If Request.Form("operazione") = "0" Then
   
        Response.Write("IDONEO")
   
    ElseIf Request.Form("operazione") = "1" Then
   
        Response.Write("NON IDONEO :(")

    End If

%>
Buona serata :)
 

Max 1

Super Moderatore
Membro dello Staff
SUPER MOD
MOD
29 Feb 2012
4.371
338
83
@sg2019
Da regolamento del forum, come tutti noi sei tenuto ad usare il tag
code-gif.6357
quando posti del codice, oppure la funzione codice dalla barra degli strumenti
box-inserisci-2-png-jpg.6358

Inoltre ti prego di leggere attentamente il regolamento generale del forum e quello di sezione dove posti
Grazie
Per questa volta te lo sistemo io ma mi raccomando per il futuro
 

sg2019

Nuovo Utente
17 Apr 2019
18
2
3
SICILIA
www.bronteportal.it
Ciao paolo
allora l'esempio postato funziona. se clicco idoneo vedo scritto idoneo. se clicco non idoneo vedo scritto non idoneo.

Il problema è che io vorrei che il programma facesse delle query in base al risultato IDONEO/NON IDONEO. ti posto il codice
Codice:
    <%
  url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/sg2019.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

If Request.Form("operazione") = "0" Then


set recset=Server.CreateObject("ADODB.Recordset")
      CmdSQL="UPDATE [esami guida] SET [esami guida].[note] = 'IDONEO', [esami guida].idoneo = True , [esami guida].documentorilasciato = 'PATENTE GUIDA'  WHERE codice = '" & Request.querystring("codice") &"' "
               set Recset = Conn.Execute(CmdSQL)
Set RecSet = Nothing

set recsetAEG=Server.CreateObject("ADODB.Recordset")
      sql="INSERT INTO [archivio esami guida] ( idallievo, [data esame], idoneo, [data movimento], [data richiesta], [patente richiesta], [note], documentorilasciato, esterno, codice, esame ) SELECT [esami guida].idallievo, [esami guida].[data esame], [esami guida].idoneo, [esami guida].[data movimento], [esami guida].[Data richiesta], [esami guida].[patente richiesta], [esami guida].note, [esami guida].documentorilasciato, [esami guida].esterno, [esami guida].codice,  'ESAMI PRATICA PATENTE' & ' ' & [ESAMI GUIDA].[PATENTE RICHIESTA] AS esame FROM [esami guida] WHERE ((([esami guida].note)='IDONEO'))"
                  set RecsetAEG = Conn.Execute(sql)

Set RecSetAEG = Nothing

set recsetA=Server.CreateObject("ADODB.Recordset")
      sql="INSERT INTO archivio ( codice, data, esito, tipo ) SELECT [esami guida].codice, [esami guida].[data esame], [esami guida].idoneo, 'ESAMI PRATICA PATENTE' & ' ' & [ESAMI GUIDA].[PATENTE RICHIESTA] AS tipo FROM [esami guida] WHERE ((([esami guida].note)='IDONEO'))"
                  set RecsetA = Conn.Execute(sql)

Set RecSetA = Nothing


set recseti2p=Server.CreateObject("ADODB.Recordset")
      sql="UPDATE allievi INNER JOIN [scadenza patente] ON allievi.codice = [scadenza patente].codice SET allievi.scadenza = [scadenza patente].geta, allievi.categoria = [scadenza patente].[patente richiesta]  WHERE allievi.codice = '" & Request.querystring("codice") &"' "


                  set Recsetip2 = Conn.Execute(sql)

Set RecSetip2 = Nothing
%>
<hr>
<p align="center"><font face="Verdana" size="4" color="#00CC00"><b>Idoneità aggiunta con successo!</b></font></p>
<hr>
<p><a  onclick="if(window.opener)window.opener.location.href='esamiguida.asp';self.close();"
><font face="Verdana" size="2"><b>Clicca per chiudere la maschera</b></font></a></p>
<%


ElseIf Request.Form("operazione") = "1" Then


set recset=Server.CreateObject("ADODB.Recordset")
      CmdSQL="UPDATE [esami guida] SET [esami guida].[note] = 'NON IDONEO', [esami guida].idoneo = False  WHERE codice = '" & Request.querystring("codice") &"' "
               set Recset = Conn.Execute(CmdSQL)
Set RecSet = Nothing


set recsetA=Server.CreateObject("ADODB.Recordset")
      sql="INSERT INTO archivio ( codice, data, esito, tipo ) SELECT [esami guida].codice, [esami guida].[data esame], [esami guida].idoneo, 'NON IDONEO ESAMI PRATICA PATENTE' & ' ' & [ESAMI GUIDA].[PATENTE RICHIESTA] AS tipo FROM [esami guida] WHERE ((([esami guida].note)='NON IDONEO'))"
                  set RecsetA = Conn.Execute(sql)

Set RecSetA = Nothing %>

<hr>
<p align="center"><font face="Verdana" size="4" color="#ff0000"><b>Idoneità non aggiunta!</b></font></p>
<hr>
<p><a  onclick="if(window.opener)window.opener.location.href='menu.asp';self.close();"
><font face="Verdana" size="2"><b>Clicca per chiudere la maschera</b></font></a></p>
<%

end if

conn.close
%>
 

sg2019

Nuovo Utente
17 Apr 2019
18
2
3
SICILIA
www.bronteportal.it
Ciao paolo. Ho risolto. il problema era che non trovava il il request.querystring("codice") dell'altra pagina . Ho aggiunto tutto il codice nella pagina dove c'e' il form ed è andato tutto bene. grazie paolo. a presto
 
Stato
Chiusa ad ulteriori risposte.
Discussioni simili
Autore Titolo Forum Risposte Data
L (risolto) MySQL 0
B getElementById su piu id(Risolto) Javascript 6
L Esercitarsi con Js [RISOLTO] Javascript 4
C [RISOLTO]Inserimento variabile php in input html PHP 20
L risolto visualizzazione e ordinamento dati PHP 1
moustache [RISOLTO] SQL PHP IIS PHP 8
Sergio Unia Ricezione email con destinatari multipli [Risolto] PHP 2
L update tabelle in php mysql [risolto] PHP 6
M Semplice visualizzatore di immagini [risolto con plugin wp] PHP 7
L [RISOLTO] Stampa a video risultato count in html PHP 13
L [RISOLTO] Eliminare una discussione creata PHP 3
tomorc [HTML] Problema con scroll bar (risolto) HTML e CSS 0
A [PHP] Problema query insert [RISOLTO] PHP 14
B [PHP] recuperare IP dei server in load balancing [RISOLTO] PHP 3
K [RISOLTO] Problema Griglia Php+Mysql PHP 13
elpirata [RISOLTO][Javascript] Datapicker e autocompletamento campo input Javascript 2
elpirata [RISOLTO][Mysql] Problema insert valori apostrofati MySQL 1
elpirata [RISOLTO][Mysql] Contare le occorrenze in un campo tipo varchar MySQL 2
G [MS Access] Gestione biglietti [RISOLTO] MS Access 2
G [MS Access] Casella combinata & Query [RISOLTO] MS Access 4
G [MS Access] Query mese corrente con conteggio [RISOLTO] MS Access 2
M [RISOLTO]Windows media player non mi funziona più su win 10 pro 64 bit Windows e Software 2
C [RISOLTO][PHP] Errore di sintassi PHP 8
IT9-Gpp [RISOLTO] Leggere variabile restituita da success Ajax 3
Kolop [RISOLTO][PHP] Problema Pagination PHP 2
C [RISOLTO][PHP] Funzione ONclick PHP 14
C [RISOLTO][PHP] Conteggio righe di una tabella PHP 4
N [PHP] Utilizzo variabili di sessione [Risolto] PHP 13
Tommy03 [RISOLTO][PHP] Webserver o devserver? PHP 2
Sergio Unia Recupero dati da una vecchia versione MySql [Risolto] MySQL 4
spider81man [PHP] Problemi cancellazione dato su DB [RISOLTO] PHP 1
A [RISOLTO]Inserimento Immagini da pc a MySql PHP 15
A [PHP] RISOLTO Invio Mail con Tabella PHP 2
felino Risolto - [Wordpress][WooCommerce] PayPal Checkout e campi di fatturazione WordPress 2
elpirata [PHP][RISOLTO] Sommare gli importi estratti da un ciclo while PHP 3
elpirata [PHP][RISOLTO] Effettuare la somma dei tempi di lavorazione PHP 3
elpirata [PHP] [RISOLTO]Sovrascrivere testo in una tabella PHP 2
A [RISOLTO]Recuperare dati inviati con json tramite php PHP 4
C [RISOLTO][PHP] Passaggio variabili senza refresh di pagina PHP 7
elpirata [PHP][RISOLTO] Errore di tipo Notice: Undefined index - Come risolvere quando si hanno tante var PHP 10
S Problema in PHP per invio file XML - RISOLTO- PHP 8
A [Javascript] [RISOLTO] Doppio "submit", in uno stesso "Form" , che puntino ad "action" diversi Javascript 1
marino51 [Risolto]videochat di messenger ha smesso di funzionare sul telefonino Smartphone e tablet 1
A [Javascript] [HTML] RISOLTO...Allungare un box all'apertura della pagina No Mouse over Javascript 9
ken_korn [Javascript][Risolto] browser.tab.Tabs.favIconUrl non funziona Javascript 5
A [RISOLTO] HighChart e PHP PHP 4
A [RISOLTO] PHP Selezionare tutti i file con stessa estensione PHP 2
A [RISOLTO] Table elaborata da codice PHP con dati da DB non visualizzata in IFRAME PHP 15
T [Photoshop] Problema creazione pennello personalizzato [RISOLTO] Photoshop 3
Zea [PHP] RISOLTO - creare link con il risultato dell'interrogazione db PHP 1

Discussioni simili