Problema com sequencia de IF

[-_KIKO_- 0]

:mellow:

 

Eu preciso restringir o acesso de alguns usuários...o codigo é esse:

acesso = Session("Rank")if acesso = RecSET("Permissoes") or Logado = "0" Thenrecset.movenextend if

Mas ai vem dois problemas..

 

1º Problema desse Código

Tudo bem, se ele naum tiver com o acesso = ao recset, ele vai pro outro registro...mas e se o outro registro tbm naum tiver o Recset = Acesso?

 

Eu falo isso porque é assim os Loop que tem:

 

LOOP 1

----> LOOP 2

 

É 1 loop dentro do outro, o Loop 2 (que mostra as áreas com o mesmo Id do loop1) e o LOOP1 é o nome das áreas, por exemplo:

 

Loop1 = Windows XP Professional e Home

----> LOOP2 = Dúvidas Relacionadas

----> LOOP2 = Dúvidas de Rede

----> LOOP2 = Dicas

Loop1 = Windows 2003

----> LOOP2 = Dúvidas Relacionadas

----> LOOP2 = Dúvidas de Rede

----> LOOP2 = Dicas

 

Entenderam???? esse código que eu postei lá em cima é do LOOP1!!!!

Se o LOOP1 naum tiver ACESSO = RECSET , ele tem que ir para o próximo registro... (do Loop1)

 

Os LOOP2 é oooouuuutra coisa.....em outra table do DB....etc....

 

2º Problema desse Código que eu postei

Se estiver no ULTIMO REGISTRO do LOOP1, ele vai dar um recset.movenext....e se estiver no ULTIMO REGISTRO? vai dar BOF EOF....akele erro sux....

 

