Aniversario de la muerte de Michael Jackson
<% Dim i i = 1 Set cnn = Server.CreateObject("ADODB.Connection") 'cnn.Open "Provider=SQLOLEDB;Data Source=db.abc.srv.vocento.in;Initial Catalog=BD_EncuestasABC;User ID=bd_user;Password=octubre2009xp" cnn.Open "Provider=SQLOLEDB;Data Source=db.abc.srv.vocento.in;Initial Catalog=BD_EncuestasABC;User ID=bd_user;Password=octubre2009xp" strSQL = "Select TOP 1 * FROM TB_Encuestas WHERE idenc = 1" set rs=cnn.Execute(strSQL) If not rs.eof then For ident = 1 to rs("nopciones") select Case abs(ident) mod 2 case 0: 'par%>
" class="unvideo">
<%case 1: 'impar%>
" class="unvideo">
<%end select Next End If rs.close cnn.close set rs = Nothing set cnn = Nothing %>