<% function IsEmail(strEmail) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9._-]+\.[a-z0-9]{2,4}$" objRegExp.IgnoreCase = True IsEmail = objRegExp.Test(strEmail) end function function checkForm() checkForm=false if not isEmpty(request.Form("nomeCognome")) And request.Form("nomeCognome")<> "nome cognome" and not isNumeric(request.Form("nomeCognome")) then if not isEmpty(request.Form("natoA")) And request.Form("natoA")<> "---" And not isNumeric(request.Form("natoA")) then if not isEmpty(request.Form("il")) And IsDate(request.Form("il")) then if not isEmpty(request.Form("residenza")) And not isNumeric(request.Form("residenza")) then if not isNumeric(request.Form("citta")) and not isEmpty(request.Form("citta")) then if isNumeric(request.Form("cap")) and not isEmpty(request.Form("cap")) then if not isEmpty(request.Form("tel")) and isNumeric(request.Form("tel")) and IsEmail( request.Form("email")) then checkForm=true end if end if end if end if end if end if end if if not checkForm And request("Button")="Invia" then %> <% end if end function If request("Button")="Invia" And checkForm() then ' Dichiara l'oggetto email e la configurazione Dim objMail, objConfig ' Dimensiona l'oggetto email Set objMail = CreateObject("CDO.Message") ' ==================================== 'Dimensiona l'oggetto configurazione Set objConfig = Server.CreateObject("CDO.Configuration") ' Imposta le configurazioni With objConfig ' Server SMTP di uscita 'Esempio mail.dominio.it .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.fondazionerobertocapucci.com" ' Porta SMTP .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' Porta CDO .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 ' Timeout .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Fields.Update End With ' Assegna le configurazioni Set objMail.Configuration = objConfig ' Assegna all'oggetto le proprietà necessarie ' Mittente dell'email (indirizzo) objMail.From = Request.Form("email") ' Destinatario dell'email (indirizzo) objMail.To = "formazione@fondazionerobertocapucci.com" ' Cc e Bcc (opzionale) 'objMail.Cc = "luana.briglia@fastwebnet.it" 'objMail.Bcc = "altroindirizzo@dominio.xx; ancora@dominio.xx" ' Oggetto dell'email objMail.Subject = "Materia e Forma II - Tecniche di decorazione e trasformazione della materia che si terrà dal 6 all'8 maggio 2010" '' Valore di priorità objMail.Fields("urn:schemas:httpmail:importance").Value = 2 objMail.Fields.Update() ' Allegare un file 'objMail.AddAttachment("d:\inetpub\webs\tuodominiocom\file.zip") Dim HTML, seminario seminario="Materia e forma II - Tecniche di decorazione e trasformazione della materia che si terrà dal 6 all'8 maggio 2010" HTML = "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "Prove di Spedizione HTML" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
Richiesta iscrizione al seminario:
"& seminario & "
" HTML = HTML & "Da:" & request.Form("nomeCognome") & "
" HTML = HTML & "Nato a:" & request.Form("natoA") & " " HTML = HTML & "il:" & request.Form("il") & "
" HTML = HTML & "residente in:" & request.Form("residenza") & "
" HTML = HTML & "Città:" & request.Form("citta") & "
" HTML = HTML & "C.A.P.:" & request.Form("cap") & "
" HTML = HTML & "Tel:" & request.Form("tel") & "
" HTML = HTML & "Email:"& request.Form("email")& "
" HTML = HTML & "Qualità di:" & request.Form("carica") & "
" HTML = HTML & "Specifica:" & request.Form("di") & "
" HTML = HTML & "" ' Corpo del messaggio 'objMail.TextBody = "Testo della mail" 'Formato Testo objMail.HTMLBody = HTML 'Formato HTML ' Invia l'email objMail.Send() ' Distruggi l'oggetto Set objMail = Nothing %> <% End if %>
 
 
 
 
 
 
 
 
 
 
 
 
indietro
 
biografia
 
fondazione
 
museo
 
news
 
attività
 
formazione
 
abiti
 
link
 
ricerca
 
Scheda di iscrizione
Tipologia dei moduli formativi:
Seminario
 
Durata:
3 giorni
 
Costo:
300 €
 
Numero partecipanti:
max 35 persone
 
Attestato di Partecipazione:
rilasciato per ogni frequenza
 
Intende partecipare al Seminario Materia e Forma II
Tecniche di decorazione e trasformazione della materia
che si terrà dal 6 all'8 maggio 2010.

Totale € 300,00 (trecento/00)

Autorizzo ai sensi della Legge 675/96 al trattamento dei dati personali da me trasmessi.

Si riceverà una e-mail di conferma da formazione@fondazionerobertocapucci.com dell'avvenuta registrazione alla quale dovrà seguire entro una settimana il pagamento della quota di iscrizione sul conto corrente che vi verrà indicato.