<% function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function %> <% opt=Request.QueryString("opt") destinatario = Request.QueryString("destinatario") IF opt="invia" THEN if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then 'The code you enter verified else Response.Write "" & vbcrlf Response.End() end if tipo_mail=1 ' 1=HTML - 0=TESTO destinatario = "ycc@pidierre.it" nome = Request.Form ("nome") cognome = Request.Form ("cognome") lnascita = Request.Form ("lnascita") dnascita = Right("0"&Request.Form ("gg"),2)&"/"&Right("0"&Request.Form ("mm"),2)&"/"&Request.Form ("aaaa") gg = Request.Form ("gg") mm = Request.Form ("mm") aaaa = Request.Form ("aaaa") istituto = Request.Form ("istituto") cittaistituto = Request.Form ("cittaistituto") telefono = Request.Form ("telefono") cellulare = Request.Form ("cellulare") disciplina = Request.Form ("disciplina") gruppo = Request.Form ("gruppo") elenco_studenti = "
" & Replace(""&Request.Form ("elenco_studenti"),chr(13),"
") email = Request.Form ("email") note = Request.Form ("note") messaggio = "" & vbcrlf messaggio = messaggio & "Grazie per averci informato che stai lavorando alla presentazione di un progetto per il Concorso Young Creative Chevrolet 2013.
" & vbcrlf messaggio = messaggio & "Di seguito riportiamo i dati da te inseriti:

" & vbcrlf messaggio = messaggio & "" & "Nome: " & "" & " " & nome & "
" & vbcrlf messaggio = messaggio & "" & "Cognome: " & "" & " " & cognome & "
" & vbcrlf messaggio = messaggio & "" & "Data di nascita: " & "" & " " & dnascita & "
" & vbcrlf messaggio = messaggio & "" & "Istituto di appartenenza: " & "" & " " & istituto & "
" & vbcrlf messaggio = messaggio & "" & "Cittā Istituto: " & "" & " " & cittaistituto & "
" & vbcrlf messaggio = messaggio & "" & "Disciplina: " & "" & " " & disciplina & "
" & vbcrlf messaggio = messaggio & "" & "Telefono: " & "" & " " & telefono & "
" & vbcrlf messaggio = messaggio & "" & "Cellulare: " & "" & " " & cellulare & "
" & vbcrlf IF gruppo=1 THEN messaggio = messaggio & "" & "Gruppo altri studenti: " & "" & " " & elenco_studenti & "
" & vbcrlf messaggio = messaggio & "" & "Note:" & "" & " " & note & "
" & vbcrlf messaggio = messaggio & "" & "Indirizzo e-mail:" & "" & " " & Request.Form ("email") & "
" & vbcrlf messaggio = messaggio & "" & "Privacy: " & "" & " " & Request.Form ("privacy") & "

" & vbcrlf messaggio = messaggio & "Visita il sito del Concorso: ycc.pidierre.it/" & vbcrlf messaggio = messaggio & "" & vbcrlf subj = "Concorso YCC 2013" Set oMail = Server.CreateObject("Persits.MailSender") oMail.Host = "www.pdir.it" oMail.FromName = "Chevrolet - Concorso YCC 2013" oMail.From = email oMail.Subject = subj oMail.Body = messaggio if tipo_mail = 1 then oMail.IsHTML = true else oMail.IsHTML = False end if oMail.addAddress destinatario oMail.addAddress email On Error Resume Next oMail.Send If Err <> 0 Then msg="Si č verificato un errore durate l'invio.
Controllate l'indirizzo inserito." colore="#990000" Else msg="Registrazione effettuata con successo" colore="#000000" End If set oMail= nothing END IF %>
Young? Creative? Chevrolet! - 2013 Art Contest
 

<% IF opt="invia" AND Len(""&msg)>0 THEN Response.Write "" & msg & "" ELSE %>

Compila tutti campi oppure scarica il modulo ed invialo a ycc@piderre.it
Fill all fields or download the document and send it to ycc@piderre.it

scarica il modulo / download form
[http://pdir.it/chevrolet/ycc_13/form/Modulo_iscrizione_YCC_2013.doc]

Modulo di iscrizione
Nome
First name 		*

Cognome
Last name

 *
Data di nascita
Date of birth 		<% Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf %> *
Istituto
School		 * Telefono
Phone number 		*
Città istituto
School headquarter
 * Cellulare
Cell phone
E-Mail * Partecipo in gruppo
group of students
   
*Discipline
Disciplines 		Fotografia / Photography
Moda / Fashion
Video
Visual Arts

 Note:
   
*Attenzione: dati obbligatori! / Mandatory fields!
    
AUTORIZZO L'UTILIZZO E L'ARCHIVIAZIONE DEI DATI. Ai sensi dell'Art. 13 Comma 1 D. Lgs 196/2003 riguardante la tutela delle persone e altri soggetti rispetto al trattamento dei dati personali, si informa che i dati personali acquisiti dalla presente scheda sono raccolti e trattati da Punto di Riferimento S.r.l., anche con l’ausilio di mezzi elettronici, per le finalità connesse alla gestione di cui sopra e per l’invio di informative su eventi, prodotti e aziende. In relazione al trattamento dei dati è diritto dell’interessato ottenere quanto previsto dall’art. 13 del cit. D.Lgs in base al quale può, in qualsiasi momento e del tutto gratuitamente, consultare, far modificare o cancellare i suoi dati o semplicemente opporsi al loro utilizzo per le finalità qui indicate ed inoltre per ottenere informazioni sulle iniziative di cui si è reso partecipe. Tale suo diritto può essere esercitato scrivendo a Punto di Riferimento S.r.l. - Via Reiss Romoli 114 - 10148 Torino.

Accettazione del Trattamento dei Dati Personali (Privacy) /Privacy Policy Agreement *
<%=msg%>


Cambia Immagine / Switch Image

Per motivi di sicurezza inserisci il codice di verifica che visualizzi nell'immagine
For security reasons, please enter the verification code


Segreteria Organizzativa Concorso Young Creative Chevrolet 2013 c/o PidiErre (Punto di Riferimento srl)
email ycc@pidierre.it | Tel. 011 27 400 58 | Fax 011 19 83 48 78

Direzione Comunicazione Chevrolet Italia S.p.A.
Valentina Orena | Direttore Pubbliche Relazioni | Tel. 06 658553833 | email valentina.orena@gm.com 
Lydia Wells | Ufficio Stampa | Tel. 06 658553831 | email lydia.wells@gm.com
Web www.chevrolet.it/il-mondo-chevrolet/eventi/ycc.html  | www.youngcreativechevrolet.eu

Lo Staff del Concorso Young Creative Chevrolet
ycc.pidierre.it

 
<% END IF %>