|
|
<%if request("inviamessaggio")<>"yes" then%> <% else nome=request.form("nome") cognome=request.form("cognome") telefono=request.form("telefono") indirizzo=request.form("indirizzo") citta=request.form("citta") telefono=request.form("telefono") cellulare=request.form("cellulare") email=request.form("email") giornoda=request.form("giornoda") giornoa=request.form("giornoa") npersone=request.form("npersone") richiesta=request.form("richiesta") autorizzo=request.form("autorizzo") if cognome="" then errore= errore &"- empty field Surname " end if if nome="" then errore= errore &"- empty field Name " end if if citta="" then errore= errore &"- empty field City " end if if email="" then errore= errore &"- empty field E-mail " end if if richiesta="" then errore= errore &"- campo empty request " end if if autorizzo="" then errore= errore &"- the authorization according to the Legislative Decree 196/2003 is mandatory " end if %> <% if errore<>"" then response.write(" Attention. The form has not been filled in correctly. The following errors have been found: " &errore&" ")%> Go back and try again <%else%> We will you contact as soon as possible. <% body = "Richiesta compilata sul sito soglow.it - in lingua inglese" & VbCrLf & VbCrLf &_ "»Cliente" & VbCrLf &_ "Cognome: " & cognome & VbCrLf &_ "Nome: " & nome & VbCrLf & VbCrLf &_ "»Recapiti" & VbCrLf &_ "Indirizzo= " & indirizzo & VbCrLf &_ "Città: " & citta & VbCrLf &_ "Telefono: " & telefono & VbCrLf &_ "Cellulare: " & cellulare & VbCrLf &_ "Email: " & email & VbCrLf & VbCrLf &_ "»Messaggio" & VbCrLf &_ "Check in: " & giornoda & VbCrLf &_ "Check out:" & giornoa & VbCrLf &_ "Numero di persone: " & npersone & VbCrLf &_ "Tipologia di appartamento: " & tipologia & VbCrLf &_ "Richiesta: " & Richiesta& VbCrLf & VbCrLf &_ "Autorizzazione concessa al trattamento dati ai sensi del D.lgs.196/2003" & VbCrLf &_ "Data: " & date() Dim objMessage, objConfig Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From= email objMail.To= "info@soglow.it" objMail.BCC= "michelemezzina@gmail.com;reception@soglow.it" objMail.Subject="soglow.it: richiesta informazioni camere" objMail.Body=Body objMail.importance=0 objMail.Send Set objMail = nothing end if end if %> |
SOGLOW Business Class Aparthotel Via Terlizzi n. 1 - 70056 Molfetta (BA) Tel / Fax (+39) 080.335.58.12 Mobile (+39) 333.16.22.896 E-mail reception@soglow.it |