% On Error resume Next Session("encuestas").Close dim temp_respuesta(11) dim temp_votos(11) dim temp_porcentaje(11) dim temp_respuesta_ID(11) contador=1 Session("encuestas").Open "DSN=palenciajoven.com.encuestas" SQL="SELECT * FROM Preguntas" set RS=Session("encuestas").Execute(SQL) if not RS.EOF then temp_pregunta=RS("pregunta") temp_total_votos=RS("Total_votos") temp_activa=RS("activa") Session("encuesta_ID")=RS("ID") SQL="SELECT * FROM respuestas" set RS=Session("encuestas").Execute(SQL) Do while not RS.EOF temp_respuesta(contador)=RS("respuesta") temp_votos(contador)=RS("Votos") temp_respuesta_ID(contador)=RS("ID") temp_porcentaje(contador)=temp_votos(contador)*100/temp_total_votos contador=contador+1 RS.MoveNext loop end if Session("encuestas").Close %>
|
|
|
|
|
|