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 = "Vorname*" liValidate = false end if if request.form("ssurname") = "" then lsError_cognome = "Name*" 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 | DE" 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 | Kontakt

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

Vom 1. November bis 31. März ist das Restaurant am Sonntag Abend und Montag ganz Tags geschlossen

<% if 1=2 then %>

<% if lsError_nome ="" then response.write "Vorname*" else response.write lsError_nome end if %>	">
<% if lsError_cognome ="" then response.write "Name*" else response.write lsError_cognome end if %>	">
Telefon	">
E-Mail	">
Nachricht	<%=request.form("snote")%>

<% end if %>