<% ' ******************************************************************** ' ' Posada NACI EBRO ' (c) 2010 ' ' ******************************************************************** %> <% Function cogerRandom (numTotal) Randomize cogerRandom = Int((numTotal - 1 + 1)*Rnd() + 1) End Function %> <% strMailHost = "correointerno.mundivia.es" function enviarEmail (c_from, c_from_n, c_to, c_to_n, c_subjet, c_body, c_fichero) enviarEmail = e_mail_w2003(c_from, c_from_n, c_to, c_to_n, c_subjet, c_body, c_fichero, False) end function function enviarEmailHtml (c_from, c_from_n, c_to, c_to_n, c_subjet, c_body, c_fichero) enviarEmailHtml = e_mail_w2003(c_from, c_from_n, c_to, c_to_n, c_subjet, c_body, c_fichero, True) end function function e_mail_w2003 (c_from, c_from_n, c_to, c_to_n, c_subjet, c_body, c_fichero, c_html) on error resume next Set Mailer = CreateObject("CDO.Message") Mailer.From = c_from_n & " <" & c_from & ">" Mailer.To = c_to_n & " <" & c_to & ">" Mailer.Subject = c_subjet If c_html Then Mailer.HTMLBody = c_body Else Mailer.TextBody = c_body End If Mailer.Send if err<>0 then enviado = false else enviado = true end if set Mailer=nothing e_mail_w2003 = enviado end function function e_mail_w2000 (c_from, c_from_n, c_to, c_to_n, c_subjet, c_body, c_fichero, c_html) on error resume next Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.From = c_from_n & " <" & c_from & ">" Mailer.To = c_to_n & " <" & c_to & ">" Mailer.Subject = c_subjet Mailer.Body = c_body If c_html Then Mailer.BodyFormat = 0 Mailer.MailFormat = 0 End If if c_fichero <> "" then Mailer.Attachfile(c_fichero) end if Mailer.Send if err<>0 then enviado = false else enviado = true end if set Mailer=nothing e_mail_w2000 = enviado end function %> <% If Request.Form("accion") = "ENVIAR" Then c_from = request.form("email") c_from_n = request.form("nombre") c_to = "pjgutierrez@mundivia,.es" c_to_n = "casadecampoo.com" If c_from = "" Then c_from = c_to c_from_n = c_to_n End If If c_from_n = "" Then c_from_n = c_to_n c_subjet = "Formulario de Contacto de la web" c_body = "" c_body = c_body & "Formulario de Contacto" & vbcrlf c_body = c_body & vbcrlf c_body = c_body & "Casadecampoo.com" & vbcrlf c_body = c_body & vbcrlf c_body = c_body & "Nombre y Apellidos ......................: " & request.form("nombre") & vbcrlf c_body = c_body & vbcrlf c_body = c_body & "Teléfono ....................................: " & request.form("telefono") & vbcrlf c_body = c_body & vbcrlf c_body = c_body & "E-mail ......................................: " & request.form("email") & vbcrlf c_body = c_body & vbcrlf c_body = c_body & "Consulta ....................................: " & request.form("comentarios") & vbcrlf enviado = enviarEmail(c_from, c_from_n, c_to, c_to_n, c_subjet, c_body, True) %> <% Response.End End If %>

	INICIO  LA CASA  HABITACIONES  APARTAMENTOS  COMO LLEGAR  ACTIVIDADES  CAMPOO EN FOTOS  TARIFAS  CONTACTO Piedad Ceballos Gutierrez Móvil: 630 447 628 Juan Carlos Fernández Ceballos Móvil: 630 536 205 Posada Naci-Ebro C/ Los Pilones 39212 Fontibre (Cantabria) Teléfono: 942 779 788