<%
if request("start") = "1" AND request("privacy") = "si" then
For each i in Request.Form
if i <> "inviadati" then
messaggio = messaggio & i & ": " & Request.Form(i)&chr(13)&Chr(10)
end if
next
Dim objMail
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.Host = "mail2.emmetek.com"
objMail.From = request("email")
objMail.AddAddress "federico@emmetek.com"
objMail.Subject = "Contatto dal sito web"
objMail.Body = messaggio
On Error Resume Next
objMail.Send
Set objMail = Nothing
If Err.Number <> 0 Then
Response.Write "Si è verificato un errore: " & Err.Description
Else
Response.redirect "index.asp"
End If
end if
%>
Hotel Rapallo: Rooms
