IL GLICINE E LA LANTERNA - KONTAKT - Agriturismo des Landes Lunigiana

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

Sollten Sie weitere Informationen benötigen, zögern Sie nicht uns zu kontaktieren:

Vorname:	Art der Unterkunft:
Nachname:	Zeitraum vom:	bis zum:
Telefonnummer:	Personenanzahl:
Adresse:	Anmerkungen und Wünsche:
Stadt:
PLZ:
Land:
E-Mail:	* Alle Felder sind Pflichtfelder

Il Glicine e la Lanterna Agriturismo des Landes Lunigiana Azienda Agrituristica di Sarti Graziella Vignola di Pontremoli (MS) Tel. +39 0187 46.00.50

<%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 & "

Richiesta Informazioni proveniente da www.glicine-lanterna.it TEDESCOINGLESE

Nome e Cognome	" & request("nome") & " " & request("cognome") & "
Indirizzo	" & request("citta") & " - " & request("indirizzo") & " - " & request("cap") & " - " &request("stato") & "
Email	" & request("email") & "
Telefono	" & request("telefono") & "
Arrivo	" & request("periodo") & "
Partenza	" & request("periodo1") & "
Persone	" & request("numero_persone") & "
Sistemazione	" & request("sistemazione") & "
Informazioni	" if request("richiesta") <>"" then testo=testo & replace(request("richiesta"),chr(13)," ") end if testo=testo & vbCrLf & "

" ' ------ 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") & ">" objMail.To ="info@glicine-lanterna.it" '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 %>

Sehr geehrte Damen und Herren, vielen Dank,
dass Sie uns kontaktiert haben.

Wir werden uns schon bald
mit Ihnen in Verbindung setzen

<%end if%>