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