<%@ LANGUAGE="VBSCRIPT" %> <% Response.Expires = 0 %> ::::: BTicino Chile ::::: <% function fnLISTADO dim TEMP TEMP = "SELECT * FROM CORREL " Tabla.Open TEMP,Conexion If Tabla.BOF And Tabla.EOF Then 'fnCorrelativo = 1 else DO WHILE NOT Tabla.EOF response.Write Tabla.Fields("ID").Value & " | " response.Write Tabla.Fields("RUT").Value & " | " response.Write Tabla.Fields("TIPO").Value & " | " response.Write Tabla.Fields("sTIPO").Value & " | " response.Write Tabla.Fields("FECHA").Value & " | " response.Write Tabla.Fields("CONSULTA").Value & " | " response.Write "
" Tabla.MOVENEXT LOOP end if Tabla.Close end function function fnCorrelativo(iTIPO) dim TEMP TEMP = "SELECT * FROM CORREL " TEMP = TEMP & " WHERE TIPO=" & iTIPO TEMP = TEMP & " ORDER BY ID DESC " Tabla.Open TEMP,Conexion If Tabla.BOF And Tabla.EOF Then fnCorrelativo = 1 else fnCorrelativo = Tabla.Fields("ID").Value fnCorrelativo = fnCorrelativo + 1 end if Tabla.Close end function function EXTRAER_VALOR() dim TEMP TEMP = "SELECT * FROM CONSULTA_ID" Tabla.Open TEMP,Conexion If Tabla.BOF And Tabla.EOF Then else EXTRAER_VALOR = Tabla.Fields(0).Value end if Tabla.Close iNumID = EXTRAER_VALOR end function function Enviar_Email(sEmailDE,sEmailPARA,sEmailTITULO,sEmailTEXTO,sE_Mails,E_MailT) if sEmailPARA<>"" then Set oMail = Server.CreateObject ("CDONTS.NewMail") oMail.BodyFormat = 0 oMail.MailFormat = 0 Sender =sEmailDE Recipient = sEmailPARA oMail.From = Sender oMail.To = Recipient oMail.subject = sEmailTITULO oMail.body = sEmailTEXTO if sE_Mails <> "" then oMail.AttachFile sE_Mails, E_MailT end if oMail.Send Set oMail = Nothing end if end function function Enviar_Email_plus(sEmailDE,sEmailPARA,sEmailCC,sEmailBCC,sEmailTITULO,sEmailTEXTO,sE_Mails,E_MailT) if sEmailPARA<>"" then Set oMail = Server.CreateObject ("CDONTS.NewMail") oMail.BodyFormat = 0 oMail.MailFormat = 0 Sender =sEmailDE Recipient = sEmailPARA oMail.From = Sender oMail.To = Recipient oMail.subject = sEmailTITULO oMail.body = sEmailTEXTO if sEmailCC <> "" then oMail.Cc = sEmailCC end if if sEmailBCC <> "" then oMail.Bcc = sEmailBCC end if if sE_Mails <> "" then oMail.AttachFile sE_Mails, E_MailT end if oMail.Send Set oMail = Nothing end if end function %> <% DIM iMODIFICAR iMODIFICAR = Request.Form("iMODIFICAR") IF iMODIFICAR = "" then iMODIFICAR ="0" DIM iVENTANA, iOPCION, iACCION,sRUT_HTML iVENTANA = Request.Form("iVENTANA") iOPCION = Request.Form("iOPCION") IF iOPCION = "" then iOPCION = "0" IF iVENTANA = "" then iVENTANA ="0" iACCION = iVENTANA IF iOPCION = "0" then iOPCION = Request.QueryString("iOPCION") end if IF iOPCION = "" then iOPCION = "-" DIM sRUT,sDIG sRUT = Request.Form("strRutValida") sDIG = Request.Form("strDigValida") dim bMODIFICA bMODIFICA = false Dim sNombre,sApellido_Paterno,sApellido_Materno,sEmail Dim sCod_Area,sTelefono,sEmpresa,sRut_Empresa,sAct_Emp,sArea_Trab Dim sCargo,sArea_Cargo,sDireccion,sComuna,sRegion,sCiudad Dim sFecha_Nac,sCelular dim sCOD_TELEFONO sNombre = Request.Form("strNombre") sApellido_Paterno = Request.Form("strApePaterno") sApellido_Materno = Request.Form("strApeMaterno") sFecha_Nac = Request.Form("strFecNac") sEmail = Request.Form("strEmail") sCOD_TELEFONO = Request.Form("intCodigoTelefono") sTelefono = Request.Form("intTelefono") sCod_Area = Request.Form("intCodTel") sCelular = Request.Form("intCelular") sEmpresa = Request.Form("strRazon") sRut_Empresa = Request.Form("intRutEmpresa") sAct_Emp = Request.Form("intActEmpresa") sArea_Trab = Request.Form("intActPersona") sDireccion = Request.Form("strDireccion") sComuna = Request.Form("Comuna") sRegion = Request.Form("region") DIM sCONSULTA,sCOMENTARIO sCONSULTA = Request.Form("strConsulta") sCOMENTARIO = Request.Form("strComentario") if sCOD_TELEFONO = "" then sCOD_TELEFONO ="0" if sAct_Emp = "" then sAct_Emp ="0" if sArea_Trab = "" then sArea_Trab ="0" if sRegion = "" then sregion ="0" if sCelular = "" then sCelular ="0" if sCod_area = "" then sCod_area ="0" if sFecha_Nac = "" then sFecha_Nac ="0" response.Write ("") IF sRUT <> "" then if iMODIFICAR="2" then else TEMP = "SELECT * FROM USUARIOS WHERE rut ='" & sRUT & "'" Tabla.Open TEMP,Conexion If Tabla.BOF And Tabla.EOF Then sSQL = "Insert Into USUARIOS (nombre , apaterno ,amaterno ,rut ,email" sSQL = sSQL & " ,cod_celular ,telefono ,empresa ,rut_empresa , Cod_Act_Emp" sSQL = sSQL & " ,Cod_Area_Trab ,direccion ,comuna ,region " sSQL = sSQL & " ,Celular,fecha_nac" sSQL = sSQL & " ,Cod_area" sSQL = sSQL & " )" sSQL = sSQL & " values ('" & snombre & "','" & sapellido_paterno & "','" & sapellido_materno & "','" & srut & "'" sSQL = sSQL & " ,'" & semail & "', " & scod_area & " ,'" & stelefono & "','" & sempresa & "','" & srut_empresa & "', " & sAct_Emp & " " sSQL = sSQL & " , " & sArea_Trab & " ,'" & sdireccion & "','" & scomuna & "','" & sregion & "'" sSQL = sSQL & " ,'" & sCelular & "', '" & sFecha_Nac & "'" sSQL = sSQL & " , " & sCOD_TELEFONO sSQL = sSQL & " )" Conexion.Execute sSQL ELSE sSQL = "UPDATE USUARIOS SET " sSQL = sSQL & " nombre ='" & snombre & "' " sSQL = sSQL & " ,apaterno ='" & sapellido_paterno & "' " sSQL = sSQL & " ,amaterno ='" & sapellido_materno & "' " sSQL = sSQL & " ,email ='" & semail & "' " sSQL = sSQL & " ,cod_celular = " & scod_area & " " sSQL = sSQL & " ,telefono ='" & stelefono & "' " sSQL = sSQL & " ,empresa ='" & sempresa & "' " sSQL = sSQL & " ,rut_empresa ='" & srut_empresa & "' " sSQL = sSQL & " ,Cod_Act_Emp = " & sAct_Emp & " " sSQL = sSQL & " ,Cod_Area_Trab = " & sArea_Trab & " " sSQL = sSQL & " ,direccion ='" & sdireccion & "' " sSQL = sSQL & " ,comuna ='" & scomuna & "' " sSQL = sSQL & " ,region ='" & sregion & "' " sSQL = sSQL & " ,Celular ='" & sCelular & "' " sSQL = sSQL & " ,fecha_nac ='" & sFecha_Nac & "' " sSQL = sSQL & " ,Cod_area = " & sCOD_TELEFONO & " " sSQL = sSQL & " WHERE RUT='" & sRUT & "'" Conexion.Execute sSQL END IF Tabla.Close END IF END IF TEMP = "SELECT * FROM USUARIOS WHERE rut ='" & sRUT & "'" Tabla.Open TEMP,Conexion If Tabla.BOF And Tabla.EOF Then iMODIFICAR = 0 sNombre = "" sApellido_Paterno = "" sApellido_Materno = "" sFecha_Nac = "" sEmail = "" sCOD_TELEFONO = "02" sTelefono = "" sCod_Area = "9" sCelular = "" sEmpresa = "" sRut_Empresa = "" sAct_Emp = "0" sArea_Trab = "0" sDireccion = "" sComuna = "0" sRegion = "0" else iMODIFICAR = 1 if iVENTANA = "4" then else iVENTANA = "3" end if iACCION = iVENTANA sNombre = Tabla.Fields("nombre") sApellido_Paterno = Tabla.Fields("apaterno") sApellido_Materno = Tabla.Fields("amaterno") sFecha_Nac = Tabla.Fields("fecha_nac") sEmail = Tabla.Fields("email") sCOD_TELEFONO = Tabla.Fields("Cod_area") sTelefono = Tabla.Fields("telefono") sCod_Area = Tabla.Fields("cod_celular") sCelular = Tabla.Fields("Celular") sEmpresa = Tabla.Fields("empresa") sRut_Empresa = Tabla.Fields("rut_empresa") sAct_Emp = Tabla.Fields("Cod_Act_Emp") sArea_Trab = Tabla.Fields("Cod_Area_Trab") sDireccion = Tabla.Fields("direccion") sComuna = Tabla.Fields("comuna") sRegion = Tabla.Fields("region") end if Tabla.Close if sRUT <> "" then sRUT_HTML =sRUT session("'RUT_USER") = sRUT end if if iOPCION="LP" AND sRUT <> "" AND iMODIFICAR = 1 then sCONSULTA = 6 end if if iOPCION="INFOBT" AND sRUT <> "" AND iMODIFICAR = 1 then sCONSULTA = 7 end if if iOPCION="GT" AND sRUT <> "" AND iMODIFICAR = 1 then sCONSULTA = 8 end if response.Write ("") DIM sEMAILS, sTITULO,sAGENTE ,sAGENTE_COPIA,sAGENTE_OCULTO,sCUERPO,sNUM,sMSG DIM sTITULO2,sASUNTO if sCONSULTA = "0" or sCONSULTA = "" OR iVENTANA = "4" then else sEMAILS ="" sAGENTE_COPIA ="" sASUNTO = "" select case sCONSULTA case "1" sTITULO = "Información General" sTITULO2 = sASUNTO & sTITULO sAGENTE = "" & sEmail sAGENTE_COPIA = "" sAGENTE_OCULTO = "gabriela.gomez@legrand.cl;comercialbt.chile@bticino.com;carlos.navarro@legrand.cl" sMSG = "-" case "2" sTITULO = "Consultas Técnicas" sTITULO2 = sASUNTO & sTITULO sAGENTE = "" & sEmail sAGENTE_COPIA = "" sAGENTE_OCULTO = "gabriela.gomez@legrand.cl;comercialbt.chile@bticino.com;carlos.navarro@legrand.cl" sMSG = "-" case "3" sTITULO = "Atención Postventa" sTITULO2 = sASUNTO & sTITULO sAGENTE = "" & sEmail sAGENTE_COPIA = "" sAGENTE_OCULTO = "sandra.tapia@legrand.cl;carlos.navarro@legrand.cl" sMSG = "-" case "4" sTITULO = "Visita de Agente Comercial" sTITULO2 = sASUNTO & sTITULO sAGENTE = "" & sEmail sAGENTE_COPIA = "" sAGENTE_OCULTO = "gabriela.gomez@legrand.cl;comercialbt.chile@bticino.com;carlos.navarro@legrand.cl" sMSG = "-" case "51" sTITULO = "Instalaciones Eléctricas" sASUNTO = "Solicitud inscripción curso de capacitación: " sTITULO2 = sASUNTO & sTITULO sAGENTE = "" & sEmail sAGENTE_COPIA = "" sAGENTE_OCULTO = "german.noziglia@legrand.cl;violeta.astudillo@legrand.cl;carlos.navarro@legrand.cl" sMSG = "Prontamente estaremos confirmando su solitud" case "52" sTITULO = "Comunicaciones" sASUNTO = "Solicitud inscripción curso de capacitación: " sTITULO2 = sASUNTO & sTITULO sAGENTE = "" & sEmail sAGENTE_COPIA = "" sAGENTE_OCULTO = "german.noziglia@legrand.cl;violeta.astudillo@legrand.cl;carlos.navarro@legrand.cl" sMSG = "Prontamente estaremos confirmando su solitud" case "53" sTITULO = "Ahorro de energía" sASUNTO = "Solicitud inscripción curso de capacitación: " sTITULO2 = sASUNTO & sTITULO sAGENTE = "" & sEmail sAGENTE_COPIA = "" sAGENTE_OCULTO = "german.noziglia@legrand.cl;violeta.astudillo@legrand.cl;carlos.navarro@legrand.cl" sMSG = "Prontamente estaremos confirmando su solitud" case "54" sTITULO = "My Home" sASUNTO = "Solicitud inscripción curso de capacitación: " sTITULO2 = sASUNTO & sTITULO sAGENTE = "" & sEmail sAGENTE_COPIA = "" sAGENTE_OCULTO = "german.noziglia@legrand.cl;violeta.astudillo@legrand.cl;carlos.navarro@legrand.cl" sMSG = "Prontamente estaremos confirmando su solitud" case "6" sTITULO = "Lista de Precios" sASUNTO = "Solicitud de: " sTITULO2 = sASUNTO & sTITULO sAGENTE = "" & sEmail sAGENTE_COPIA = "" sAGENTE_OCULTO = sEMAILS & ";gabriela.gomez@legrand.cl;comercialbt.chile@bticino.com;carlos.navarro@legrand.cl" sMSG = "Lista de Precios" case "7" sTITULO = "Info BT" sASUNTO = "Solicitud de: " sTITULO2 = sASUNTO & sTITULO sAGENTE = "" & sEmail sAGENTE_COPIA = "" sAGENTE_OCULTO = sEMAILS & ";gabriela.gomez@legrand.cl;comercialbt.chile@bticino.com;carlos.navarro@legrand.cl" sMSG = "Info BT" case "8" sTITULO = "Guía Técnica" sASUNTO = "Solicitud de: " sTITULO2 = sASUNTO & sTITULO sAGENTE = "" & sEmail sAGENTE_COPIA = "" sAGENTE_OCULTO = sEMAILS & "" sMSG = "Guia Tecnica" end Select sNUM = fnCorrelativo(sCONSULTA) sSQL = " INSERT INTO CORREL (" sSQL = sSQL & " ID,RUT,TIPO,sTIPO,FECHA,CONSULTA" sSQL = sSQL & " ) VALUES ( " sSQL = sSQL & " " & sNUM sSQL = sSQL & " ,'" & sRUT & "'" sSQL = sSQL & " , " & sCONSULTA sSQL = sSQL & " ,'" & sTITULO & "'" sSQL = sSQL & " , GETDATE() " sSQL = sSQL & " ,'" & sCOMENTARIO & "'" sSQL = sSQL & " )" Conexion.Execute sSQL sCUERPO = "" sCUERPO = sCUERPO & " Nº FOLIO: " & sNUM & "

