<%if request("nome")="" then%>

Per maggiori informazioni vi preghiamo di contattarci:

data di arrivo
data di partenza
N° Adulti
N° Bambini (3-10 anni)
N° Bambini (0-3 anni)
Sistemazione:
Nome
Cognome
Nazione
Email
Telefono
Messaggio
<%else dim testo '------------ Costruzione Email testo=testo & vbCrLf & "www.glicine-lanterna.it" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "
 
" ' --------- tabella dati ----- testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" ' ------ inizio testo-extra ----------- testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" testo=testo & vbCrLf & "" ' ------ fine testo-extra ----------- testo=testo & vbCrLf & "" testo=testo & vbCrLf & "
Richiesta Informazioni proveniente da www.glicine-lanterna.it ITALIANO
  
Nome e Cognome" & request("nome") & " " & request("cognome") & "
Nazione" & request("stato") & "
Email" & request("email") & "
Telefono" & request("telefono") & "
Arrivo" & request("periodo1") & "
Partenza" & request("periodo2") & "
N° Adulti" & request("numero_adulti") & "
N° Bambini 2-10_anni" & request("numero_bambini_2-10_anni") & "
N° Bambini 0-2_anni" & request("numero_bambini_0-2_anni") & "
Sistemazione" & request("sistemazione") & "
Informazioni
" if request("richiesta") <>"" then testo=testo & replace(request("richiesta"),chr(13),"
") end if testo=testo & vbCrLf & "
  
MESSAGGIO AUTOMATICO
Questa email non certifica l'avvenuta prenotazione, ma solamente l'invio della richiesta.
  
Gentili Signore e Gentili Signori, Grazie per averci contattato.
Provvederemo a risponderVi quanto prima.
  
Tuttavia, nel caso di urgenze o scadenze immediate, contattateci telefonicamente al numero:
+39 0187 460050.
  
Cordiali Saluti e grazie per la collaborazione.
  
IL GLICINE E LA LANTERNA
Azienda Agrituristica di Graziella Sarti.
Localita' la Querceta 54027,
Vignola di Pontremoli (MS),
www.glicine-lanterna.it
  
" ' ------ fine cartella dati ----------- testo=testo & vbCrLf & "
 
" testo=testo & "" ' -------- Spedizione Email dim objMail dim objConfig Set objMail = Server.CreateObject("CDO.Message") Set objConfig = Server.createObject("CDO.Configuration") objMail.From = request("nome") & " " & request("cognome") & "<" & request("email") & ">" & request("telefono") & " " objMail.To ="info@glicine-lanterna.it" ' ------ email inizio email extra ----------- objMail.Cc = request("email") & " " ' ------ email fine email extra ----------- 'objMail.Cc = "glicinelanterna@gmail.com " objMail.Bcc =" " objMail.Subject = "Richiesta informazioni" objMail.HTMLBody = testo With objConfig .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Fields.update End With Set objMail.Configuration = objConfig objMail.Send Set objMail = nothing Set objConfig = nothing %>

Gentili Signore e Gentili Signori,
Grazie per averci contattato, Provvederemo a risponderVi quanto prima.

Tuttavia, nel caso di urgenze o scadenze immadiate, contattateci telefonicamente al numero:
+39 0187 460050.

Cordiali Saluti e grazie per la collaborazione, Il Glicine e La Lanterna






<%end if%>

email info@glicine-lanterna.it
Telefono +39 0187 460050

 

 

   
   
   
   
 

 

italiano   english   français   deutsch