Fecha:


 

 

¿Cómo debe ser la prensa en nuestro país? <% 'guardamos en voto la info del formulario. voto = Request.Form("mismo") 'Conectamos a la BD. Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./base_encuesta3.mdb") 'Con una sentencia SQL pedimos toda la BD. Set RS = Server.CreateObject("ADODB.RecordSet") sql = "SELECT * FROM encuesta" RS.Open sql, oConn 'si no hay registros, creamos unos con datos nulos. If RS.EOF then oConn.Execute "INSERT INTO encuesta (dato1,dato2,dato3,dato4) VALUES (0,0,0,0)" RS.Requery End If 'Comenzamos el chequeo de datos. Para todos igual If voto = "1" then 'Si se cumple el IF, sumamos uno al campo correspondiente. oConn.Execute "UPDATE encuesta SET Dato1 = "&RS("Dato1")+1&" " 'La siguiente linea hace un Refresh en la Tabla, para tener los datos recientes. RS.Requery Response.Write "
Voto sumado a: Regulado por el Estado
" ElseIf voto = "2" then oConn.Execute "UPDATE encuesta SET Dato2 = "&RS("Dato2")+1&" " RS.Requery Response.Write "
Voto sumado a: Que tenga una oficina propia de autocontrol
" ElseIf voto = "3" then sql = "UPDATE encuesta SET Dato3 = "&RS("Dato3")+1&"" oConn.Execute sql RS.Requery Response.Write "
Voto sumado a: Que haya libertad de empresa y libertad de opinion e información de los periodistas.
" ElseIf voto = "4" then oConn.Execute "UPDATE encuesta SET Dato4 = "&RS("Dato4")+1&" " RS.Requery Response.Write "
Voto sumado a NUNCA
" End If 'Sumamos todos los votos y los guardamos en una variable. total = CInt(RS("Dato1"))+CInt(RS("Dato2"))+CInt(RS("Dato3"))+CInt(RS("Dato4")) porc1 = CInt(RS("Dato1")*100/total) porc2 = CInt(RS("Dato2")*100/total) porc3 = CInt(RS("Dato3")*100/total) porc4 = CInt(RS("Dato4")*100/total) 'Mostrar el gráfico. %>

Regulado por el Estado (<%=(porc1)%>%) %">
Que tenga una oficina propia de autocontrol (<%=(porc2)%>%) %">
Que haya libertad de empresa y libertad de opinión e información de los periodistas(<%=(porc3)%>%) %">
<%'Limpiamos y cerramos todo. RS.Close Set RS = Nothing oConn.Close Set oConn = Nothing %>

Volver

¿Que opina sobre el Proyecto de Ley de aumento al 50% de la
presencia de la mujer en cargos electivos colegiados? <% 'guardamos en voto la info del formulario. voto = Request.Form("mismo") 'Conectamos a la BD. Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./base_encuesta.mdb") 'Con una sentencia SQL pedimos toda la BD. Set RS = Server.CreateObject("ADODB.RecordSet") sql = "SELECT * FROM encuesta" RS.Open sql, oConn 'si no hay registros, creamos unos con datos nulos. If RS.EOF then oConn.Execute "INSERT INTO encuesta (dato1,dato2,dato3,dato4) VALUES (0,0,0,0)" RS.Requery End If 'Comenzamos el chequeo de datos. Para todos igual If voto = "1" then 'Si se cumple el IF, sumamos uno al campo correspondiente. oConn.Execute "UPDATE encuesta SET Dato1 = "&RS("Dato1")+1&" " 'La siguiente linea hace un Refresh en la Tabla, para tener los datos recientes. RS.Requery Response.Write "
Voto sumado A Favor
" ElseIf voto = "2" then oConn.Execute "UPDATE encuesta SET Dato2 = "&RS("Dato2")+1&" " RS.Requery Response.Write "
Voto sumado a En Contra
" ElseIf voto = "3" then sql = "UPDATE encuesta SET Dato3 = "&RS("Dato3")+1&"" oConn.Execute sql RS.Requery Response.Write "
Voto sumado a Ninguno
" ElseIf voto = "4" then oConn.Execute "UPDATE encuesta SET Dato4 = "&RS("Dato4")+1&" " RS.Requery Response.Write "
Voto sumado a NUNCA
" End If 'Sumamos todos los votos y los guardamos en una variable. total = CInt(RS("Dato1"))+CInt(RS("Dato2"))+CInt(RS("Dato3"))+CInt(RS("Dato4")) porc1 = CInt(RS("Dato1")*100/total) porc2 = CInt(RS("Dato2")*100/total) porc3 = CInt(RS("Dato3")*100/total) porc4 = CInt(RS("Dato4")*100/total) 'Mostrar el gráfico. %>

A Favor (<%=(porc1)%>%) %">
En Contra ( <%=(porc2)%>%) %">
Ninguno (<%=(porc3)%>%) %">
<%'Limpiamos y cerramos todo. RS.Close Set RS = Nothing oConn.Close Set oConn = Nothing %>

