Não Esta Imprimindo O Certo

mestre fyoda · Julho 4, 2004

Esta acontecendo o seguinte , No cadastro o usuario ele escolhe se deseja apresentar o email na paginação , no caso sempre esta caindo no Else , porque ?

O nome do campo é ver_email , ele só recebe Sim ou nã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 contatos
SQL = "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 programa
ELSE
   '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 IF
END 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 mostrados
intrec=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>

<style> 
<!-- 
a{text-decoration:none}
//--> 
</style>

</SCRIPT>
<LINK 
href="images/padrão.css" rel=stylesheet type=text/css>
<STYLE type=text/css>#divUpControl {
HEIGHT: 13px; LEFT: 518px; POSITION: absolute; TEXT-ALIGN: right; TOP: 340px; WIDTH: 12px; Z-INDEX: 1
}
#divDownControl {
HEIGHT: 12px; LEFT: 519px; POSITION: absolute; TEXT-ALIGN: right; TOP: 573px; WIDTH: 11px; Z-INDEX: 1
}
#divContainer {
CLIP: rect(0px 163px 232px 0px); HEIGHT: 232px; LEFT: 353px; OVERFLOW: hidden; POSITION: absolute; TOP: 346px; VISIBILITY: hidden; WIDTH: 163px
}
#divContent {
LEFT: 0px; POSITION: absolute; TOP: 0px
}
</STYLE>
<STYLE type=text/css>.tabela {
BACKGROUND: #f5f5f5; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px
}
.link {
COLOR: #000000; TEXT-DECORATION: none
}
.link:hover {
COLOR: #ff8040; TEXT-DECORATION: none
}
.TD {
COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px
}
.campo {
BACKGROUND: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px
}
.botao {
BACKGROUND: #f3f3f3; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #bbbbbd 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #bbbbbd 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px
}
.botao2 {
BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #ffffff; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #ffffff; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #ffffff; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.Menu:link {
BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px
}
.Menu:visited {
BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px
}
.Menu:unknown {
BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px
}
.Menu:hover {
BACKGROUND-COLOR: #f5f5f5; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px
}
</STYLE>


</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">
    &nbsp;<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>&nbsp;Nome:&nbsp;<%=RS("nome")%></b></font></td>
  </tr>
  <tr>
    <td width="86%" height="7" bordercolor="#C0C0C0" bgcolor="#F8F8F8">
    <font size="1" face="Verdana" class="TD"><b>&nbsp;Sobre Nome: &nbsp;<%=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>&nbsp;Email:&nbsp; <%=RS("login")%></b></font></td>
  </tr>
<%
   if  ver_email = "Sim" Then %>
  <tr>
    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">
    <p align="left">
    <font face="Verdana" size="1" class="TD"><b>&nbsp;Email:&nbsp;
    <%=RS("email")%></b> </font></p>
    </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>Por Opção do usuario , você não verá o email dele
    </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>&nbsp;Estado:&nbsp;<%=RS("estado")%>&nbsp;</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>&nbsp;Bairro:&nbsp;<%=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 IF
Wend '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>&nbsp;&nbsp;&nbsp;
<a href="paginacao.asp?pagina=<%=intpagina + 1%>" class="TD">&nbsp;&nbsp;&nbsp;&nbsp;
Próxima </a> 
<% 
END IF
%>

dark0 · Julho 5, 2004

olá.

cara.. não tenho nada contra você não, mas vou te dar umas dicas:

1- Descreva seu problema o mais possivel, sempre que puder. (nesse caso você fez isso)

2- Ao invés de jogar todo o código aí, poste o que realmente interessa. Não adianta mostrar todo o codigo, porque eu sou um que nem olho. E raramente posto nesse tipo de tópico. Coloque apenas a parte do código que acontece o problema, para ficar mais facil de interpretar, e lhe ajudar.

3- Explique o erro que dá, o que acontece, e o que você imagina que seja.

Fazendo isso, a gente pode olhar, e responder na hora, como aconteceu no seu tópico sobre conexão. Eu só olhei, entendi a duvida, e respondi.

Mas aqui, com esse codigo gigante, nem me dou o trabalho de tentar entender ele.

Resuma o codigo na parte que acontece o erro/problema.

Ok?

Não leve a mal, mas provavelmente ninguém gosta de responder esse tipo de tópico, e eu sou um deles!

Postei isso aqui para lhe ajudar a ter a duvida respondida mais rapidamente!

Abraços

Dark

mestre fyoda · Julho 5, 2004

Na hora do cadastro o usuario vai optar em mostrar o email ou não na paginação do site .

O que acontece é o seguinte , ele sempre entra no else DA PAGINAÇÂO . Por Que?

Campos do formulario :


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

Na Paginação :



<%
   if  ver_email = 1 Then %>

    <%=RS("email")%>


 <% else %>

    <font face="Verdana" size="1" class="TD"><b>Por Opção do usuario , você não verá o email dele

  <% END IF %>

dark0 · Julho 5, 2004

é isso aí !

você tem que mostrar pra nós só a parte que interessa no código !!

Parabens!

agora aqui:

if  ver_email = 1 Then %>

aí.. ao invés de colocar só o número 1, coloque "1", com aspas.. pois quando você enviou do formulario, os valores são strings! E para comparar com string, é necessário as aspas. aí, ficaria:

if  ver_email = "1" Then %>

tente isso aí

abraços

mestre fyoda · Julho 5, 2004

Agora ele so esta entando no ver_email = "1" .

Detalhe , no Access , esse campo esta como Texto .

dark0 · Julho 5, 2004

então, a variavel VER_EMAIL vem do banco?

Onde você esta atribuindo valor à ela?

o campo é texto?

A comparação é como eu falei ali.. com as aspas..

mas então, verifique se a variavel está realmente com o valor que deveria estar..

bareta · Julho 5, 2004

então mude no banco pra sim ou não....

ai o sim tem valor -1 e não tem valor 0

mestre fyoda · Julho 5, 2004

dark eu já disse , o campo ver_email ele esta no banco de dados como texto .

Como que faço pra abrir o valor a ela , você poderia me passar o codigo que abre o valor a ela .

Grato pela atenção .

dark0 · Julho 5, 2004

você sabe criar algum SQL?

sabe fazer um SELECT na tabela do banco?

Fazendo o SELECT, do banco:

sql = "Select * from tabela"

Executando o SQL

set rs = conexao.execute(sql)

agora, pra recuperar os dados do select:

nome = rs("nome")

basicamente é isso aí..

não tem muito o que explicar.. é sempre igual.. o que muda é a tabela, os campos do banco, e o modo que você quer selecionar os dados..

Entrar

Não Esta Imprimindo O Certo

Pergunta

mestre fyoda

Link para o comentário

Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

dark0

Link para o comentário

Compartilhar em outros sites

mestre fyoda

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

mestre fyoda

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

mestre fyoda

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades