Ir para conteúdo
Fórum Script Brasil
  • 0

Iniciante Com Muito Problema [resolvido]

lsardinha

Perguntado por lsardinha,

 Share

Pergunta

lsardinha

lsardinha

Postado
Postado

Fiz um pagina que faz a pesquisa no banco e retorna os valores em uma tabela, um dos campos (nome) será o link para os dados mais detalhados que virão em outra página, mas não consigo passar os valores para outra página para mostrar somente os dados daquele nome. posso estar fazendo tudo errado pois sou iniciante em ASP, alguém me ajuda por favor... o código das duas páginas estão aí abaixo:

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> 
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0"> 
  <tr> 
    <td height="5" bgcolor="#FFFFFF"><img src="imagens/5px.gif" width="10" height="5"></td> 
  </tr> 
  <tr> 
    <td valign="top" background="imagens/rtes.gif">&nbsp;</td> 
    <td height="20" valign="top" bgcolor="#D8D9D6"><img src="imagens/nossas.gif" width="195" height="20"></td> 
  </tr> 
  <tr> 
    <td height="10" valign="top" background="imagens/rtes.gif"><img src="imagens/10px.gif" width="10" height="10"></td> 
    <td height="10" valign="top"><img src="imagens/10px.gif" width="580" height="10"></td> 
  </tr> 
  <tr> 
    <td width="20" valign="top" background="imagens/rtes.gif">&nbsp;</td> 
    <td valign="top"><table width="580" border="0" cellpadding="1" cellspacing="1"> 
        <tr> 
          <td width="150" height="20" bgcolor="#CC0000" class="t&iacute;tulo-paginas"><font color="#FFFFFF">&nbsp;Nome</font><font color="#FFFFFF"> 

<% 
   Dim IdCel 
   Dim IdMem 
   Dim IdInd 
   Dim RcCel 
   Dim RcMem 
   Dim RcInd 
   Dim NomeCel 
   Dim Cor 
   'Dim link 
%> 

<%  AbreConexao 
   IdCel=request.querystring("Id") 
   IdMem=request.querystring("IdMem") 
   cat=request.querystring("cat") 
   album=request.querystring("album") 
'********************* - Mostra as Informações de quais células estão cadastradas - ********************* 
   If IdCel = "" Then 
      Set RcCel = Conexao.Execute("SELECT id,nome,endereco,fone FROM celulas ORDER BY nome") %> 
           </font></td> 
          <td width="330" bgcolor="#CC0000" class="t&iacute;tulo-paginas"><font color="#FFFFFF">&nbsp;&nbsp;&nbsp;Endere&ccedil;o</font></td> 
          <td width="100" bgcolor="#CC0000" class="t&iacute;tulo-paginas"><font color="#FFFFFF">&nbsp;&nbsp;&nbsp;Fone</font> 
          </td> 
        </tr> 
      </table> 
   <%    
   If Not RcCel.EOF Then 
      While not RcCel.EOF       