Volver

 

¿Le parece que la enseñanza de las escuelas públicas habilitan a los
egresados para ingresar a la universidad o conseguir empleos?
<% 'guardamos en voto la info del formulario. voto = Request.Form("mismo") 'Conectamos a la BD. Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./base_encuesta2.mdb") 'Con una sentencia SQL pedimos toda la BD. Set RS = Server.CreateObject("ADODB.RecordSet") sql = "SELECT * FROM encuesta" RS.Open sql, oConn 'si no hay registros, creamos unos con datos nulos. If RS.EOF then oConn.Execute "INSERT INTO encuesta (dato1,dato2,dato3,dato4) VALUES (0,0,0,0)" RS.Requery End If 'Comenzamos el chequeo de datos. Para todos igual If voto = "1" then 'Si se cumple el IF, sumamos uno al campo correspondiente. oConn.Execute "UPDATE encuesta SET Dato1 = "&RS("Dato1")+1&" " 'La siguiente linea hace un Refresh en la Tabla, para tener los datos recientes. RS.Requery Response.Write "
Voto sumado Si
" ElseIf voto = "2" then oConn.Execute "UPDATE encuesta SET Dato2 = "&RS("Dato2")+1&" " RS.Requery Response.Write "
Voto sumado a No
" ElseIf voto = "3" then sql = "UPDATE encuesta SET Dato3 = "&RS("Dato3")+1&"" oConn.Execute sql RS.Requery Response.Write "
Voto sumado a No se
" ElseIf voto = "4" then oConn.Execute "UPDATE encuesta SET Dato4 = "&RS("Dato4")+1&" " RS.Requery Response.Write "
Voto sumado a NUNCA
" End If 'Sumamos todos los votos y los guardamos en una variable. total = CInt(RS("Dato1"))+CInt(RS("Dato2"))+CInt(RS("Dato3"))+CInt(RS("Dato4")) porc1 = CInt(RS("Dato1")*100/total) porc2 = CInt(RS("Dato2")*100/total) porc3 = CInt(RS("Dato3")*100/total) porc4 = CInt(RS("Dato4")*100/total) 'Mostrar el gráfico. %>

Si (<%=(porc1)%>%) %">
No ( <%=(porc2)%>%) %">
No se (<%=(porc3)%>%) %">
<%'Limpiamos y cerramos todo. RS.Close Set RS = Nothing oConn.Close Set oConn = Nothing %>

Volver


En atención a las próximas elecciones presidenciales.
¿Que le exige a los canditatos? <% 'guardamos en voto la info del formulario. voto = Request.Form("mismo") 'Conectamos a la BD. Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./base_encuesta4.mdb") 'Con una sentencia SQL pedimos toda la BD. Set RS = Server.CreateObject("ADODB.RecordSet") sql = "SELECT * FROM encuesta" RS.Open sql, oConn 'si no hay registros, creamos unos con datos nulos. If RS.EOF then oConn.Execute "INSERT INTO encuesta (dato1,dato2,dato3,dato4) VALUES (0,0,0,0)" RS.Requery End If 'Comenzamos el chequeo de datos. Para todos igual If voto = "1" then 'Si se cumple el IF, sumamos uno al campo correspondiente. oConn.Execute "UPDATE encuesta SET Dato1 = "&RS("Dato1")+1&" " 'La siguiente linea hace un Refresh en la Tabla, para tener los datos recientes. RS.Requery Response.Write "
Voto sumado a: Capacidad
" ElseIf voto = "2" then oConn.Execute "UPDATE encuesta SET Dato2 = "&RS("Dato2")+1&" " RS.Requery Response.Write "
Voto sumado a: Honestidad
" ElseIf voto = "3" then sql = "UPDATE encuesta SET Dato3 = "&RS("Dato3")+1&"" oConn.Execute sql RS.Requery Response.Write "
Voto sumado a: Habilidad para trabajar en equipo.
" ElseIf voto = "4" then oConn.Execute "UPDATE encuesta SET Dato4 = "&RS("Dato4")+1&" " RS.Requery Response.Write "
Voto sumado a Programa de Trabajo Realizable.
" End If 'Sumamos todos los votos y los guardamos en una variable. total = CInt(RS("Dato1"))+CInt(RS("Dato2"))+CInt(RS("Dato3"))+CInt(RS("Dato4")) porc1 = CInt(RS("Dato1")*100/total) porc2 = CInt(RS("Dato2")*100/total) porc3 = CInt(RS("Dato3")*100/total) porc4 = CInt(RS("Dato4")*100/total) 'Mostrar el gráfico. %>

Capacidad (<%=(porc1)%>%) %">
Honestidad ( <%=(porc2)%>%) %">
Habilidad para trabajar en equipo (<%=(porc3)%>%) %">
Programa de trabajo realizable (<%=(porc4)%>%) %">
<%'Limpiamos y cerramos todo. RS.Close Set RS = Nothing oConn.Close Set oConn = Nothing %>

Volver