" sCUERPO = sCUERPO & " RUT : " & sRUT & "
" sCUERPO = sCUERPO & " NOMBRE : " & sNombre & " " & sApellido_Paterno & " " & sApellido_Materno & "
" sCUERPO = sCUERPO & " TELÉFONO : " & sCOD_TELEFONO & " - " & sTelefono & "
" sCUERPO = sCUERPO & " CELULAR : " & sCod_Area & " - " & sCelular & "
" sCUERPO = sCUERPO & " EMAIL : " & sEmail & "
" sCUERPO = sCUERPO & " CONSULTA: " & sCOMENTARIO & "" sCUERPO = sCUERPO & "

" sCUERPO = sCUERPO & " DIRECCIÓN : " & sDireccion & "
" sCUERPO = sCUERPO & " COMUNA : " & sComuna & "
" sCUERPO = sCUERPO & " CIUDAD : " & sRegion & "
" sCUERPO = sCUERPO & "
" if sNombre <> "" then Enviar_Email_plus "comercialbt@bticino.cl",sAGENTE ,"","",sTITULO2,sCUERPO,"" ,"" sAGENTE_BCC = "" Enviar_Email_plus "comercialbt@bticino.cl",sAGENTE_OCULTO ,"", sAGENTE_BCC,sTITULO2,sCUERPO,"" ,"" end if response.Write ("") end if %> <% if trim(session("hdnUsuario"))= "0" then %> <% else session("hdnUsuario") = 1 end if %> <% sFONDO = "lineas_form.gif" IF iVENTANA= "0" then sFONDO = "lineas_form.gif" IF iVENTANA= "2" OR iVENTANA= "3" then sFONDO = "lineas_form_SIN_RUT.gif" if trim(sRUT_HTML)="" or len(sRUT_HTML)=0 then sRUT_HTML="-" response.Write ("") if iOPCION="LP" AND iVENTANA= "3" then session("'Lista de precios") = "SI" iVENTANA= "5" iACCION = "5" response.Write ("") end if if iOPCION="GT" AND iVENTANA= "3" then session("'Guia Tecnica") = "SI" iVENTANA= "5" iACCION = "5" response.Write ("window.location ='../0/guiatecnica2.asp';") response.Write ("") end if if iOPCION="HA" AND iVENTANA= "3" then iVENTANA= "5" iACCION = "5" response.Write ("") end if if iOPCION="INFOBT" AND iVENTANA= "3" then session("'INFO_BT") = "SI" iVENTANA= "5" iACCION = "5" response.Write ("") end if %>
   


