<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i 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 MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_GestPisteConn_STRING MM_editTable = "TblIscGare" MM_editRedirectUrl = "iscrizioneGareGrazie.asp" MM_fieldsStr = "TitoloGara|value|DataGara|value|nome|value|Cognome|value|indirizzo|value|citta|value|cap|value|provincia|value|telefono|value|email|value|Categoria|value|automodello|value|motore|value|gomme|value|freqPrincipale|value|freqSeconda|value|freqTerza|value|nTrasponder|value" MM_columnsStr = "gara|',none,''|DataGara|',none,''|nome|',none,''|cognome|',none,''|indirizzo|',none,''|citta|',none,''|cap|',none,''|provincia|',none,''|telefono|',none,''|email|',none,''|Categoria|',none,''|automodello|',none,''|motore|',none,''|gomme|',none,''|freqPrincipale|',none,''|freqSeconda|',none,''|freqTerza|',none,''|nTrasponder|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim DatiGara Dim DatiGara_numRows Set DatiGara = Server.CreateObject("ADODB.Recordset") DatiGara.ActiveConnection = MM_GestPisteConn_STRING DatiGara.Source = "SELECT * FROM TblDesGara" DatiGara.CursorType = 0 DatiGara.CursorLocation = 2 DatiGara.LockType = 1 DatiGara.Open() DatiGara_numRows = 0 %> Documento senza titolo

Associazione dilettantistica affiliata

Il servizio sarà attivato in prossimità di ogni gara che si svolgerà presso in nostri impianti

I dati inseriti quando sul titolo della form compare ----Nessuna gara------ non saranno registrati.

Iscrizione
Gare

Gara: <%=(DatiGara.Fields.Item("TitoloGara").Value)%> del <%=(DatiGara.Fields.Item("DataGara").Value)%>

  ">
  ">
Nome *
Cognome *
Indirizzo *
Citta' *
Cap *
Prov. *
Telefono *
E-Mail *
Nella riga sottostante inserire F1 o F2
CATEGORIA *
Dati tecnici
Automodello
Motore
Gomme
Freq. 1
Freq. 2
Freq. 3
N. Trasponder
   
* Campo obbligatorio.
 
Inviando questo modulo acconsento al trattamento dei miei dati personali da parte di CLUB MODELLISTICO MARCHIGIANO
Il decreto legislativo 30 giugno 2003, n. 196 prevede il diritto alla protezione dei dati personali riguardanti chiunque. In ottemperanza a tale normativa, la nostra Società, che intende trattare Suoi dati personali, desidera preventivamente informarLa, ai sensi dell’art. 13 del D. Lgs. n. 196/03, che tale trattamento sarà improntato ai principi di correttezza, liceità e trasparenza e di tutela della Sua riservatezza e dei Suoi diritti. Pertanto Le forniamo le seguenti informazioni sul trattamento dei Suoi dati personali che intendiamo effettuare:
1. Il trattamento ha finalità relative alle esigenze contrattuali e ai conseguenti adempimenti degli obblighi legali e fiscali, nonché per consentire un’efficace gestione dei rapporti finanziari e commerciali; tale trattamento avverrà per tutta la durata del rapporto contrattuale e anche successivamente, per l’espletamento di obblighi di legge e per finalità amministrative e commerciali;
2. Il trattamento sarà effettuato a opera di soggetti appositamente incaricati, mediante l’utilizzo di strumenti e procedure idonei a garantirne la sicurezza e la riservatezza e potrà essere effettuato sia mediante supporti cartacei, sia attraverso l’ausilio di strumenti elettronici;
3. L’eventuale mancato conferimento dei Suoi dati potrebbe comportare l’impossibilità di instaurare o proseguire il rapporto, nei limiti in cui tali dati sono necessari all’esecuzione dello stesso o sono previsti da obblighi di legge;
4. Le categorie di soggetti ai quali i Suoi dati personali possono essere comunicati o che possono venirne a conoscenza in qualità di responsabili o incaricati sono le seguenti: addetti all’Amministrazione, Aziende di credito, Pubbliche Amministrazioni, organismi dell’Amministrazione Finanziaria;
5. I Suoi dati personali non saranno oggetto di diffusione, se non chiedendoLe espressamente il consenso;
6. Lei potrà far valere i Suoi diritti, così come disciplinati dall’art.7 del D. Lgs. n. 196/03, rivolgendosi al titolare del trattamento, scrivendo a CLUB MODELLISTICO MARCHIGIANO, E-mail: info@pistedimonsano.it
<% DatiGara.Close() Set DatiGara = Nothing %>