<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/ESAIC.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
On Error Resume Next
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_ESAIC_STRING
    MM_editCmd.CommandText = "INSERT INTO Registrazione (Username, Password, Nome, Cognome, Email, Sesso, Data_Nascita, Paese, Titolo_Studio, Stato_Civile, Figli, Privacy) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 15, Request.Form("login")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 15, Request.Form("passw")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("nome")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("cognome")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 200, Request.Form("email")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 15, Request.Form("sex")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 135, 1, -1, MM_IIF(Request.Form("data_n"), Request.Form("data_n"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 150, Request.Form("citta")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 150, Request.Form("TITOLOS")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 150, Request.Form("STATOC")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 50, Request.Form("FIGLI")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 50, Request.Form("privac")) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
    'gestione errori
	if Err.Number <>0 Then
	Response.Clear()
	Response.Redirect("err_reg.asp")
	end if
	
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "benvenuto.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
Dim FIGLI
Dim FIGLI_cmd
Dim FIGLI_numRows

Set FIGLI_cmd = Server.CreateObject ("ADODB.Command")
FIGLI_cmd.ActiveConnection = MM_ESAIC_STRING
FIGLI_cmd.CommandText = "SELECT * FROM FIGLI" 
FIGLI_cmd.Prepared = true

Set FIGLI = FIGLI_cmd.Execute
FIGLI_numRows = 0
%>
<%
Dim STATOC
Dim STATOC_cmd
Dim STATOC_numRows

Set STATOC_cmd = Server.CreateObject ("ADODB.Command")
STATOC_cmd.ActiveConnection = MM_ESAIC_STRING
STATOC_cmd.CommandText = "SELECT * FROM STATOC" 
STATOC_cmd.Prepared = true

Set STATOC = STATOC_cmd.Execute
STATOC_numRows = 0
%><%
Dim TITOLOS
Dim TITOLOS_cmd
Dim TITOLOS_numRows

Set TITOLOS_cmd = Server.CreateObject ("ADODB.Command")
TITOLOS_cmd.ActiveConnection = MM_ESAIC_STRING
TITOLOS_cmd.CommandText = "SELECT * FROM TITOLOS" 
TITOLOS_cmd.Prepared = true

Set TITOLOS = TITOLOS_cmd.Execute
TITOLOS_numRows = 0
%>
<%
Dim sex
Dim sex_cmd
Dim sex_numRows

Set sex_cmd = Server.CreateObject ("ADODB.Command")
sex_cmd.ActiveConnection = MM_ESAIC_STRING
sex_cmd.CommandText = "SELECT * FROM SESSO" 
sex_cmd.Prepared = true

