Para los eventos pagos realizar depósito a nombre de: CÁMARA DE
INDUSTRIALES DEL ESTADO CARABOBO, en la
cuenta corriente número
0171008562 del Banco Central Banco
Universal, R. I. F.:
J-075109112.
Inscripción en eventos:
<%if Request("oculto")="1" then
dim id_var
dim empresa_var
dim telefono_var
dim email_var
dim evento_var
dim fecha_var
dim hora_var
dim afiliado_var
dim medio_var
dim planilla_var
dim persona_var
dim participantes_var
if request("empresa_txt")="" then
empresa_var = request("empresa_cmb")
else
empresa_var = request("empresa_txt")
end if
persona_var = request("persona_txt")
telefono_var = request("telefono_txt")
email_var = request("email_txt")
evento_var = request("evento_cmb")
participantes_var = request("participantes_cmb")
fecha_var = date
hora_var = time
if request("R3")="V1" then
afiliado_var="Si"
end if
if request("R3")="V2" then
afiliado_var="No"
end if
if request("R1")="V1" then
planilla_var = request("planilla_txt")
end if
if request("R1")="V2" then
planilla_var = "Pago en puerta"
end if
sql="select max(id) as mayor from ciec_eventos"
registros.open sql,conexion,1
id_var=registros("mayor")+1
If isnull(id_var) then
id_var=1
End If
registros.close
sql="select * from ciec_eventos"
registros.open sql,conexion,1
registros.AddNew
registros("id")=id_var
registros("empresa")=empresa_var
registros("telefono")=telefono_var
registros("email")=email_var
registros("evento")=evento_var
registros("fecha")=fecha_var
registros("hora")=hora_var
registros("afiliado")=afiliado_var
registros("planilla")=planilla_var
registros("persona")=persona_var
registros("participantes")=participantes_var
registros.Update
registros.close
sql="select * from ciec_eventostemporal"
registros.Open sql,conexion,1
if registros.EOF =false or registros.BOF =false then
do while registros.EOF = false
sql="select * from ciec_eventospersonas"
registros2.open sql,conexion,1
registros2.AddNew
registros2("id_afiliado")=id_var
registros2("nombre")=registros("nombre")
registros2("telefono")=registros("telefono")
registros2("email")=registros("email")
registros2("cargo")=registros("cargo")
registros2("medio")=registros("medio")
registros2.Update
registros2.Close
registros.movenext
loop
end if
registros.close
set registros = Nothing
conexion.close
set conexion = Nothing%>
<%dim Mailer
dim correo
dim suscriptor
dim hoy
dim mes,anno,estedia,dia,diasemana
dim 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="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 = misemana +", "+Cstr(dia)+" de "+ mimes +" de "+Cstr(anno)
dim i, total_var
Set Mailer=Server.CreateObject("Dundas.Mailer")
Mailer.TOs.Add email_var
Mailer.FromName = "CIEC servicios en línea"
Mailer.FromAddress= "eventos@ciec.org.ve"
Mailer.Subject = "Inscripción en "&evento_var
Mailer.Body = "Estimado "&empresa_var&" Su inscripción ha sido aceptada por la coordinación de eventos de la Cámara de Industriales del estado Carabobo, en cuanto se verifiquen los datos suministrados le estaremos contactando. En caso de cancelación de reservaciones deben realizarse antes de 24 horas del inicio del evento. Atentamente, Coordinación de Programas y Eventos Especiales de la CIEC"&" - Enviado desde Registro de Eventos (registro.asp)"
Mailer.SendMail
If Err.Number <> 0 Then
Response.Write "Error al enviar el boletín: " & Err.Description
end if
Set Mailer = Nothing
end if%>
