<%@ Language=VBScript %> <% Option Explicit dim conexion, registros dim sql, registros2 set conexion= Server.CreateObject ("ADODB.connection") %><% conexion.CursorLocation = 1 conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") registros.CursorLocation = 1 registros.CursorType = 2 registros.LockType = 3 set registros2 = Server.CreateObject ("ADODB.RECORDSET") registros2.CursorLocation = 1 registros2.CursorType = 2 registros2.LockType = 3 %> CIEC - Encuesta - Extranet
 

   
 
  <% sql="select * from ciec_afiliado where login='" &session("login_afiliado") &"' and password='" &session("password_afiliado") &"'" registros2.open sql,conexion,1 %>

Gracias por participar  <%=registros2("nombre")%> <%=registros2("apellido")%>

 
<% sql="select * from ciec_test where id=1" registros.open sql,conexion,1 %> <% registros.close sql="select * from ciec_pregtest where idtest='1' order by veces desc" registros.open sql,conexion,1 if not(registros.bof and registros.eof) then %> <%end if%> <%if Request("oculto")="1" then registros.Close dim id_var dim afiliado_var dim fecha_var dim hora_var dim veces_var dim empresa_var dim situacion_var dim medidas_var dim otras_var id_var=1 afiliado_var=registros2("id") fecha_var=date hora_var=time empresa_var=request("empresa_txt") otras_var=request("otras_txt") situacion_var="Diciembre 2001: " & request("cant1_cmb") & " Obreros, " & request("cant2_cmb") & " Empleados. Diciembre 2002: "& request("cant3_cmb") & " Obreros, " & request("cant4_cmb") & " Empleados. Febrero 2003: "& request("cant5_cmb") & " Obreros, " & request("cant6_cmb") & " Empleados." if request("C1")="ON" then medidas_var="Suspensión de relación laboral," end if if request("C2")="ON" then medidas_var=medidas_var & " Reducción de turno," end if if request("C3")="ON" then medidas_var=medidas_var & " Parada de Planta," end if if request("C4")="ON" then medidas_var=medidas_var & " Adelanto de vacaciones," end if if request("C5")="ON" then medidas_var=medidas_var & " Reducción de jornada laboral de " end if if request("cant7_cmb")<>"0" then medidas_var=medidas_var & request("cant7_cmb")& " dia" end if if request("R1")="V1" then medidas_var=medidas_var & " Sin pago" end if if request("R1")="V2" then medidas_var=medidas_var & " Con pago" end if if request("R2")="V2" then medidas_var="No" end if sql="select * from ciec_pregtest where idafiliado='"&afiliado_var&"'" registros.open sql,conexion,1 if not(registros.bof and registros.eof) then%> <%else registros.Close sql="select max(veces) as mayor from ciec_pregtest" registros.open sql,conexion,1 veces_var=registros("mayor")+1 If veces_var="" then veces_var=1 else veces_var=registros("mayor")+1 End If registros.close sql="select * from ciec_pregtest" registros.open sql,conexion,1 registros.AddNew registros("idtest")=id_var registros("idafiliado")=afiliado_var registros("fecha")=fecha_var registros("hora")=hora_var registros("veces")=veces_var registros.Update registros.Close sql="select * from ciec_resptest" registros.open sql,conexion,1 registros.AddNew registros("idtest")=id_var registros("respuesta1")=empresa_var registros("respuesta2")=situacion_var registros("respuesta3")=medidas_var registros("respuesta4")=otras_var registros.Update registros.Close conexion.Close %> <% end if end if%>

Tema: <%=registros("tema")%>
Publicada el <%=registros("fecha")%> a las <%=registros("hora")%>
En esta encuesta han participado: <%=registros("veces")%> afiliado(s)
Última participación el: <%=registros("fecha")%>

 
Estimado afiliado

A fin de obtener información con relación a la situación laboral actual, solicitamos su colaboración en el suministro de los datos:

 
Nombre de la empresa:   
Situación laboral:
Indique el No. del personal ocupado al: Obreros Empleados
Diciembre 2001
Diciembre 2002
Febrero 2003
Ante la situación actual, su Empresa está aplicando medidas de emergencia? Mencione:   Si     No
Suspensión de relación laboral:
Reducción de turno:
Parada de Planta:
Adelanto de vacaciones:
Reducción de jornada laboral: Días menos:
    Sin pago:
    Con pago:
Otras (explique):

 

Envíenos sugerencias y comentarios acerca de esta página

Diseño y desarrollo: Ingeniería Web, S. R. L. - IW

Capítulos | Comisiones | Directorio | Contáctenos | Principal