| |
| |
<%if Request("oculto")="1" then
dim nombre_var,apellido_var,empresa_var,email_var,telefono_var,cargo_var,fecha_var
dim sexo_var,cumpleanos_var,id_var,depto_var,web_var,comentario_var,checks,numero,imgboletin
randomize
numero=int((rnd*8)+1)
select case numero
case 1 imgboletin=" "
case 2 imgboletin=" "
case 3 imgboletin=" "
case 4 imgboletin=" "
case 5 imgboletin=" "
case 6 imgboletin=" "
case 7 imgboletin=" "
case 8 imgboletin=" "
end select
nombre_var=Request("nombre_txt")
apellido_var=Request("apellido_txt")
empresa_var=Request("empresa_txt")
cargo_var=Request("cargo_txt")
telefono_var=Request("telefono_txt")
email_var=Request("email_txt")
sexo_var=Request("sexo_cmb")
cumpleanos_var=request("dia_cmb")+"/"+request("mes_cmb")
fecha_var=date
depto_var = request("depto_txt")
comentario_var = request("comentario_txt")
checks=""
If request("web_txt")="" then
web_var = "No tiene"
Else
web_var = request("web_txt")
End if
sql="select email from ciec_afiliado where email='"&email_var&"'"
registros.open sql,conexion,1
if not registros.bof and not registros.eof then%>
<%else
registros.close
sql="select max(id) as mayor from ciec_afiliado"
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_afiliado"
registros.open sql,conexion,1
registros.AddNew
registros("id")=id_var
registros("nombre")=nombre_var
registros("apellido")=apellido_var
registros("empresa")=empresa_var
registros("cargo")=cargo_var
registros("telefono")=telefono_var
registros("fecha")=fecha_var
registros("email")=email_var
registros("sexo")=sexo_var
registros("cumpleanos")=cumpleanos_var
registros("depto")=depto_var
registros("web")=web_var
registros("comentario")=comentario_var
registros("nivel")=16
if request("C1")="ON" then
registros("titulares")=1
checks=checks&" Resumen de titulares del día
"
else
registros("titulares")=0
checks=checks&" Resumen de titulares del día
"
end if
if request("C2")="ON" then
registros("documentos")=1
checks=checks&"Resumen de últimos documentos publicados
"
else
registros("documentos")=0
checks=checks&"Resumen de últimos documentos publicados
"
end if
if request("C3")="ON" then
registros("especiales")=1
checks=checks&"Informaciones especiales
"
else
registros("especiales")=0
checks=checks&"Informaciones especiales
"
end if
if request("C4")="ON" then
registros("proveedores")=1
checks=checks&"Información comercial de patrocinantes
"
else
registros("proveedores")=0
checks=checks&"Información comercial de patrocinantes
"
end if
if request("C5")="ON" then
registros("eventos")=1
checks=checks&"Información de eventos
"
else
registros("eventos")=0
checks=checks&"Información de eventos
"
end if
if request("C6")="ON" then
registros("calidad")=1
checks=checks&"Información sobre calidad
"
else
registros("calidad")=0
checks=checks&"Información sobre calidad
"
end if
if request("C7")="ON" then
registros("social")=1
checks=checks&"Información sobre Responsabilidad Social
"
else
registros("social")=0
checks=checks&"Información sobre Responsabilidad Social
"
end if
if request("C8")="ON" then
registros("cadivi")=1
checks=checks&"Información sobre CADIVI
"
else
registros("cadivi")=0
checks=checks&"Información sobre CADIVI
"
end if
if request("C9")="ON" then
registros("gacetas")=1
checks=checks&"Resumen de Gacetas Oficiales
"
else
registros("gacetas")=0
checks=checks&"Resumen de Gacetas Oficiales
"
end if
if request("C10")="ON" then
registros("negocios")=1
checks=checks&"Información de Negocios
"
else
registros("negocios")=0
checks=checks&"Información de Negocios
"
end if
if request("C11")="ON" then
registros("catciec")=1
checks=checks&"Catálogo de la CIEC
"
else
registros("catciec")=0
checks=checks&"Catálogo de la CIEC
"
end if
if request("C12")="ON" then
registros("negint")=1
checks=checks&"Información sobre Negociaciones internacionales
"
else
registros("negint")=0
checks=checks&"Información sobre Negociaciones internacionales
"
end if
registros.Update
registros.Close
set registros = Nothing
conexion.close
set conexion = Nothing
if sexo_var=1 then
sexo_var="Masculino"
else
sexo_var="Femenino"
end if
Dim Mailer
Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")
Mailer.ContentType = "text/html"
Mailer.CharSet = 2
Mailer.RemoteHost = "mail.ciec.org.ve"
Mailer.AddRecipient nombre_var&" "&apellido_var, email_var
Mailer.AddBCC "WebMaster CIEC", "info@ciec.org.ve"
Mailer.FromName = "CIEC en línea"
Mailer.FromAddress = "info@ciec.org.ve"
Mailer.Subject = nombre_var & ", Bienvenido a CIEC en línea"
Mailer.BodyText = " | "&imgboletin&" | | | | Cámara de Industriales del Estado Carabobo | | Servicio CIEC en línea | | | | "&nombre_var&", Bienvenido a CIEC en línea | | | Felicitaciones! Ud. se ha registrado exitosamente a CIEC en línea, el sistema de información vía web de la Cámara de Industriales del Estado Carabobo. Desde este momento estará recibiendo información y noticias del ámbito empresarial y de negocios. Le recordamos que desde los boletines que llegan a su email Ud. puede modificar las preferencias de recepción de boletines. Cancelar aquellos que no desea seguir recibiendo y agregar los que le interesan. Los datos que nos proporcionó fueron los siguientes: Nombre: "&nombre_var&"
Apellido: "&apellido_var&"
Sexo: "&sexo_var&"
Cumpleaños: "&cumpleanos_var&"
Empresa: "&empresa_var&"
Cargo: "&cargo_var&"
Teléfono: "&telefono_var&"
Los boletines que recibirá a partir de ahora son los siguientes:
"&checks&" Gracias por unirse a CIEC en línea. Esperamos que encuentre nuestro servicio de gran utilidad. | | | 
| | |
| 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 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 | | |
| "
if not(Mailer.SendMail) then
Response.Write Mailer.Response
else
Response.Write Mailer.Response
end if
Set Mailer = Nothing%>
<%end if
end if%>
|
