<%@ Language=VBScript%> CIEC - Opine <% set conexion = Server.CreateObject ("ADODB.connection") %><% conexion.CursorLocation = 3 conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") registros.CursorLocation = 2 registros.CursorType = 2 registros.LockType = 3 opcion_sel=request("oculto_encuesta") sql="select * from ciec_foro1 where id='" & request("codigo") & "' order by id" registros.Open sql,conexion Total=0 Select Case opcion_sel Case "1" Total=cint(registros("res1")) Total=Total+1 registros("res1")=cstr(Total) registros.Update Case "2" Total=cint(registros("res2")) Total=Total+1 registros("res2")=cstr(Total) registros.Update Case "3" Total=cint(registros("res3")) Total=Total+1 registros("res3")=cstr(Total) registros.Update Case "4" Total=cint(registros("res4")) Total=Total+1 registros("res4")=cstr(Total) registros.Update End Select if registros.EOF =false and registros.BOF =false then total1= cint(registros("res1"))*100/(cint(registros("res1")) + cint(registros("res2")) + cint(registros("res3")) + cint(registros("res4"))) total2= cint(registros("res2"))*100/(cint(registros("res1")) + cint(registros("res2")) + cint(registros("res3")) + cint(registros("res4"))) total3= cint(registros("res3"))*100/(cint(registros("res1")) + cint(registros("res2")) + cint(registros("res3")) + cint(registros("res4"))) total4= cint(registros("res4"))*100/(cint(registros("res1")) + cint(registros("res2")) + cint(registros("res3")) + cint(registros("res4")))%>
Opine sobre el tema:
Mucho
<%=cint(total1)%>%
Poco 
<%=cint(total2)%>%
Nada
<%=cint(total3)%>%
No se
<%=cint(total4)%>%

<%dim votos votos=cint(registros("res1"))+cint(registros("res2"))+cint(registros("res3"))+cint(registros("res4")) %> <%=votos%> votos procesados
<%end if%>