<%@ Language=VBScript %> <% Option Explicit Dim conexion,registros,sql,diasemana,dia,mes,anno,mimes,misemana,estedia,nivel,empresa,idmaestro Set registros = Server.CreateObject ("ADODB.RECORDSET") registros.CursorLocation = 2 registros.CursorType = 2 registros.LockType = 3 Set conexion= Server.CreateObject ("ADODB.connection")%> <%conexion.CursorLocation = 1 conexion.Open 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="Miércoles" case 5 misemana="Jueves" case 6 misemana="Viernes" case 7 misemana="Sábado" 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) %> Evento - Notificación de Participación
 
 
Evento - I Jornada de actualización de proveedores 2007

Inicio  | « Atrás
 
Solicitud de participación


¡Gracias por interesarse en participar en el evento I Jornada de actualización de proveedores 2007.

Para registrarse, únicamente deberá llenar los datos que son requeridos en este formulario y el personal del CIEC Centro de Negocios le contactará para confirmar su solicitud.

La Cámara de Industriales del Estado Carabobo se reserva el derecho de admitir empresas en este evento.
Se permitirá un máximo de 2 participantes por empresa, por motivos de espacio.

Compradores participantes:
 
             
 

Dirigido a:
Proveedores de repuestos, servicios, suministros, materia prima, seguridad, químicos, transportes, equipos de oficinas, uniforme, metalmecanicos, materiales eléctricos, construcción, mantenimiento, entre otros.

Lugar: Miércoles, 7 de noviembre de 2007 en el Auditorio Dr. Luis Núñez Pérez., Valencia, Av. Ernesto L. Branger, Edif. Cámara de Industriales del Estado Carabobo. (CIEC)

Hora: 12:00 pm a 5:00 pm.

Inversión de participación:
• Bs. 300.000 + IVA (Bs. F 300 + IVA) por empresa, de 1 a 2 participantes, desde el 29 de octubre hasta el día del evento.
• Bs. 150.000 + IVA (Bs. F 150 + IVA) por empresa, de 1 a 2 participantes, afiliados al CIEC Centro de Negocios.
(* incluye el directorio de empresas afiliadas.)

Envíe cheque a nombre de Proyectos Web IW C.A. (se recibe en recepción CIEC), o deposite en la cuenta corriente No. 0171023835 de CENTRAL BANCO UNIVERSAL.

Para mayor información contáctenos al número telefónico 0241-8385604 – 6170306 o al e-mail info@ciec.org.ve. www.ciec.org.ve

Los campos marcados (*) son opcionales.
 
Datos de la Empresa
   
Empresa:
Dirección:
Teléfono:
R. I. F.:
Fax: *
Página Web: *
A que se dedica:
Forma de pago: Depósito Cheque
   
Datos personales
   
Nombre y apellido:
Correo electrónico:
Cargo:
   
Si desea agregar otro participante:
   
Nombre y apellido:
Correo electrónico:
Cargo:
   
 
 
 

Inicio  | « Atrás
 
            2006 l CIEC Centro de Negocios es un producto de software ideado y desarrollado por Ingeniería Web.
