<% @Language="VBSCRIPT" CODEPAGE="1252" %> <% Option Explicit On Error Resume Next Dim mensaje, sch, cdoConfig, cdoMessage, Asunto, cuerpo, remitente, destino, accion, msg ' Dim con_copia Const WEB = "cooperativasanbernabe.com" accion = Request.Form("oculto") if accion = "enviar" then sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "localhost" .Item(sch & "smtpserverport") = 25 .update End With Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig Remitente = Request.Form("email") Asunto = "Correo desde la web www." & WEB Cuerpo = Request.Form("comentarios") 'pongo el texto del mensaje Msg = "-----------------------------------------" & vbcrlf Msg = Msg & "CONTACTO recibido desde la web www." & WEB & vbcrlf Msg = Msg & Request.Form("Nombre") & ", con teléfono nº: " & Request.Form("Telefono") Msg = Msg & ", desea ponerse en contacto con usted. Los comentarios enviados son:" Msg = Msg & vbcrlf & cuerpo Msg = Msg &vbcrlf&vbcrlf&vbcrlf Msg = Msg & "-----------------------------------------"&vbcrlf Msg = Msg & "Resumen de datos recibidos" & vbcrlf Msg = Msg & "-----------------------------------------"&vbcrlf&vbcrlf Msg = Msg & "Nombre: " & Request.Form("Nombre") & vbcrlf Msg = Msg & "Telefono: " & Request.Form("Telefono") &vbcrlf Msg = Msg & "E-Mail: " & Request.Form("Email")&vbcrlf Msg = Msg & "Fecha de envío: " & Now()&vbcrlf&vbcrlf&vbcrlf Destino = "info@" & WEB 'Email de destino 'destino = "raulromeromoreno@gmail.com" con_copia = "coop_sanbernabe@terra.es; " cdoMessage.From = Remitente cdoMessage.To = destino cdoMessage.CC = con_copia cdoMessage.Subject = asunto cdoMessage.TextBody = msg cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing accion = "gracias" end if if err.number <> 0 then mensaje = "Error al enviar el correo." else mensaje = "Mensaje enviado con éxito. Le atenderemos lo antes posible. Desde Cooperativa San Bernabé le damos las gracias por confiar en nosotros." end if %> Cooperativa San Bernabé - Arenas de San Juan
 Historia de la Cooperativa San BernabéServicios Cooperativa San BernabéProductos de la cooperativaInstalaciones de la cooperativaGalería de fotosContacta con la cooperativaUbicación Cooperativa San Bernabé

Cooperativa San Bernabé Apóstol

<% if accion = "" then %>

Envíanos tu consulta y atenderemos tu consulta en el menor tiempo posible. Gracias por confiar en Cooperativa Agrícola San Bernabé Apóstol

Nombre y apellidos:
Empresa:
Teléfono:
e-mail:
Comentarios:
Consulta a la cooperativa Limpiar datos introducidos
<% else %>

<%= mensaje %>

Escribir otra consulta a la cooperativa <% end if %>
Ctra. Villarta 22 | 13679 Arenas de San Juan (Ciudad Real) | Tfno. y Fax: 926 893 033 | info@cooperativasanbernabe.com | © 2009 Cooperativa San Bernabé Apóstol