%> 
     <table width="580" border="0" cellspacing="1" cellpadding="1"> 
        <tr> 
          <td width="150" height="20" bgcolor="#FFECEC">&nbsp;<%Response.Write "<a href=""index.asp?lcl=membros&IdCel="&RcCel("id")&"&NomeCel="& RcCel("nome")&""" class='link-claro'>"&RcCel("nome")&"</a>"%></td> 
          <td width="330" bgcolor="#FFECEC" class="texto">&nbsp;<%Response.Write(RcCel("endereco") )%></td> 
          <td width="100" bgcolor="#FFECEC" class="texto">&nbsp;<%Response.Write(RcCel("fone") )%></td> 
        </tr> 
     </table> 
     <% 
      RcCel.Movenext 
      Wend 
   End If 
   End if 
   %> 
    </td> 
  </tr> 
  <tr> 
    <td height="5" bgcolor="#FFFFFF"><img src="imagens/5px.gif" width="10" height="5"></td> 
  </tr> 
</table> 
</body>
**********SEGUNDA PÁGINA*************** 
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> 
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0"> 
  <tr> 
    <td height="5" bgcolor="#FFFFFF"><img src="imagens/5px.gif" width="10" height="5"></td> 
  </tr> 
  <tr> 
    <td valign="top" background="imagens/rtes.gif">&nbsp;</td> 
    <td height="20" valign="top" bgcolor="#D8D9D6"><img src="imagens/celulas.gif" width="195" height="20"></td> 
  </tr> 
  <tr> 
    <td height="10" valign="top" background="imagens/rtes.gif"><img src="imagens/10px.gif" width="10" height="10"></td> 
    <td valign="top"><img src="imagens/10px.gif" width="280" height="10"></td> 
  </tr> 
  <tr> 
    <td valign="top" background="imagens/rtes.gif">&nbsp;</td> 
    <td valign="middle"><div class="subt&iacute;tulo-pag"><img src="imagens/10px.gif" width="10" height="10">L&iacute;deres 
        <% 
   Dim Param 
   Dim funcao 
   Dim conn 
   Dim Rc 
   Set conn = Server.CreateObject("ADODB.Connection") 
   Caminho = "DBQ=" & Server.MapPath("celulas/membros.mdb") 
   conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & Caminho 
   Set Rc = Server.CreateObject("ADODB.RecordSet") 

   sql = "Select nome,dia,mes,mail,fone,funcao,foto,IdCel from membros order by nome" 
   funcao = Request.Form("funcao") 
   Rc.Open sql, conn, 3, 3 
   Param = Request.QueryString("IdCel") 
%> 
<%Response.Write(Rc("IdCel"))%> 
<%Response.Write(IdCel)%>      </div></td> 
  </tr> 
  <tr> 
    <td height="10" valign="top" background="imagens/rtes.gif"><img src="imagens/10px.gif" width="10" height="10"></td> 
    <td height="10" valign="top"><img src="imagens/10px.gif" width="280" height="10"></td> 
  </tr> 
  <tr> 
    <td width="20" valign="top" background="imagens/rtes.gif">&nbsp;</td> 
    <td valign="top"> 
      <% if Rc.RecordCount > 0 then 
            while Not Rc.EOF 
     %> 
      <table width="580" border="0" cellspacing="0" cellpadding="0"> 
        <tr> 
          <td width="10" rowspan="2" align="center"><img src="imagens/10px.gif" width="10" height="10"></td> 
          <td width="55" rowspan="2" align="center" valign="middle"><img src="celulas/zoe/imagens/<%Response.Write(Rc("foto") )%>.gif" width="55" height="55"></td> 
          <td width="10" rowspan="2" align="center"><img src="imagens/10px.gif" width="10" height="10"></td> 
          <td width="505" height="10" valign="bottom" class="subt&iacute;tulo-pag"> 
            <% 
               Response.Write(Rc("nome") ) 
         %> 
            Reitter </td> 
        </tr> 
        <tr> 
          <td height="35" class="texto-celula"><table width="500" border="0" align="left" cellpadding="0" cellspacing="0"> 
              <tr> 
                <td width="100" class="subt&iacute;tulo-pag">Dt niver:</td> 
                <td width="405" class="texto"> 
                  <%Response.Write(Rc("dia") )%> 
                  / 
                  <%Response.Write(Rc("mes") )%> 
                </td> 
              </tr> 
              <tr> 
                <td class="subt&iacute;tulo-pag">Fone</td> 
                <td class="texto"> 
                  <%Response.Write(Rc("fone") )%> 
                </td> 
              </tr> 
              <tr> 
                <td class="subt&iacute;tulo-pag">e-mail</td> 
                <td class="texto"> 
                  <%Response.Write(Rc("mail") )%> 
                </td> 
              </tr> 
            </table></td> 
        </tr> 
        <tr> 
          <td height="10" colspan="4" align="center"><img src="imagens/10px.gif" width="10" height="10"></td> 
        </tr> 
      </table> 
      <%Rc.MoveNext 
      wend 
      Rc.Close 
   end if 
   %> 
    </td> 
  </tr> 
  <tr> 
    <td height="5" bgcolor="#FFFFFF"><img src="imagens/5px.gif" width="10" height="5"></td> 
  </tr> 
</table> 

</body>

Link para o comentário
Compartilhar em outros sites

29 respostass a esta questão

Posts Recomendados

  • 0
lsardinha

lsardinha

Postado
  • Autor
Postado
o campo IDCEL é Numero ou TEXTO?

No seu SQL, você esta tratando ele, como se fosse TEXTO.

tente:

<% sql = "Select nome,dia,mes,mail,fone,funcao,foto,IdCel from membros where IdCel="&Request.QueryString("IdCel")&" order by nome"

Set RcMem=Conexao.Execute(sql)

eu só tirei a aspa simples antes de: "&Req.. e depois de &"..

beleza, era as aspas mesmo, agora ele carregou a segunda página... só não mostrou os dados, mas vou dar uma olha pra ver o que é, qualquer coisa encho a sua paciencia de novo, valeu demais da conta, obrigadão...

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

certo

qualquer coisa, estamos aí

abraços

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Está Certo então!

Que bom que funcionou!

Abraços

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...