<%if Request("oculto")="1" then Dim id_var,empresa_var,direccion_var,telefono_var,fax_var,web_var,comentario_var,forma_pago_var Dim contacto_var,email_var,cargo_var,contacto2_var,email2_var,cargo2_var,fecha_var Dim Mailer,parte1,parte2,clavemail,numero,imgboletin,contacto2,silla_var,rif_var,nit_var empresa_var = request("empresa_txt") direccion_var = request("direccion_txt") telefono_var = request("telefono_txt") rif_var = request("rif_txt") nit_var = request("nit_txt") fax_var = request("fax_txt") web_var = request("web_txt") comentario_var = request("comentario_txt") if request("R1")="V1" then forma_pago_var = 0 end if if request("R1")="V2" then forma_pago_var = 1 end if contacto_var = request("contacto_txt") email_var = request("email_txt") cargo_var = request("cargo_txt") contacto2_var = request("contacto2_txt") email2_var = request("email2_txt") cargo2_var = request("cargo2_txt") fecha_var = date sql="select max(id) as mayor from iw_eventoparticipantes" registros.open sql,conexion,1 id_var=registros("mayor")+1 If isnull(id_var) then id_var=1 End If registros.close sql="select max(silla) as mayor from iw_eventosilla" registros.open sql,conexion,1 silla_var=registros("mayor")+1 If isnull(silla_var) then silla_var=1 End If registros.close sql="select * from iw_eventosilla" registros.open sql,conexion,1 registros.AddNew registros("id")=id_var registros("silla")=silla_var registros("contacto")=contacto_var registros("email")=email_var registros("cargo")=cargo_var registros.Update registros.close If contacto2_var<>"" then sql="select max(silla) as mayor from iw_eventosilla" registros.open sql,conexion,1 silla_var=registros("mayor")+1 registros.close sql="select * from iw_eventosilla" registros.open sql,conexion,1 registros.AddNew registros("id")=id_var registros("silla")=silla_var registros("contacto")=contacto2_var registros("email")=email2_var registros("cargo")=cargo2_var registros.Update registros.close End if sql="select * from iw_eventoparticipantes" registros.open sql,conexion,1 registros.AddNew registros("id")=id_var registros("empresa")=empresa_var registros("direccion")=direccion_var registros("telefono")=telefono_var registros("rif")=rif_var registros("nit")=nit_var registros("fax")=fax_var registros("web")=web_var registros("comentario")=comentario_var registros("forma_pago")=forma_pago_var registros("fecha")=fecha_var registros("status")=0 registros("checkin")=0 registros.Update registros.close set registros = Nothing conexion.close set conexion = Nothing if forma_pago_var=0 then forma_pago_var = "Depósito" end if if forma_pago_var=1 then forma_pago_var = "Depósito" end if If contacto2_var<>"" then contacto2="
Participante: "&contacto2_var&"
Correo electrónico: "&email2_var&"
Cargo: "&cargo2_var End if 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="Miércoles" case 5 misemana="Jueves" case 6 misemana="Viernes" case 7 misemana="Sábado" 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 = "CIEC Centro de Negocios" Mailer.FromAddress = "info@ciec.org.ve" Mailer.Subject = "CIEC, Solicitud de participación" Mailer.BodyText = "
 

"&estedia&"

CIEC Centro de Negocios
Solicitud de Participación

Estimado, "&contacto_var&"

Gracias por interesarse en el evento: I Jornada de actualización de proveedores 2007.

Sus datos de registro son los siguientes:

Empresa: "&empresa_var&"
Dirección: "&direccion_var&"
Teléfono: "&telefono_var&"
R. I. F.: "&rif_var&"
N. I. T.: "&nit_var&"
Fax: "&fax_var&"
Web: "&web_var&"
A que se dedica: "&comentario_var&"
Forma de pago: "&forma_pago_var&"

Participante: "&contacto_var&"
Correo electrónico: "&email_var&"
Cargo: "&cargo_var&"
"&contacto2&"

La Cámara de Industriales del Estado Carabobo se reserva el derecho de admitir empresas en este evento. Nuestra política es estudiar su información y proceder a comunicarnos con Ud. en el menor tiempo posible. Gracias nuevamente por su solicitud.

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

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 correo electrónico no podrá ser considerado SPAM mientras incluya una forma de ser removido o sea distribuido una sola vez. CIEC posee una rígida política contra el correo electrónico 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.

 
" Mailer.AddRecipient contacto_var, email_var Mailer.AddBCC "Webmaster CIEC", "info@ciec.org.ve" Mailer.SendMail If Err.Number <> 0 Then%> <%Response.Write "Error al enviar el mensaje: " & Err.Description else%> <%end if Set Mailer = Nothing end if%>