<%
' change to address of your own SMTP server
strHost = "smtp.lacorujadelebro.com"
If Request("Enviar") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.Username = "pcm210c"
Mail.Password = "Sistemas1"
Mail.From = "sistemas@lacorujadelebro.com"
Mail.FromName = "Administracion La Coruja del Ebro"
Mail.AddAddress "oscar@lacorujadelebro.com"
'Mail.AddAddress "avillacorta@suggiero.com"
' message subject
Mail.Subject = "Nueva solicitud de reserva desde lacorujadelebro.com"
' message body
strbody= "
Se ha recibido una nueva solicitud de reserva con los siguientes datos
Nombre y apellidos: "+request.Form("nombre")+" "+ request.Form("apellido")+"
E-mail: "+ request.Form("email")+"
Teléfono: "+ request.Form("telefono")+"
Fecha de llegada: "+ request.Form("llegada")+"
Fecha de Salida: "+ request.Form("salida")+"
Número de personas: "+ request.Form("n_de_personas")+"
Número de apartamentos: "+ request.Form("n_de_apartamentos")+"
Tipo de apartamento: "+ request.Form("tipo_apartamento")+"
Comentarios: "+request.Form("comentarios")+"
"
Mail.Body = strbody
Mail.IsHTML = True
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
Centro de turismo rural La Coruja del Ebro. Apartamentos rurales en Cantabria - Sobrepeña - Turismo rural y activo en Valderredible
<% If strErr <> "" Then %>
Error occurred: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
Reserva enviada con éxito
<% End If %>
La cumplimentación y envió del
presente formulario no constituye por si mismo la realización de
una reserva, siendo una petición de reserva sujeta a confirmación
por parte de la empresa.
