Condicional For . . . Next

Estou tentando listar a seguinte condição

<%Dim rsPainelFotoDim rsPainelFoto_cmdDim rsPainelFoto_numRowsSet rsPainelFoto_cmd = Server.CreateObject ("ADODB.Command")rsPainelFoto_cmd.ActiveConnection = MM_conn_STRINGrsPainelFoto_cmd.CommandText = "SELECT * FROM materias WHERE codi_painel = ? ORDER BY codi_materia DESC" rsPainelFoto_cmd.Prepared = truersPainelFoto_cmd.Parameters.Append rsPainelFoto_cmd.CreateParameter("param1", 5, 1, -1, rsPainelFoto__MMColParam) ' adDoubleSet rsPainelFoto = rsPainelFoto_cmd.ExecutersPainelFoto_numRows = 0%><%For i = 1 to 3Response.Write("["""&(rsPainelFoto.Fields.Item("url_foto").Value)&""","""&(rsPainelFoto("chamada"))&""","""&(rsPainelFoto("titulo"))&""",""/home/?action=readnews&newsid="&(rsPainelFoto("codi_materia"))&""""&"],")Response.Write(vbnewline)rsPainelFoto.movenext()Next%>

Até ai ta funcionando perfeito, mas é sempre necessário que eu tenha no mínimo 3 registros de satisfaçam a seleção.

Tentei usar assim:

For i = 1 to rsPainelFoto.eofMas ele não lista nada, não da erro, apenas não apresenta nenhuma listagem.

Existe outra forma de exibir esses dados?

Grato