<% On Error Resume Next if Request.Form <> "" AND Request.Form("Enviar") <> "" then bSaved = false bSuccess = true bFinish = false sNombre = "" & Replace(Request.Form("nombre"), "'", "\'") sApellidos = "" & Replace(Request.Form("apellidos"), "'", "\'") sCorreo = "" & Replace(Request.Form("mail"), "'", "\'") sNoches = "" & Replace(Request.Form("noches"), "'", "\'") sHabitaciones = "" & Replace(Request.Form("habitaciones"), "'", "\'") sTipoHabitacion = "" & Replace(Request.Form("tipohabitacion"), "'", "\'") sPersonas = "" & Replace(Request.Form("personas"), "'", "\'") sLlegada = "" & Replace(Request.Form("llegada"), "'", "\'") sSalida = "" & Replace(Request.Form("salida"), "'", "\'") sComentarios = "" & Replace(Request.Form("observaciones"), "'", "\'") 'if sNombre&sApellidos = "" then bMissingNombre = true: bSuccess = false else bMissingNombre = false 'if sCorreo = "" then bMissingCorreo = true: bSuccess = false else bMissingCorreo = false if bSuccess then MyBody = "" MyBody = "---------------------------------" & vbCrlF MyBody = MyBody & "Contactenos" & vbCrlF MyBody = MyBody & "---------------------------------" & vbCrlF MyBody = MyBody & "Nombre: " & sNombre & vbCrlF MyBody = MyBody & "Apellidos: " & sApellidos & vbCrlF MyBody = MyBody & "Correo: " & sCorreo & vbCrlF MyBody = MyBody & "---------------------------------" & vbCrlF MyBody = MyBody & "Llegada: " & sLlegada & vbCrlF MyBody = MyBody & "Salida: " & sSalida & vbCrlF MyBody = MyBody & "Noches: " & sNoches & vbCrlF MyBody = MyBody & "Tipo de Habitacion: " & sTipoHabitacion & vbCrlF MyBody = MyBody & "No. de Habitaciones: " & sHabitaciones & vbCrlF MyBody = MyBody & "Personas: " & sPersonas & vbCrlF MyBody = MyBody & "---------------------------------" & vbCrlF MyBody = MyBody & "Comentarios: " & sComentarios & vbCrlF MyBody = MyBody & "---------------------------------" & vbCrlF sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing" smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver" ' Set the mail server configuration Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net" objConfig.Fields.Update ' Create and send the mail Set objMail=CreateObject("CDO.Message") ' Use the config object created above Set objMail.Configuration=objConfig objMail.From="info@green-tulum.com" objMail.ReplyTo=sCorreo objMail.To="info@green-tulum.com" objMail.Subject="Contactenos" objMail.TextBody=MyBody objMail.Send bFinish = true end if end if %> <% ' Error Handler If Err.Number <> 0 Then ' Clear response buffer Response.Clear ' Display Error Message to user %> An error occurred in the execution of this ASP page
Please report the following information to the support desk

Page Error Object
Error Number <%= Err.Number %>
Error Description <%= Err.Description %>
Source <%= Err.Source %>
LineNumber <%= Err.Line %>
<% response.end End If %>