Caio a tutti, vorrei creare la possibilità di inserire un nuovo dato nel campo option value se nell'elenco esistente ancora non c'è e farlo comparire subito dopo senza dover ricominciare da capo a compilare il form iniziale; mi spiego meglio con un esempio concreto :
Io inserisco un appuntamento per un certo cliente che estraggo dal campo option value come nel codice seguente :
<form method="POST" action="Inserimento_App_ora.asp">
Data
<input type="text" name="Data">
</p>
Ora
<input type="text" name="Ora">
</p>
Descrizione
<input type="text" name="Descrizione" size="100">
</p>
Cliente
<select name="IDCliente">
<option value="">seleziona</option>
<%Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\....mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT IDCliente,[Cognome e Nome] FROM Anag_Clienti")
if not objRs.eof then
do until objRs.eof
%>
<option value="<%=objRs("IDCliente")%>"><%=objRs("Cognome e Nome")%></option>
<%
objRs.moveNext
loop
%>
</select>
<%
end if
objRs.close
set objRs = nothing
objConn.close
set objConn = nothing
%>
</select>
</p>
<input type="submit" value="Invia" name="x">
</p>
</form>
Se però il cliente ancora non esiste vorrei poterlo inserire, magari con una popup che mi apra il form già esistente con il quale inserisco i nuovi clienti e, appena chiusa questa, far sì che il cliente appena inserito compaia nel campo option value senza dover nuovamente inserire "ora" , "data" e "descrizione".
Chi mi può dare una mano?
Rispondi quotando
