<%@LANGUAGE="VBSCRIPT"%> <% session.lcid=2064 ' ---- check per verificare i campi obbligatori Dim liValidate If request.form("send") = "1" then liValidate = true if request.form("sfrom") = "" then lsError_dal = "Vom*" liValidate = false end if if request.form("sto") = "" then lsError_al = "Bis*" liValidate = false end if if request.form("sadults") = "" then lsError_adulti = "Erwachsene*" liValidate = false end if if request.form("schildrens") = "" then lsError_bambini = "Kinder*" liValidate = false end if if request.form("sname") = "" then lsError_nome = "Vorname*" liValidate = false end if if request.form("ssurname") = "" then lsError_cognome = "Name*" liValidate = false end if if request.form("saddress") = "" then lsError_indirizzo = "Adresse*" liValidate = false end if if request.form("szip") = "" then lsError_cap = "PLZ*" liValidate = false end if if request.form("scity") = "" then lsError_luogo = "Ort*   " liValidate = false end if if request.form("sland") = "" then lsError_nazione = "Nation*" liValidate = false end if end if if request("send") = "1" and livalidate then 'spedisco l'email if request.form("semail") = "" then varEmail="info@amorosa.ch" else varEmail=trim(request.form("semail")) end if Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = varEmail objMail.To = "info@amorosa.ch" objMail.Subject = "Riservazione camere - www.amorosa.ch | DE" objMail.Body = "" & _ "Tipo: " & request.form("stype") & vbCrLf & _ "Da: " & request.form("sfrom") & vbCrLf & _ "A: " & request.form("sto") & vbCrLf & _ "Adulti: " & request.form("sadults") & vbCrLf & _ "Bambini: " & request.form("schildrens") & vbCrLf & _ "Nome: " & request.form("sname") & vbCrLf & _ "Cognome: " & request.form("ssurname") & vbCrLf & _ "Indirizzo: " & request.form("saddress") & vbCrLf & _ "CAP: " & request.form("szip") & vbCrLf & _ "Luogo: " & request.form("scity") & vbCrLf & _ "Nazione: " & request.form("sland") & vbCrLf & _ "Telefono: " & request.form("stel") & vbCrLf & _ "E-mail: " & request.form("semail") & vbCrLf & _ "Messaggio: " & request.form("snote") objMail.importance = 1 objMail.Send Set objMail = nothing response.redirect("grazie.asp") end if %> Fattoria l'Amorosa | Zimmerreservationen







Fattoria l’Amorosa
Via Moyar
6514 Sementina-Gudo
phone +41 (0)91 840 29 50
fax +41 (0)91 840 29 51
info@amorosa.ch <% if 1=2 then %>
Benutzen Sie dieses Formular, um uns Ihre Reservationswünsche der Zimmer zu senden:
Art <% if lsError_nome ="" then response.write "Vorname*" else response.write lsError_nome end if %> " size="25" />
<% if lsError_dal ="" then response.write "Vom*" else response.write lsError_dal end if %> " size="22" maxlength="10" />   <% if lsError_cognome ="" then response.write "Name*" else response.write lsError_cognome end if %> " size="25" />
<% if lsError_al ="" then response.write "Bis*" else response.write lsError_al end if %> " size="22" maxlength="10" />   <% if lsError_indirizzo ="" then response.write "Adresse*" else response.write lsError_indirizzo end if %> " size="25" />
Personen    " size="2" maxlength="2" /> <% if lsError_adulti ="" then response.write "Erwachsene*" else response.write lsError_adulti end if %>   <% if lsError_cap ="" then response.write "PLZ*" else response.write lsError_cap end if %> / <% if lsError_luogo ="" then response.write "Ort*   " else response.write lsError_luogo end if %> " size="4" maxlength="8" /> " size="17" />
  " size="2" maxlength="2" /> <% if lsError_bambini ="" then response.write "Kinder*" else response.write lsError_bambini end if %>   <% if lsError_nazione ="" then response.write "Nation*" else response.write lsError_nazione end if %>
      Telefon ">
      E-Mail " size="25" />
      Nachricht
<% end if %>
 
Vini & distillati Delea
Fattoria l'Amorosa Agriturismo