paginação

[mestre fyoda 1]

Na hora de faser o cadastro o usuario vai optar em mostrar o email ou não mostar , onde o email ira ser mostrado na paginação .

A paginação ira ser vista por todos usuarios cadastrados ou não .

 

Como isso .

Tenho um campo chamado ver_email , onde as opções são : Sim ou Nao , onde o os campos das opções são :

 

 

Deseja Mostrar Seu E-mail:    <input type="radio" name="ver_email" checked value="1">Sim <input type="radio" name="ver_email" value="0" >Não

paginação

 

<% 'Efetuando a conexão com a base de dados criada -----------------------Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("dados.mdb") Conn.open '--------------------------------------------------------------------------'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,'pois vamos utilizar algumas funções deste objeto Set RS = Server.CreateObject("adodb.recordset")RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.'Vamos fazer a busca na tabela contatosSQL = "select * from usuarios" RS.Open SQL,Conn,3,3'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc.IF RS.EOF then    Response.Write "nenhum registro encontrado"   Response.End 'paramos o programaELSE   'Definindo em qual pagina o visitante está   IF Request.QueryString("pagina")="" then       intpagina=1    ELSE      IF cint(Request.QueryString("pagina"))<1 then         intpagina=1       ELSE         IF cint(Request.QueryString("pagina"))> RS.PageCount then             intpagina=RS.PageCount          ELSE            intpagina=Request.QueryString("pagina")         END IF      END IF   END IFEND IF'Fim das verificações de exceções'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta RS.AbsolutePage=intpagina' Inicia o contador que vai controlar os registros mostradosintrec=0'Enquanto o contador for menor que a quantidade de registros mostrados ou' não for o final do arquivo %><% While intrec < RS.PageSize and not RS.EOF %></head><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="32%" id="AutoNumber1" height="17" bgcolor="#C0C0C0" align="center">  <tr>    <td width="14%" height="17" bgcolor="#F8F8F8" rowspan="14">    <p align="center">     <img src="=RS("icon").gif" width=32 height=32 align="left" ></td>    <td width="86%" height="10" bordercolor="#C0C0C0" bgcolor="#F8F8F8">    <font size="1" face="Verdana" class="TD"><b> Nome: <%=RS("nome")%></b></font></td>  </tr>  <tr>    <td width="86%" height="7" bordercolor="#C0C0C0" bgcolor="#F8F8F8">    <font size="1" face="Verdana" class="TD"><b> Sobre Nome:  <%=RS("sobre_nome")%></b></font></td>  </tr>  <tr>    <td width="86%" height="2" bordercolor="#C0C0C0" bgcolor="#F8F8F8">    <font face="Verdana" size="1" class="TD"><b> Email:  <%=RS("login")%></b></font></td>  </tr><%   if  ver_email = "1" Then %>    <tr>    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">    <p align="left">    <font face="Verdana" size="1" class="TD"><b>Por Opção do usuario , você não verá o email dele    </td>  </tr>   <% else %>    <tr>    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">    <p align="left">    <font face="Verdana" size="1" class="TD"><b> Email:     <%=RS("email")%></b> </font></p>    </td>  </tr>    <% END IF %>  <tr>    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">    <p align="left">    <font face="Verdana" size="1" class="TD"><b> Estado: <%=RS("estado")%> </b> </font></p>    </td>  </tr>      <tr>    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">    <p align="left">    <font face="Verdana" size="1" class="TD"><b> Bairro: <%=RS("bairro")%></b> </font></p>    </td>  </tr>  </table><p align="center"><br><%  RS.MoveNext   ' Acrescenta +1 ao contador   intrec=intrec+1    'Se for EOF (fim de arquivo), imprimir branco na tela   IF RS.EOF then       response.write " "    END IFWend 'fim do loop'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %>    <a href="paginacao.asp?pagina=<%=intpagina-1%>" class="TD">Anterior</a>   <a href="paginacao.asp?pagina=<%=intpagina + 1%>" class="TD">    Próxima </a> <% END IF%>

[Cable 0]

E qual a duvida? :mellow:

[mestre fyoda 1]

è que na hora de imprimir na tela se o usuario permite ou não a apresentação do email , ele sempre esta caindo no else , tanto estando com ver_email 1 ou 0 ele cai no else .Pq ?

[Patricia 0]

if ver_email = "1" Then o que é esse ver_email??é o nome da coluna no banco???

[mestre fyoda 1]

isso mesmo .

[Patricia 0]

então é assim que tem que ser:If RS("ver_email") = 1 thenelsee bla bla bla

[Patricia 0]

se ainda der problema estamos aí

[Cable 0]

O jeito que a Patricia falou é a solução sim, mas se no caso der o mesmo erro, tenta compara os 2 valores "forçando-os" a serem do mesmo tipo, usando o Cint(), ai se nao der certo é zica mesmo. Fica assim:

 

ASP [/tr][tr]

If Cint(RS("ver_email")) = Cint(1) then

'Faz tal coisa

Else

'Faz outra

End if

[/tr]

[mestre fyoda 1]

ainda nao deu pra testar porque o ftp proprio da hospedagem ta zuada .Qualquer coisa eu posto novamente , grato Patricia e Cable .