Para inscribirse a nuestras tiradas de patos puede hacerlo de 3 formas:
Llamándonos al
610 71 00 74
Escribirnos un e-mail a
patos@besteiros.com
O rellenando sus datos en este formulario
<% Function codareadetexto(texto) textook = replace(texto,vbCrLf,"
") codareadetexto = textook End Function Function porcorreo(campos,mensaje) camposform=campos cabeceramail="
"&Mensaje&"
" cierremail="
Correo enviado el "&Date()&" a las "&Time()&" desde la IP: "&Request.ServerVariables("REMOTE_ADDR")&"
" campos = Split(camposform,",") camposok=Replace(camposform,"_"," ") camposok=Split(camposok,",") i=0 total=ubound(campos) Do while total>=i email=email&"
"&camposok(i)&":
"&codareadetexto(Request(campos(i)))&"
" i=i+1 Loop porcorreo=cabeceramail&email&cierremail End Function if Request("enviar")="si" then campos= "Nombre_completo,Dirección,Ciudad,Teléfono1,Teléfono2,e-mail,Mensaje" mensaje=porcorreo(campos,"Mensaje enviado desde la web de Grafi Embalajes:") email = "lbejarano@memoriaexpandida.com" asunto="Mensaje enviado desde la web de Grafi Embalajes" Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.IsHTML= true Mailer.FromName = "Web de Grafi Embalajes" Mailer.From = email Mailer.Subject = asunto Mailer.Host = "smtp.grafiembalajes.com" Mailer.AddAddress "grafiembalajes@grafiembalajes.com" Mailer.Body = mensaje strErr = "" bSuccess = False On Error Resume Next ' catch errors Mailer.Send ' send message if Err <> 0 Then ' error occurred strErr = Err.Description Response.Write("No se pudo enviar el email. El error fue:" &strErr&".") else bSuccess = True Response.Write("Estimado "&Request("Nombre_completo")&", su mensaje se han enviado correctamente.
Nos pondremos en contacto con usted a la mayor brevedad posible. Gracias.
Pulse aquí para enviar un Nuevo Mensaje
") end if set Mailer = nothing else %>
Nombre:
e-mail:
Teléfono fijo:
Móvil:
Indique los detalles
de su reserva:
(fecha en la que está interesado,
número de asistentes, etc...)
<%end if%>