Set sex = sex_cmd.Execute
sex_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Esa Communication - consulenza direzionale</title>
<link href="style.css" rel="stylesheet" type="text/css" />
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<script type="text/javascript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<style type="text/css">
<!--
.Stile2 {
	color: #FF0000;
	font-weight: bold;
}
.Stile3 {color: #FF0000}
-->
</style>
</head>

<body onload="MM_preloadImages('images/btt-comunicazione-on.gif','images/btt-progetti-on.gif','images/btt-prog_D_on.gif')">
<table width="800" border="0">
  <tr>
    <td width="49" height="170" align="left" valign="bottom"><img src="images/box-left.gif" width="49" height="150" /></td>
    <td height="150" align="left" valign="top"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','347','height','150','src','images/flash/home','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','images/flash/home' ); //end AC code
</script>
    <noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="347" height="150">
      <param name="movie" value="images/flash/home.swf" />
      <param name="quality" value="high" />
      <embed src="images/flash/home.swf" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="347" height="150"></embed>
    </object></noscript></td>
    <td height="170" align="left" valign="bottom"><a href="index.html"><img src="images/box-logo.gif" width="147" height="150" /></a></td>
    <td height="170" align="left" valign="bottom"><a href="comunicazione.asp" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('comunicazione','','images/btt-comunicazione-on.gif',1)"><img src="images/btt-comunicazione.gif" name="comunicazione" width="97" height="150" border="0" id="comunicazione" /></a></td>
    <td height="170" align="left" valign="bottom"><a href="progetti.asp" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('progettiEU','','images/btt-progetti-on.gif',1)"><img src="images/btt-progetti.gif" name="progettiEU" width="97" height="150" border="0" id="progettiEU" /></a></td>
    <td height="170" align="left" valign="bottom"><a href="prog_delphi.asp" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('progettid','','images/btt-prog_D_on.gif',1)"><img src="images/btt-prog_D.gif" name="progettid" width="97" height="150" border="0" id="progettid" /></a></td>
  </tr>
  <tr>
    <td width="49">&nbsp;</td>
    <td><form id="form1" name="form1" method="POST" action="<%=MM_editAction%>">
           <h1><span class="titolo-pagina">Registrati</span></h1>
    
    
    <table width="347" border="0">
      <tr>
        <td width="110">Login <span class="Stile2">(*)</span></td>
        <td width="227"><label>
          <input type="text" name="login" id="login" />
        </label></td>
      </tr>
      <tr>
        <td>Password <span class="Stile2">(*)</span></td>
        <td><label>
          <input type="password" name="passw" id="passw" />
        </label></td>
      </tr>
      <tr>
        <td>Nome <span class="Stile2">(*)</span></td>
        <td><label>
          <input type="text" name="nome" id="nome" />
        </label></td>
      </tr>
      <tr>
        <td>Cognome <span class="Stile2">(*)</span></td>
        <td><label>
          <input type="text" name="cognome" id="cognome" />
        </label></td>
      </tr>
      <tr>
        <td>E-mail <span class="Stile2">(*)</span></td>
        <td><label>
          <input type="text" name="email" id="email" />
        </label></td>
      </tr>
      <tr>
        <td>Sesso <span class="Stile2">(*)</span></td>
        <td><p>
          <label></label>
          <label>
          <select name="sex" id="sex">
            <%
While (NOT sex.EOF)
%>
            <option value="<%=(sex.Fields.Item("M").Value)%>"><%=(sex.Fields.Item("F").Value)%></option>
            <%
  sex.MoveNext()
Wend
If (sex.CursorType > 0) Then
  sex.MoveFirst
Else
  sex.Requery
End If
%>
          </select>
          </label>
<br />
        </p></td>
      </tr>
      <tr>
        <td>Data di Nascita  <span class="Stile2">(*)</span></td>
        <td><label>
          <input name="data_n" type="text" id="data_n" size="10" maxlength="10" />
        gg/mm/aaaa</label></td>
      </tr>
      <tr>
        <td>Città</td>
        <td><label>
          <input type="text" name="citta" id="citta" />
        </label></td>
      </tr>
      <tr>
        <td>Titolo di Studio <span class="Stile2">(*)</span></td>
        <td><label>
          <select name="TITOLOS" id="TITOLOS">
            <%
While (NOT TITOLOS.EOF)
%><option value="<%=(TITOLOS.Fields.Item("IDTITOLO").Value)%>"><%=(TITOLOS.Fields.Item("TITOLOS").Value)%></option>
            <%
  TITOLOS.MoveNext()
Wend
If (TITOLOS.CursorType > 0) Then
  TITOLOS.MoveFirst
Else
  TITOLOS.Requery
End If
%>
          </select>
        </label></td>
      </tr>
      <tr>
        <td>Stato Civile</td>
        <td><label>
          <select name="STATOC" id="STATOC">
            <%
While (NOT STATOC.EOF)
%><option value="<%=(STATOC.Fields.Item("IDSTATOC").Value)%>"><%=(STATOC.Fields.Item("STATOC").Value)%></option>
            <%
  STATOC.MoveNext()
Wend
If (STATOC.CursorType > 0) Then
  STATOC.MoveFirst
Else
  STATOC.Requery
End If
%>
          </select>
        </label></td>
      </tr>
      <tr>
        <td>Figli</td>
        <td><label>
          <select name="FIGLI" id="FIGLI">
            <%
While (NOT FIGLI.EOF)
%>
            <option value="<%=(FIGLI.Fields.Item("IDFIGLI").Value)%>"><%=(FIGLI.Fields.Item("FIGLI").Value)%></option>
            <%
  FIGLI.MoveNext()
Wend
If (FIGLI.CursorType > 0) Then
  FIGLI.MoveFirst
Else
  FIGLI.Requery
End If
%>
          </select>
        </label></td>
      </tr>
      <tr>
        <td colspan="2"><blockquote>
          <blockquote>
            <p align="center">Privacy <span class="Stile2">(*)</span></p>
          </blockquote>
        </blockquote></td>
        </tr>
      <tr>
        <td colspan="2"><label>
        <textarea name="priv" cols="53" rows="9" class="testo" id="priv">Privacy
Informativa ai sensi dell'art. 13 del Decreto legislativo del 30 giugno 2003, n°196 (Codice in materia di protezione dei dati personali). 

L’INPS ha avviato un'indagine sulla qualità delle risposte telefoniche fornite ai cittadini-utenti del Call Center dell’INPS. In particolare, l'indagine sulla soddisfazione dei clienti si svolgerà richiamando un campione di cittadini/utenti che si sono rivolti al Call Center nel periodo compreso i mesi di agosto e novembre 2007.
I risultati dell'indagine saranno resi pubblici in forma anonima, nel rispetto dei profili di riservatezza indicati dal Garante della privacy.
Ciò premesso, ai sensi del Decreto legislativo n. 196/2003, il trattamento delle informazioni che La riguardano sarà improntato ai principi di correttezza, liceità e trasparenza e di tutela della Sua riservatezza e dei Suoi diritti.
Pertanto, ai sensi dell'articolo 13 del Decreto legislativo n. 196/2003, Le forniamo le seguenti informazioni:
•	alcuni dati connessi alla Sua chiamata al Call Center, indicati nel successivo punto 2, da Lei spontaneamente forniti all'esercente, verranno trattati temporaneamente, anche elettronicamente, nella misura strettamente necessaria per lo svolgimento dell'indagine demoscopica che l’INPS condurrà al fine di accertare la qualità dei servizi telefonici e, in particolare, la soddisfazione e le aspettative dei cittadini/utenti che si sono rivolti ai Call Center, in relazione alle risposte ricevute dagli operatori; 
•	i dati sottoposti al trattamento di cui al precedente punto 1 riguardano: il nome della persona che ha parlato con l'operatore del Call Center, il servizio a cui si riferisce la chiamata, il motivo, la settimana e la fascia oraria della chiamata, il recapito telefonico, così come risultanti dai dati in possesso dell’INPS; 
•	qualora Lei fosse richiamato ai fini dell'effettuazione dell'intervista telefonica, e vi acconsentisse, i dati acquisiti nel corso della stessa saranno anch'essi oggetto di trattamento; resta salva la possibilità di non rilasciare la suddetta intervista telefonica. In tal caso l'indagine proseguirà nei confronti degli altri soggetti facenti parte del campione; 
•	il titolare del trattamento dei dati è l’INPS, mentre il responsabile del trattamento dei dati è la società ESA Image and Communication S.r.L; 
•	in ogni momento potrà esercitare i Suoi diritti nei confronti del titolare del trattamento, ai sensi dell'art. 7 del Decreto legislativo n. 196/2003 e, in particolare, potrà chiedere di conoscere l'esistenza di trattamenti di dati che possono riguardarla; potrà ottenere senza ritardo la comunicazione dei medesimi dati e della loro origine, la cancellazione, la trasformazione in forma anonima o il blocco dei dati trattati in violazione di legge, nonchè l'aggiornamento, la rettificazione ovvero l'integrazione dei dati; inoltre, ha diritto di opporsi, in tutto o in parte, per motivi legittimi, al trattamento dei dati personali che la riguardano, ancorché pertinenti allo scopo della raccolta; tutti i diritti indicati dal citato art. 7 del Decreto legislativo n. 196/2003 potranno essere fatti valere indirizzando formale richiesta a: 
•	
customer@esacommunication.com

Per ulteriori informazioni sulle finalità perseguite dall’INPS La invitiamo a visitare il sito web www.esacommunication.com
</textarea>
        </label></td>
        </tr>
      <tr>
        <td colspan="2"><div align="center">
          <p>
            <label></label>
<label></label>
<label>
<select name="privac" id="privac">
  <option value="Yes" selected="selected">Si'</option>
  <option value="No">No</option>
</select>
</label>
<br />
            <br />
          </p>
        </div></td>
        </tr>
    </table>    
    <p class="Stile2">(* Campi Obbligatori)</p>
    <p align="center" class="Stile2">
      <label>
      <input type="submit" name="ENTRA" id="ENTRA" value="Invia" />
      </label>
      <input type="hidden" name="MM_insert" value="form1" />
      <label>
      <input type="reset" name="RIPR" id="RIPR" value="Ripristina" />
      </label>
    </form></p></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td width="49">&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
FIGLI.Close()
Set FIGLI = Nothing
%>
<%
STATOC.Close()
Set STATOC = Nothing
%>
<%
TITOLOS.Close()
Set TITOLOS = Nothing
%>
<%
sex.Close()
Set sex = Nothing
%>