<%@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 = "Dal*" liValidate = false end if if request.form("sto") = "" then lsError_al = "Al*" liValidate = false end if if request.form("sadults") = "" then lsError_adulti = "Adulti*" liValidate = false end if if request.form("schildrens") = "" then lsError_bambini = "Bambini*" liValidate = false end if if request.form("sname") = "" then lsError_nome = "Nome*" liValidate = false end if if request.form("ssurname") = "" then lsError_cognome = "Cognome*" liValidate = false end if if request.form("saddress") = "" then lsError_indirizzo = "Indirizzo*" liValidate = false end if if request.form("szip") = "" then lsError_cap = "CAP*" liValidate = false end if if request.form("scity") = "" then lsError_luogo = "Luogo*   " liValidate = false end if if request.form("sland") = "" then lsError_nazione = "Nazione*" 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 = "luiis.franceschi@positioner.com" objMail.To = "info@amorosa.ch" objMail.Subject = "Riservazione camere - www.amorosa.ch" 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.htm") end if %>

Italiano | Deutsch | Français | English Dal 1 aprile al 31 ottobre, il ristorante è aperto tutti i giorni. Dal 1 Novembre al 31 marzo il ristorante rimane chiuso la dom sera e lunedì tutto il giorno. HOMEPAGE PRESENTAZIONE CAMERE RUSTICI PROPOSTE E PREZZI CANTINA E VIGNETI PRODOTTI DELLA FATTORIA RISERVAZIONE CAMERE CONTATTO UBICAZIONE NOVITÀ ED OFFERTE SPECIALI    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 %> <% end if %> Fattoria l'Amorosa Agriturismo phone +41 (0)91 840 29 50 | fax +41 (0)91 840 29 51 | Dal 1. Novembre al 31. marzo il ristorante rimane chiuso la domenica sera e lunedì tutto il giorno.