<% Param = Request.QueryString("Param") Data = Request.QueryString("Data") %> <% 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 %> <% 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") 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 response.write("nuovo record di iscrizione aggiunto al database") %>