%@ 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
%>
<%
sql="select * from ciec_test where id=2"
registros.open sql,conexion,1
%>
Tema: <%=registros("tema")%>
Publicada el
<%
response.write(datepart("d",registros("fecha")))
dim mes
mes=datepart("m",registros("fecha"))
select case mes
case 1 mes="enero"
case 2 mes="febrero"
case 3 mes="marzo"
case 4 mes="abril"
case 5 mes="mayo"
case 6 mes="junio"
case 7 mes="julio"
case 8 mes="agosto"
case 9 mes="septiembre"
case 10 mes="octubre"
case 11 mes="noviembre"
case 12 mes="diciembre"
end select
response.write(" de "+mes+" de ")
response.write(datepart("yyyy",registros("fecha")))
%> a las <%=registros("hora")%>
<%
registros.close
sql="select * from ciec_pregtest where idtest='2' 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
<%
response.write(datepart("d",registros("fecha")))
mes=datepart("m",registros("fecha"))
select case mes
case 1 mes="enero"
case 2 mes="febrero"
case 3 mes="marzo"
case 4 mes="abril"
case 5 mes="mayo"
case 6 mes="junio"
case 7 mes="julio"
case 8 mes="agosto"
case 9 mes="septiembre"
case 10 mes="octubre"
case 11 mes="noviembre"
case 12 mes="diciembre"
end select
response.write(" de "+mes+" de ")
response.write(datepart("yyyy",registros("fecha")))
%>
<%end if%>
<%if Request("oculto")="1" then
registros.Close
dim id_var
dim fecha_var
dim hora_var
dim producto_var
dim veces_var
dim empresa_var
dim nombre_var
dim email_var
dim telefono_var
id_var=2
fecha_var=date
hora_var=time
producto_var=request("producto_txt")
empresa_var=request("empresa_txt")
nombre_var=request("nombre_txt")
email_var=request("email_txt")
telefono_var=request("telefono_txt")
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("veces")=veces_var
registros("fecha")=fecha_var
registros("hora")=hora_var
registros.Update
registros.Close
sql="select * from ciec_resptest"
registros.open sql,conexion,1
registros.AddNew
registros("idtest")=id_var
registros("respuesta1")=producto_var
registros("empresa")=empresa_var
registros("nombre")=nombre_var
registros("email")=email_var
registros("telefono")=telefono_var
registros("fecha")=fecha_var
registros("hora")=hora_var
registros.Update
registros.Close
conexion.Close
%>
<%
end if%>