Fattoria l'Amorosa

<%@LANGUAGE="VBSCRIPT"%> <% session.lcid=2064 ' ---- check per verificare i campi obbligatori Dim liValidate If request.form("send") = "1" then liValidate = true if request.form("sname") = "" then lsError_nome = "Nome*" liValidate = false end if if request.form("ssurname") = "" then lsError_cognome = "Cognome*" 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 = "Contatto - www.amorosa.ch" objMail.Body = _ "Nome: " & request.form("sname") & vbCrLf & _ "Cognome: " & request.form("ssurname") & 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 | Contatto

Fattoria l’Amorosa
Via Moyar
6514 Sementina-Gudo
phone +41 (0)91 840 29 50
fax +41 (0)91 840 29 51

Dal 1 aprile al 31 ottobre, il ristorante è aperto tutti i giorni. Dal 1 Novembre al 31 marzo il ristorante rimane chiuso la domenica sera e lunedì tutto il giorno.

<% if 1=2 then %>

<% if lsError_nome ="" then response.write "Nome*" else response.write lsError_nome end if %>	">
<% if lsError_cognome ="" then response.write "Cognome*" else response.write lsError_cognome end if %>	">
Telefono	">
E-mail	">
Messaggio	<%=request.form("snote")%>

<% end if %>