Ajudem um infeliz :(

[Cable 0]

Cara, não seria melhor você faze um WHILE ??

Tipo:

IF tabela.eof = false thenWhile not tabela.eofLOOP2tabela.MovenextWendEnd if

Fazendo por While, da pra você controla o EOF/BOF, não dá?

Acho q assim funfa ^_^

[-_KIKO_- 0]

Cara, não seria melhor você faze um WHILE ??Tipo:

IF tabela.eof = false thenWhile not tabela.eofLOOP2tabela.MovenextWendEnd if

Fazendo por While, da pra você controla o EOF/BOF, não dá?Acho q assim funfa  ^_^

ja to usando while..

<% Query = "Select * From Areas"Set RecSet = DB.Execute(Query)%><% IF RecSet.EOF Then %><% response.write "Sem cadastros" %><% Else %><% Do While RecSet.EOF=False %><%acesso = Session("Rank")if acesso = RecSET("Permissoes") or Logado = "0" Thenrecset.movenextend if%><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="94%">  <tr>    <td><img border="0" src="images/esquerda_tumb.gif"></td>    <td width="100%" background="images/cima_title.gif"><span class="smallBold"><a class="smallbold"href="view.asp?sessionid=<%=session.sessionid%>&forumid=<%=RecSet("codigo")%>&areaid=<%=RecSet("areaid")%>"><%=RecSet("forumtitle")%></a></span></td><td><img border="0" src="images/direita_tumb.gif"></td>  </tr></table>  </center></div><div align="center">  <center>    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#9C9CB2" width="94%" height="25">      <tr>      <td width="5%" bgcolor="#EBEBEB" height="14" style="border: 1px solid #9C9CB2"> </td>      <td width="50%" bgcolor="#EBEBEB" height="14" style="border: 1px solid #9C9CB2"><span class="smallp"><b>      Fórum e Descrição</b></span></td>      <td width="5%" bgcolor="#EBEBEB" height="14" style="border: 1px solid #9C9CB2"><span class="smallp"><b>      Tópicos</b></span></td>      <td width="5%" bgcolor="#EBEBEB" height="14" style="border: 1px solid #9C9CB2"><span class="smallp"><b>      Mensagens</b></span></td>      <td width="35%" bgcolor="#EBEBEB" height="14" style="border: 1px solid #9C9CB2">      <p align="left"><span class="smallp"><b>Última mensagem</b></span></td>    </tr><% numberone = recset("areaid") %>   <%' numberone= "1"Query2 = "SELECT * FROM Foruns WHERE Areaid='" & numberone & "'"Set RecSet2 = DB.Execute(Query2)%><% IF RecSet2.EOF Then %><% response.write "Sem cadastros" %><% Else %><% Do While RecSet2.EOF=False %>    <tr>      <td width="5%" bgcolor="#F2F2F2" height="35" style="border: 1px solid #9C9CB2">      <p align="center"><%cod = RecSet2("codigo")Checa = "SELECT * From lastpost where (cod = "& cod &") ORDER BY Tempo DESC"Set RecSet123 = db.execute(Checa)cooTempo = Request.cookies("aspforum")("ultima")If RecSet123.EOF=True Then%>      <img src="images/pasta_antigas.gif" border="0"><%elsetempo = RecSet123("tempo")If  tempo > cooTempo Then%>      <img src="images/pasta_novo.gif" border="0"><%else%>            <img src="images/pasta_antigas.gif" border="0"><% end ifend if%>      </td>      <td width="50%" bgcolor="#EBEBEB" height="35" style="border: 1px solid #9C9CB2"><b><a href="view.asp?sessionid=<%=session.sessionid%>&cod=<%=RecSet2("codigo")%>&areaid=<%=RecSet("codigo")%>"><%=RecSet2("areaforumname")%></a></b><br>      </b><%=RecSet2("areaforumcomment")%></td>      <td width="5%" bgcolor="#F2F2F2" align="center" height="35" style="border: 1px solid #9C9CB2">      <p align="center"><%areaid = RecSet2("codigo")Query8 = "Select Count (*) As Total FROM topics WHERE (areaid = " & areaid & ")"Set Total = DB.Execute(Query8)%><%=TOTAL("TOTAL")%> </td>      <td width="5%" bgcolor="#EBEBEB" align="center" height="35" style="border: 1px solid #9C9CB2">            <%forumid = RecSET2("codigo")Query9 = "Select Count (*) As Total FROM respostas WHERE (forumid = " & forumid & ")"Set Total2 = DB.Execute(Query9)%><%=TOTAL2("TOTAL")%>      </td>      <td width="35%" bgcolor="#F2F2F2" valign="top" height="35" style="border: 1px solid #9C9CB2">          <%cod = RecSet2("codigo")          Mostrar = "Select * From lastpost WHERE (cod = " & cod & ") Order By tempo DESC"          Set RecSet166 = Db.Execute(Mostrar)          If RecSet166.EOF = True Then          response.write "<center>Sem mensagens</center>"          else          %>      <table border="0" cellspacing="1" width="100%" height="35">        <tr>          <td width="0" height="27" valign="top">          <img border="0" src="images/post.gif"></td>          <td width="91%" height="27" valign="top"><%         topicid2 = RecSet166("topicid")          Topico = "Select * From Topics WHERE (codigo = " & topicid2 & ")"          Set RecSet133 = db.execute(topico)         %>         <font style="font-size: 7pt" face="Tahoma"><%cod = RecSet2("codigo")%><a class="smallp" href="viewtopic.asp?topicid=<%=RecSet166("topicid")%>&cod=<%=cod%>&sessionid=<%=session.sessionid%>"><%i12 = RecSet133("TopicName")if len(i12)>41 thenresponse.write left(i12,41) &"..."elseresponse.write i12end if%></a><br><b><%=RecSet166("tempo")%><br></b>by <%=RecSet166("lastpost")%></td></tr>       </table><%          end if%>      </td>    </tr>    <% RecSet2.MoveNextLoop %>      <tr class="kralho">         <td colspan="5"> </td>      </tr><% End if %><% RecSet.MoveNextLoop %><% End if %>  </table>  </center></div>

Bom.....É GRANDE.....mas como usar + de um While NÃO vai dar certo....tem q ser em IFcomo eu falei...só preciso adaptar

[-_KIKO_- 0]

sobe capeta

[-_KIKO_- 0]

sobe

 

aproveitando e divulgando: http://kiko.jbrasil.com

:D