<% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim objCDO Dim RedirectURL Dim FormFields Dim arrFormFields FormFields = "Ragione S/Nome~Indirizzo~Citta~Provincia~CAP~Telefono~Cellulare~Mail~Data inizio~Data termine~Localita~Persone~Tipologia~Note~Trattamento dati" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "aparma@gpa.it" objCDO.To = "aparma@gpa.it" objCDO.Cc = "" objCDO.Bcc = "sergio.limonta@gpa.it" objCDO.Subject = "Richiesta Preventivo dal sito GANAS" BodyString = Replace("","~",chr(13) & chr(10) )& chr(13) If FormFields <> "" Then For Each item In arrFormFields BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) Next End If objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Set objCDO = Nothing RedirectURL = "conferma.htm" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %> GANAS - Catering Milano

Il servizio riguarda solo ed esclusivamente cucina "messicana".

Dati personali
Nome/Cognome - Rag. Sociale:
Indirizzo:
Città:
Provincia:
CAP:
Recapiti
Telefono fisso:
Telefono cellulare:
E-mail:
Dati relativi all'evento
Data inizio:
gg/mm/aa
Data termine:
gg/mm/aa
Località:
N° persone:
Tipologia:
Note:
Do il consenso al trattamento e alla comunicazione dei dati per le finalità specificate nell'informativa.*