<%@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 = "From*" liValidate = false end if if request.form("sto") = "" then lsError_al = "To*" liValidate = false end if if request.form("sadults") = "" then lsError_adulti = "Adults*" liValidate = false end if if request.form("schildrens") = "" then lsError_bambini = "Childrens*" liValidate = false end if if request.form("sname") = "" then lsError_nome = "First name*" liValidate = false end if if request.form("ssurname") = "" then lsError_cognome = "Family name*" liValidate = false end if if request.form("saddress") = "" then lsError_indirizzo = "Address*" liValidate = false end if if request.form("szip") = "" then lsError_cap = "ZIP*" liValidate = false end if if request.form("scity") = "" then lsError_luogo = "City*   " 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 - EN" 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 %>

Italiano | Deutsch | Français | English 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 %> Please use this form to send us your rooms reservation: Type >Room >Cottage <% if lsError_nome ="" then response.write "First name*" else response.write lsError_nome end if %> " size="25" /> <% if lsError_dal ="" then response.write "From*" else response.write lsError_dal end if %> " size="22" maxlength="10" />   <% if lsError_cognome ="" then response.write "Family name*" else response.write lsError_cognome end if %> " size="25" /> <% if lsError_al ="" then response.write "To*" else response.write lsError_al end if %> " size="22" maxlength="10" />   <% if lsError_indirizzo ="" then response.write "Address*" else response.write lsError_indirizzo end if %> " size="25" /> Persons    " size="2" maxlength="2" /> <% if lsError_adulti ="" then response.write "Adults*" else response.write lsError_adulti end if %>   <% if lsError_cap ="" then response.write "ZIP*" else response.write lsError_cap end if %> / <% if lsError_luogo ="" then response.write "City*   " else response.write lsError_luogo end if %> " size="4" maxlength="8" /> " size="17" />   " size="2" maxlength="2" /> <% if lsError_bambini ="" then response.write "Childrens*" else response.write lsError_bambini end if %>   <% if lsError_nazione ="" then response.write "Nation*" else response.write lsError_nazione end if %> Choose the country >Austria >Belgium >France >Germany >Italy >Switzerland >Holland >Other       Telephone ">       E-mail " size="25" />       Message <%=request.form("snote")%> <% end if %> Fattoria l'Amorosa Agriturismo phone +41 (0)91 840 29 50 | fax +41 (0)91 840 29 51 | From the 1st November until the 31st of March the Restaurant is closed on Sunday evening and on Monday the whole day.