<% Stato = Request.Form("stato") ID = Request.Form("uid") cognome = Request.Form("cognome") nome = Request.Form("nome") qualifica = Request.Form("qualifica") ciclo = Request.Form("ciclo") istituzione = Request.Form("istituzione") indirizzo = Request.Form("indirizzo") tel = Request.Form("tel") fax = Request.Form("fax") postael = Request.Form("postael") camera = Request.Form("camera") dividere = Request.Form("dividere") accompagnatori = Request.Form("accompagnatori") richieste = Request.Form("richieste") %> <% Session.timeout = 1 If IsObject(Session("iscrizioni_conn")) Then Set conn = Session("iscrizioni_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "iscrizioni","","" Set Session("iscrizioni_conn") = conn End If %> <% If Stato = "" Then SQL="INSERT INTO iscrizioni (Cognome, Nome, Qualifica, Ciclo, istituzione, Indirizzo,Tel,Fax,Postael,Camera,Dividere,Accompagnatori,Richieste) VALUES (" SQL=SQL & "'" & cognome & "', " SQL=SQL & "'" & nome & "', " SQL=SQL & "'" & qualifica & "', " SQL=SQL & "'" & ciclo & "', " SQL=SQL & "'" & istituzione & "', " SQL=SQL & "'" & indirizzo & "', " SQL=SQL & "'" & tel & "', " SQL=SQL & "'" & fax & "', " SQL=SQL & "'" & postael & "', " SQL=SQL & "'" & camera & "', " SQL=SQL & "'" & dividere & "', " SQL=SQL & "'" & accompagnatori & "', " SQL=SQL &"'"& richieste &"'"& ")" 'response.write(SQL) conn.execute(SQL) conn.close SQL="SELECT * FROM iscrizioni WHERE Cognome = '" & cognome&"'" set conn = server.createobject("ADODB.Connection") conn.open "iscrizioni" set iscr=conn.execute(SQL) do while not iscr.eof ID = iscr(0) cognome =iscr(1) nome = iscr(2) qualifica = iscr(3) ciclo = iscr(4) istituzione = iscr(5) indirizzo = iscr(6) tel = iscr(7) fax = iscr(8) postael = iscr(9) camera = iscr(10) dividere = iscr(11) accompagnatori = iscr(12) richieste = iscr(13) iscr.movenext loop conn.close End If If Stato = "Aggiorna" Then SQL="UPDATE iscrizioni SET " SQL=SQL& "Cognome = '" & cognome & "', " SQL=SQL& "Nome = '" & nome & "', " SQL=SQL& "Qualifica = '" & qualifica & "', " SQL=SQL& "Ciclo = '" & ciclo & "', " SQL=SQL& "Istituzione = '" & istituzione & "', " SQL=SQL& "Indirizzo = '" & indirizzo & "', " SQL=SQL& "Tel = '" & tel & "', " SQL=SQL& "Fax = '" & fax & "', " SQL=SQL& "Postael = '" & postael & "', " SQL=SQL& "Camera = '" & camera & "', " SQL=SQL& "Dividere = '" & dividere & "', " SQL=SQL& "Accompagnatori = '" & accompagnatori & "', " SQL=SQL& "Richieste = '" & richieste & "' WHERE ID = "&ID set conn = server.createobject("ADODB.Connection") conn.open "iscrizioni" conn.execute(SQL) conn.close SQL="SELECT * FROM iscrizioni WHERE ID = "&ID set conn = server.createobject("ADODB.Connection") conn.open "iscrizioni" set iscr=conn.execute(SQL) ID = iscr(0) cognome =iscr(1) nome = iscr(2) qualifica = iscr(3) ciclo = iscr(4) istituzione = iscr(5) indirizzo = iscr(6) tel = iscr(7) fax = iscr(8) postael = iscr(9) camera = iscr(10) dividere = iscr(11) accompagnatori = iscr(12) richieste = iscr(13) conn.close End If %>

Cognome Nome
Qualifica Ciclo di dottorato:
Istituzione
Indirizzo
Tel FAX
Posta Elettronica
Sistemazione > singola >doppia
Vorrei dividere la camera con
Accompagnatori
Richieste particolari
Se ci sono dati errati, correggeteli e cliccate su Aggiorna altrimenti >cliccate qui per confermare che i dati sono corretti.