CONTACTENOS


Donde Encontrarnos




.


 
 
<% END IF IF iVENTANA= "2" OR iVENTANA= "3" then %>
Roger de Flor 2901 Las Condes - Santiago. Teléfono:(562)585 3600 Fax:(562) 244 5769
<% IF iVENTANA= "0" then %>
 
RUT : .Ej:12344567-9
<% END IF IF iVENTANA= "1" OR iVENTANA= "4" then %>
 
<% if iOPCION="LP" then iVENTANA= "4" if iOPCION="CURSO" then iVENTANA= "4" if iOPCION="HA" then iVENTANA= "4" if iOPCION="GT" then iVENTANA= "4" IF iVENTANA= "3" then %> <% ELSE iVENTANA = "4" if iOPCION="LP" then iVENTANA= "3" if iOPCION="CURSO" then iVENTANA= "3" if iOPCION="HA" then iVENTANA= "3" if iOPCION="GT" then iVENTANA= "3" response.Write ("") if iOPCION="LP" OR iOPCION="-" OR iOPCION="HA" OR iOPCION="GT" then %> <% ELSE %> <% END IF END IF %>
.: Datos Personales
   
Nombre
Apellido Paterno
Apellido Materno
RUT
Fecha Nacimiento Ej: dd/mm/aaaa
E-Mail
Teléfono 026984213
Celular 84103260
   
.: Datos Empresa
   
Razón Social
RUT Empresa 52345245-1
Actividad Empresa
Actividad Persona
Dirección
Región
Comuna
   
.: Consulta
   
Tipo de Consulta
Comentario
Máximo 255 caracteres.
.: Inscripción a Cursos
   
Seleccione Solicitud
 
 
<% END IF %>


 

Roger de Flor 2901 Las Condes - Santiago. Teléfono: (562) 585 3600 Fax:(562) 244 5769