Problema com movenext.

[-_KIKO_- 0]

Eu estou montando agora um esquema de comentários pro meu Flog...mas o problema é o seguinte, usuários normais podem ter no Flog apenas 15 comentários e os premium , infinito.....dai eu montei sem Do While uma rotininha...parece que vou precisar do Do While novamente...mas não sei como substituir o Do While por esse meu esqueminha

 

Vejam:

 

<% Comenta = "Select * From comentarios where userid = " & userid & " AND fotoid = " & fotoid & " Order By Codigo DESC"Set Recset12 = db.execute(Comenta)if recset12.eof=true thenelsecontagem = 1x = contagem   if not Recset2("acesso") = "Premium" then   For i = contagem to 15%>              <tr>                 <td colspan="3" style="border-bottom: 1px solid #000000; "><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%                comenta = Recset12("comentario")                comenta = replace(comenta,chr(13),"<br>")                response.write comenta                %></font></td>              </tr>              <tr>                 <td colspan="2"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Por:<%=Recset12("por")%></font></td>                <td><div align="right"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Comentado                     em <%=Recset12("hora")%></font></div></td>              </tr>              <tr>                 <td height="15" colspan="2"> </td>                <td> </td>              </tr>              <%               contagem = contagem + 1               if contagem > 15 then               %>               </table><CENTER>               <h4><font face="verdana" size="1"><b>Seu limite de comentários acabou!<br> Lembre-se, usuários <img src="images/zoio.gif"> Premium podem ter ilimitado número de comentários!<br>               <a href="premium.asp">Clique aqui para saber mais..</A></b></h4>               <%                 fim = "sim"                 end if              ' recset12.movenext               next               end if                end if

Eu comentei a linha RECSET12.MOVENEXT pq se naum tem mais resultados, vai bugar..

acho q o Unico jeito eh o Do While mesmo...mas como usar ele ai substituindo o FOR?

[-_KIKO_- 0]

AEMudei pra Do WHilemas agora é a zica, como eu faço pro Do While parar quando a CONTAGEM for Igual a 15?????Essse é o dO wHILE:Do While recset12.eof=false (O codigo acima é o mesmo, só naum tem o FOR e o NEXT

[dimarcinho 0]

tenta assim:

 

<%Dim contcont = 1 'inicia um contadorDo while not rs.EOF    If cont > 15 Then 'verifica o 15 q você ker      Exit Do    End Ifcont = cont + 1 'soma 1 ao contador'seu codigoLoop%>

espero q tenha ajudado!!!

 

[]´s