<%@ Language=VBScript %> <% Option Explicit dim conexion, registros dim sql set conexion = Server.CreateObject ("ADODB.connection") %><% conexion.CursorLocation = 3 conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") registros.CursorLocation = 2 registros.CursorType = 2 registros.LockType = 3 %> Bolsa de Residuos en la Web

 

   
Para: recicla@ciec.org.ve
Nombre:
Apellido:

E-mail:

Asunto:
Contenido:

Comisión de Ambiente de la Cámara de Industriales del Estado Carabobo;
www.ciec.org.ve
Ing. Ángel Baricelli, Presidente. E-mail: ambiente@ciec.org.ve
Teléfonos: 0241- 6170291 / 6170306 Fax: 0241- 6170295 - 8341920

Comisión de Ambiente Asamblea Nacional
www.asambleanacional.gov.ve
E-mail: guidoproamb@cantv.net
Leilablugo@hotmail.com
Oikolex@hotmail.com
Pedro Díaz Blum; Diputado Asamblea Nacional Estado Carabobo
E-mail: diazblum@telcel.net.ve No. Celular: 0414-4146868
Carlitos Rodríguez, Asistente del Dip. Ezequiel Vivas Terán
E-mail: carlitosrodríguez44@yahoo.es

M.A.R.N. Dirección Estadal Ambiental Carabobo
Ing. Alba Villaquirán, Directora Estadal Ambiental del Estado Carabobo
Teléfonos: 0241- 8680091 Directo
0241- 8674132 / 8674472
Fax: 0241- 8674476

Gobierno de Carabobo; Secretaría de Planificación, Ordenación y Ambiente
Ing. María Auxiliadora Carrero, Directora General de Ambiente
E-mail: mariacol@cantv.net
Teléfonos: 0241- 8572521
No. Celular: 0412-5057172

<%If request("oculto_correo")="1" then Dim Mailer Dim diasemana,dia,mes,anno,estedia,misemana,mimes diasemana=weekday(now) dia=day(now) mes=month(now) anno=year(now) select case diasemana case 1 misemana="Domingo" case 2 misemana="Lunes" case 3 misemana="Martes" case 4 misemana="Miercoles" case 5 misemana="Jueves" case 6 misemana="Viernes" case 7 misemana="Sabado" end select select case mes case 1 mimes="enero" case 2 mimes="febrero" case 3 mimes="marzo" case 4 mimes="abril" case 5 mimes="mayo" case 6 mimes="junio" case 7 mimes="julio" case 8 mimes="agosto" case 9 mimes="septiembre" case 10 mimes="octubre" case 11 mimes="noviembre" case 12 mimes="diciembre" end select estedia = "Valencia, "+ misemana +" "+ Cstr(dia) +" de "+ mimes +" de "+ Cstr(anno) Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail") Mailer.ContentType = "text/html" Mailer.CharSet = 2 Mailer.RemoteHost = "mail.ciec.org.ve" Mailer.FromName = Request.Form("nombre") & " " & Request.Form("apellido") Mailer.FromAddress= "info@ciec.org.ve" Mailer.Subject = Request.Form("asunto") Mailer.BodyText = "

"&estedia&"

Cámara de Industriales del Estado Carabobo
Bolsa de Residuos RECICLA
 
"&Request.Form("asunto")&"
 
"&Request.Form("contenido")&"

Enviado desde "&Request.Form("De")&"
 

 

Para mas información visite:www.ciec.org.ve/recicla

 

Todos nuestros mensajes están 100% libre de Virus ya que no contienen ningún dato adjunto. En caso de recibir un mensaje que Usted crea que provenga de nosotros con un dato adjunto, elimínelo inmediatamente.

Bajo el decreto S.1618 titulo 3ro. Aprobado por el 105 congreso base de las normativas internacionales sobre SPAM, este E-mail no podrá ser considerado SPAM mientras incluya una forma de ser removido. CIEC posee una rígida política contra el email basura y el SPAM. Por favor, si usted no quiere recibir más esta información, por favor comuníquese con nosotros: info@ciec.org.ve y le daremos de baja inmediatamente de nuestra base de datos

 

Diseño y desarrollo: Ingeniería Web - IW

 
" Mailer.AddRecipient "WebMaster de RECICLA", "recicla@ciec.org.ve" Mailer.AddBCC "RECICLA", "cgsgesint@cantv.net" Mailer.AddBCC "RECICLA", "ejm2@daimlerchrysler.com" Mailer.AddBCC "RECICLA", "info@ciec.org.ve" If not(Mailer.SendMail) then%> <%Response.Write Mailer.Response else%> <%end if end if%>