<% dim data, ora, Cognome, Nome, telefono, email, indirizzo, citta, stato, arrivo, partenza, adulti, bambini00, bambini05, bambini11, bambini12, tipologia dim trattamento, note cognome = request.form("Cognome") nome = request.form("Nome") telefono = request.form("Telefono") email = request.form("Email") indirizzo = request.form("Indirizzo") citta=request.form("citta'") stato=request.form("Stato") arrivo=request.form("Data_arrivo") partenza=request.form("Data_partenza") adulti=request.form("Adulti") bambini00=request.form("Bambini0-1") bambini05=request.form("Bambini2-5") bambini11=request.form("Bambini6-11") bambini12=request.form("Bambini12") tipologia=request.form("Tipologia_camera") trattamento=request.form("Trattamento") note=request.form("Note") msg = "

Mail con campi obbligatori:

" msg = msg + "

[DATA]

" msg = msg + "

Cognome, Nome: [COGNOME], [NOME]
" msg = msg + "Telefono: [TELEFONO]
" msg = msg + "E-mail: [EMAIL]
" msg = msg + "Indirizzo: [INDIRIZZO]
" msg = msg + "Citta': [CITTA]
" msg = msg + "Stato: [STATO]


" msg = msg + "Data arrivo preferita: [ARRIVO]
" msg = msg + "Data partenza preferita: [PARTENZA]
" msg = msg + "Numero adulti: [ADULTI]
" msg = msg + "N. bambini 0-1 anni: [BAMBINI00]
" msg = msg + "N. bambini 2-5 anni: [BAMBINI05]
" msg = msg + "N. bambini 6-11 anni: [BAMBINI11]
" msg = msg + "N. bambini oltre 12 anni: [BAMBINI12]
" msg = msg + "Tipologia camera: [TIPOLOGIA]
" msg = msg + "Trattamento preferito: [TRATTAMENTO]
" msg = msg + "Ulteriori richieste: [NOTE]

" data = now() ora = time msg = replace(msg, "[DATA]", data) msg = replace(msg, "[COGNOME]", cognome) msg = replace(msg, "[NOME]", nome) msg = replace(msg, "[TELEFONO]", telefono) msg = replace(msg, "[EMAIL]", email) msg = replace(msg, "[INDIRIZZO]", indirizzo) msg = replace(msg, "[CITTA]", citta) msg = replace(msg, "[STATO]", stato) msg = replace(msg, "[ARRIVO]", arrivo) msg = replace(msg, "[PARTENZA]", partenza) msg = replace(msg, "[ADULTI]", adulti) msg = replace(msg, "[BAMBINI00]", bambini00) msg = replace(msg, "[BAMBINI05]", bambini05) msg = replace(msg, "[BAMBINI11]", bambini11) msg = replace(msg, "[BAMBINI12]", bambini12) msg = replace(msg, "[TIPOLOGIA]", tipologia) msg = replace(msg, "[TRATTAMENTO]", trattamento) msg = replace(msg, "[NOTE]", note) Set link = CreateObject("CDO.Message") link.From = "webmail@hotelastoria-caorle.it" link.To = "info@hotelastoria-caorle.it" link.Subject = "MAIL A CAMPI OBBLIGATORI" link.HTMLBody = msg link.Fields("urn:schemas:httpmail:importance").Value = 2 link.Fields.Update() link.Send Set link = Nothing %>
  • Prenota Online