<% If Request.Form <> "" Then %>
<%
For x = 1 To 11
If Not IsEmpty( Request.Form( "b" & x ) ) And Request.Form( "b" & x ) <> "" Then
If Not IsNumeric( Request.Form( "b" & x ) ) Then
Response.Write( "Valor de parámetro no corresponde" )
Response.End
End If
If Request.Form( "b" & x ) < CInt( 1 ) Or Request.Form( "b" & x ) > CInt( 44 ) Then
Response.Write( "Valor de parámetro no corresponde" )
Response.End
End If
End If
Next
'Estoy recibiendo el formulario, compongo el cuerpo
Response.Charset="UTF-8"
dim v(44)
v(1) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 1 8:30 - (Sala 1 Automatización) " & vbCrlf & "SISTEMA DE MANEJO DE MATERIALES INTERIOR REFINERÍAS, UN CASO DE AUTOMATIZACIÓN DE MANUFACTURA Exponen:" & vbCrlf & "Bruno I. Lértora y Rodrigo V. Mendoza - Codelco" & vbCrlf
v(2) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 1 8:30 - (Sala 2 Gestión Ops. Mineras) " & vbCrlf & "FUNDAMENTOS DEL MEJORAMIENTO CONTINUO EN OPERACIONES MINERAS Expone:" & vbCrlf & "Bozidar Dragicevic - Oracle" & vbCrlf
v(3) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 1 8:30 - (Sala 3 Nuevas Tecnologías: RFID)" & vbCrlf & "FUNDAMENTOS DE TECNOLOGÍA RFID Expone:" & vbCrlf & "Javier Ruiz del Solar – Universidad de Chile Duración:45 minutos" & vbCrlf
v(4) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 1 8:30 - (Sala 4 Sustentabilidad) " & vbCrlf & "MINERÍA DIGITAL: VIDEO VIGILANCIA INALÁMBRICA INTELIGENTE Expone:" & vbCrlf & "Ivan Kraljevic - Motorola" & vbCrlf
v(5) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 2 9:00 - (Sala 1 Automatización) " & vbCrlf & "CONTROL AVANZADO EN PROCESAMIENTO DE MINERALES: PRODUCTOS, DESAFIOS Y SOLUCIONES Expone:" & vbCrlf & " Aldo Cipriano - Pontificia Universidad Católica de Chile" & vbCrlf
v(6) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 2 9:00 - (Sala 2 Gestión Ops. Mineras) " & vbCrlf & "GESTIÓN EFICIENTE EN OPERACIONES MINERAS Expone:" & vbCrlf & "Daniel Wierna - IBM" & vbCrlf
v(7) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 2 9:00 - (Sala 3 Nuevas Tecnologías: RFID) " & vbCrlf & "NUEVAS APLICACIONES DE TECNOLOGÍA RFID Expone:" & vbCrlf & "Jong H. Kim - Ceyon Technology,Corea Duración:45 minutos" & vbCrlf
v(8) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 2 9:00 - (Sala 4 Sustentabilidad) " & vbCrlf & "POTENCIALIDAD DE LA VIDEODISTRIBUCIÓN O VIDEOSTREAMING PARA LA PROPAGACIÓN DE INFORMATIVOS Y ACCIONES PARA MITIGAR EL RIESGO LABORAL Y PRODUCTIVO Expone:" & vbCrlf & "Erik Torreiter – Latin Telecom" & vbCrlf
v(9) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 3 9:30 - (Sala 1 Automatización) " & vbCrlf & "PIITD, PLATAFORMA DE INFORMACION INTEGRADA PARA LA TOMA DE DECISIONES EN TIEMPO REAL Expone:" & vbCrlf & "Mario Inostroza - ABB" & vbCrlf
v(10) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 3 9:30 - (Sala 2 Gestión Ops. Mineras) " & vbCrlf & "GRUPOS DE TRABAJO A DISTANCIA OPERANDO MEDIANTE TECNOLOGÍA INTERACTIVA PARA ACORTAR PROCESOS DE DECISIÓN Y DESARROLLO DE PROYECTOS Expone:" & vbCrlf & "Peter Krisam – Latin Telecom" & vbCrlf
v(11) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 3 9:30 - (Sala 4 Sustentabilidad) " & vbCrlf & "SISTEMA DE COORDINACIÓN OPERACIONAL Y AMBIENTAL MINERO Expone:" & vbCrlf & "Dra. Alejandra Álvarez - MICOMO" & vbCrlf
v(12) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 4 10:30 - (Sala 1 Automatización) " & vbCrlf & "ROBOTIC TECHNOLOGY: A WAY TOWARDS AN INTELLIGENT MINING Exponen:" & vbCrlf & "Luís Ramírez, Luis Baeza, Juan Barros, Hugo Salamanca y Enrique Cooper - MIRS/Industrial Support Company Ltda." & vbCrlf
v(13) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 4 10:30 - (Sala 2 Gestión Ops. Mineras) " & vbCrlf & "SISTEMA DE GESTIÓN DE PÉRDIDAS PARA LA GERENCIA DE MINAS, DIVISIÓN EL TENIENTE Expone:" & vbCrlf & "María Loreto Núñez – Tech 1 Group" & vbCrlf
v(14) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 4 10:30 - (Sala 3 Nuevas Tecnologías: RFID) " & vbCrlf & "RFID Y ESTANDARES GLOBALES COMO HERRAMIENTA DE OPTIMIZACION DE PROCESOS EN MINERIA Expone:" & vbCrlf & "Jose Luis San Juan - GS1 Chile (Presenta Sonda)" & vbCrlf
v(15) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 4 10:30 - (Sala 4 Sustentabilidad) " & vbCrlf & "LA INICIATIVA GEVI: EL PRIMER GENERADOR VIRTUAL DE CHILE Exponen:" & vbCrlf & "Rodrigo Palma –Universidad de Chile" & vbCrlf
v(16) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 5 11:00 - (Sala 1 Automatización) " & vbCrlf & "TRAINSCOUT - IMPROVING LOCOMOTIVE PERFORMANCE AND MANAGEMENT Expone:" & vbCrlf & "Luis Fernando Neves - Accenture" & vbCrlf
v(17) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 5 11:00 - (Sala 2 Gestión Ops. Mineras) " & vbCrlf & "SIMULACIÓN DE PROCESOS EN PROYECTOS MINEROS Exponen:" & vbCrlf & "Iván Rubio y Sebastián Fuster - Pontificia Universidad Católica de Chile (Por confirmar)" & vbCrlf
v(18) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 5 11:00 - (Sala 3 Nuevas Tecnologías: RFID) " & vbCrlf & "SAP RFID Expone:" & vbCrlf & "Gonzalo Skármeta – SAP" & vbCrlf
v(19) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 5 11:00 - (Sala 4 Sustentabilidad) " & vbCrlf & "DESTRUCCIÓN DE ASKARELES POR PLASMA Exponen:" & vbCrlf & "Claudia Carrasco y Alejo Gallegos - Universidad de Concepción" & vbCrlf
v(20) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 6 11:30 - (Sala 1 Automatización) " & vbCrlf & "MINING SAFETY THROUGH ONLINE MONITORING WITH THE BOTDR (BRILLOUIN OPTICAL TIME-DOMAIN REFLECTOMETRY) Expone:" & vbCrlf & "Dra. Alejandra Alvarez - MICOMO" & vbCrlf
v(21) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 6 11:30 - (Sala 2 Gestión Ops. Mineras) " & vbCrlf & "AUMENTO DE PRODUCTIVIDAD DE LOS ACTIVOS DE LOS PROCESOS DE EXTRACCIÓN Y TRANSPORTE DE MINA ESMERALDA, DIVISIÓN EL TENIENTE Exponen:" & vbCrlf & "César Guzmán - Codelco" & vbCrlf
v(22) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 6 11:30 - (Sala 3 Nuevas Tecnologías: RFID) " & vbCrlf & "CONTROL DE HORAS EN PROYECTO DE CONSTRUCCIÓN MEDIANTE RFID Expone:" & vbCrlf & "Jaime Ramirez- BECHTEL CHILE" & vbCrlf
v(23) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 6 11:30 - (Sala 4 Sustentabilidad) " & vbCrlf & "WATER AND ENERGY BALANCES IN MINING AND METALLURGICAL PROCESSING PLANTS Exponen:" & vbCrlf & "Osvaldo Bascur y Ales Soudek - OSISOFT" & vbCrlf
v(24) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 7 12:30 - (Sala 1 Automatización) " & vbCrlf & "IMPLEMENTACION SISTEMA CONTROL FLOTACION ROUGHER Exponen:" & vbCrlf & "Arturo Barría - Codelco, División Andina / Mauricio Valdebenito - Metso Minerals Cisa-Chile" & vbCrlf
v(25) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 7 12:30 - (Sala 2 Gestión Ops. Mineras) " & vbCrlf & "MODELO TCO - TOTAL COST OF OWNERSHIP Expone:" & vbCrlf & "Roberto Puente – BHP Billiton" & vbCrlf
v(26) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 7 12:30 - (Sala 3 Nuevas Tecnologías: RFID) " & vbCrlf & "PROYECTO TENIENTE FUTURO: UNA VISIÓN DE CLASE MUNDIAL Expone:" & vbCrlf & "Héctor Soto - Codelco" & vbCrlf
v(27) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 7 12:30 - (Sala 4 Sustentabilidad) " & vbCrlf & "PREVENCIÓN DE RIEGOS CON EL USO DE IMÁGENES DIGITALES Exponen:" & vbCrlf & "Luis Fernando Alarcón, Sven Diethelm, Sebastián Fuster – Pontificia Universidad Católica de Chile" & vbCrlf
v(28) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 8 13:00 - (Sala 1 Automatización) " & vbCrlf & "MONITOREO Y DIAGNOSTICO DE LA OPERACIÓN DE PROCESOS DE FLOTACION USANDO TECNICAS DE PROYECCION Expone:" & vbCrlf & "Luis Bergh - UTFSM" & vbCrlf
v(29) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 8 13:00 - (Sala 2 Gestión Ops. Mineras) " & vbCrlf & "CONTABILIDAD DE PRODUCCIÓN EN LA INDUSTRIA MINERA Expone:" & vbCrlf & "Juan Manuel Mosso - Rockwell Automation" & vbCrlf
v(30) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 8 13:00 - (Sala 3 Nuevas Tecnologías: RFID) " & vbCrlf & "DETECCIÓN DE PRESENCIA EN MINA SUBTERRÁNEA MEDIANTE RFID Expone:" & vbCrlf & "Javier Torres – RFID Chile" & vbCrlf
v(31) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 8 13:00 - (Sala 4 Sustentabilidad) " & vbCrlf & "BIOMETRÍA POR VOZ PARA VALIDACIÓN DE IDENTIDAD Expone:" & vbCrlf & "Nestor Becerra-Yoma – Universidad de Chile" & vbCrlf
v(32) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 9 13:30 - (Sala 1 Automatización) " & vbCrlf & "AUTOMATIZACIÓN DE OPERACIÓN EN CIRCUITO DE DESCOBRIZACIÓN TOTAL Exponen:" & vbCrlf & "Claudia Carrasco y Alejo Gallegos - Universidad de Concepción" & vbCrlf
v(33) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 9 13:30 - (Sala 2 Gestión Ops. Mineras) " & vbCrlf & "SISTEMA EXPERTO DE ANÁLISIS PREDICTIVO DE MANTENIMIENTO Expone:" & vbCrlf & "Mauricio Marcos- Sonda" & vbCrlf
v(34) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 9 13:30 - (Sala 3 Nuevas Tecnologías: RFID) " & vbCrlf & "USO DE TARJETAS RFID EN PROCESOS DE ENROLAMIENTO, CONTROL Y CONTINGENCIA EN ACTIVIDADES INDUSTRIALES Expone:" & vbCrlf & "Claudio Delgado - DISC" & vbCrlf
v(35) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 9 13:30 - (Sala 4 Sustentabilidad) " & vbCrlf & "SISTEMA DE SEÑALÉTICA DIGITAL PARA DIFUSIÓN DE MENSAJES DE SEGURIDAD Y CORPORATIVOS Exponen:" & vbCrlf & "Ricardo Rivera y Carlos Rojas - CISCO" & vbCrlf
v(36) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 10 14:30 - (Sala 1 Automatización) " & vbCrlf & "VALOR DE LA AUTOMATIZACIÓN APLICADA A PROCESOS PRODUCTIVOS DE CODELCO Expone:" & vbCrlf & "Francisco Amiama y Gonzalo Moyano – Codelco" & vbCrlf
v(37) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 10 14:30 - (Sala 2 Gestión Ops. Mineras) " & vbCrlf & "DESARROLLO DE UNA PLATAFORMA DE INNOVACIÓN A TRAVÉS DEL MODELAMIENTO DE LOS INDICADORES DE LA OPERACIÓN Exponen:" & vbCrlf & "Pablo Morales, Rodrigo Rodríguez - Deloitte" & vbCrlf
v(38) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 10 14:30 - (Sala 3 Nuevas Tecnologías: RFID) " & vbCrlf & "SISTEMA DE DETECCIÓN ACCESO DE PERSONAS INTERIOR MINA, CODELCO CHILE, DIVISIÓN EL TENIENTE Exponen:" & vbCrlf & "Carlos Arce - Codelco" & vbCrlf
v(39) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 10 14:30 - (Sala 4 Sustentabilidad) " & vbCrlf & "NEW PRODUCT: POSITION TRACKING AND SAFETY SYSTEM Expone:" & vbCrlf & "Andree Röttig - MMSI" & vbCrlf
v(40) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 11 15:00 - (Sala 1 Automatización) " & vbCrlf & "OPTIMIZACIÓN EN LA REPOSICIÓN DE ELECTRODOS CATÓDICOS PERMANENTES A TRAVÉS DE MANIPULADOR ROBÓTICO Expone:" & vbCrlf & "Francisco Cuellar - Codelco Norte" & vbCrlf
v(41) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 11 15:00 - (Sala 2 Gestión Ops. Mineras) " & vbCrlf & "COMUNIDAD PARA LA INNOVACIÓN JUNTO A LOS CLIENTES MINEROS Exponen:" & vbCrlf & "Glen Kuntz y Salvador Henríquez - SAP" & vbCrlf
v(42) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 11 15:00 - (Sala 3 Nuevas Tecnologías: RFID) " & vbCrlf & "MEJORANDO LA TRAZABILIDAD Y VISIBILIDAD EN LOS PROCESOS Expone:" & vbCrlf & "Gerardo García Carrillo- ENTEL" & vbCrlf
v(43) ="------------------------------------------------------------------ " & vbCrlf & "Bloque 11 15:00 - (Sala 4 Sustentabilidad) " & vbCrlf & "AEROPLATAFORMAS GLOBO-ANTENA COMO DISPOSITIVO DE CAPTURA DE IMÁGENES DIGITALES Exponen:" & vbCrlf & "Sebastián Acosta, Dr.(c) Luis Vergara y Mg.(c) Eric Muñoz – UTEM" & vbCrlf
cuerpo = "Codelco Chile - " & Server.HTMLEncode(Request.Form("nombre")) & vbCrlf
cuerpo = cuerpo & "--------------------------------------------------------------------" & vbCrlf & vbCrlf
cuerpo = cuerpo & "Fecha: " & FormatDateTime(Now(),2) & " Hora: " & FormatDateTime(Now(),3) & vbCrlf
cuerpo = cuerpo & "Nombre: " & Server.HTMLEncode(Request.Form("nombre")) & vbCrlf
cuerpo = cuerpo & "Empresa: " & Server.HTMLEncode(Request.Form("empresa")) & vbCrlf
cuerpo = cuerpo & "Movil: " & Server.HTMLEncode(Request.Form("movil")) & vbCrlf
cuerpo = cuerpo & "Email: " & Server.HTMLEncode(Request.Form("email")) & vbCrlf
cuerpo = cuerpo & "--------------------------------------------------------------------" & vbCrlf
cuerpo = cuerpo & "Se ha inscrito en los siguientes cursos:" & vbCrlf
for x=1 to 11 step 1
if Request.Form("b" & x) <> "" then
cuerpo= cuerpo & v(Request.Form("b" & x))
end if
next
'mando el correo...
set mail=server.CreateObject("CDONTS.NewMail")
mail.From= Request(Request.Form("email"))
mail.To = "dv@clanproducciones.cl,fescobar@acti.cl,mabasolo@codelco.cl,mmartinez@promedia.cl,se@clanproducciones.cl"
mail.Subject = "Incripcion de cursos - " & Server.HTMLEncode(Request.Form("nombre"))
mail.Body = cuerpo
mail.BodyFormat = 1 ' 0 = HTML, 1 = Plain
mail.MailFormat = 1 ' 0 = MIME, 1 = Text
mail.Importance = 0 ' 0 =High, 1 = Medium, 2 = Low
On error resume next
mail.Send
if err.number<>0 then
response.write "No se pudo enviar el Mensaje Error N° "& err.number & " : " & err.description
response.End
end if
set mail=nothing
'mail para el que se inscribe
mensajeconfirmacion="Estimado: " & Server.HTMLEncode(Request.Form("nombre")) & vbCrlf
mensajeConfirmacion= mensajeconfirmacion & "Ud. ha quedado inscrito para el 4to Seminario de Acercamiento Tecnológico." & vbCrlf & vbCrlf
mensajeconfirmacion= mensajeconfirmacion & "Gracias por su participación.Nos vemos en Calama." & vbCrlf & vbCrlf
mensajeconfirmacion= mensajeconfirmacion & "Equipo Organizador." & vbCrlf
mensajeconfirmacion= mensajeconfirmacion & "--------------------------------------------------------------------" & vbCrlf
mensajeconfirmacion= mensajeconfirmacion & "Se ha inscrito en los siguientes cursos:" & vbCrlf
for x=1 to 11 step 1
if Request.Form("b" & x) <> "" then
mensajeconfirmacion= mensajeconfirmacion & v(Request.Form("b" & x))
end if
next
set mail=server.CreateObject("CDONTS.NewMail")
mail.From = "Codelco Chile "
mail.To = Server.HTMLEncode(Request.Form("email"))
mail.Subject = "Respuesta automatica."
mail.Body = mensajeconfirmacion
mail.BodyFormat = 1 ' 0 = HTML, 1 = Plain
mail.MailFormat = 1 ' 0 = MIME, 1 = Text
mail.Importance = 0 ' 0 =High, 1 = Medium, 2 = Low
On error resume next
mail.Send
if err.number<>0 then
response.write "No se pudo enviar el Mensaje Error N° "& err.number & " : " & err.description
response.End
end if
set mail=nothing
%>
Ud. ha quedado inscrito para el 4to Seminario de Acercamiento Tecnológico.
Gracias por su participación. |
<% End If %>
<% If Request.Form = "" Then %>
<% End If %> |