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

Iniciante Com Muito Problema [resolvido]


lsardinha

Pergunta

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

Posts Recomendados

  • 0
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;
<a href="index.asp?detalhe=<%=RcCel.Fields("nome)%>" class='link-claro'>=<%=RcCel.Fields("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 where nome='"&request("detalhe")&"' 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>

Mudei um pouco seu codigo

Link para o comentário
Compartilhar em outros sites

  • 0

Percebi onde você mudou no código, mas agora dá esse erro:

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

Informações técnicas (para a equipe de suporte)

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0409)

Constante de seqüência não finalizada

/sviventes/celulas/nossas.asp, line 61, column 35

Link para o comentário
Compartilhar em outros sites

  • 0

qual o erro do seu codigo???

Estou fazendo uma pagina que ira mostrar quais grupos temos na igreja, então faço a pesquisa no banco e ele me retorna os nomes dos grupos, até aqui vai tudo certo, o problema é que quero clicar nesse nome e ele me mostrar em outra pagina os dados detalhados desse grupo...

Link para o comentário
Compartilhar em outros sites

  • 0

aqui faz um select para mostrar as categorias

<%

sql="Select * from tabela"
set RecSet=conexao.execute(sql)

while not RecSet.EOF
%>
<a href="arquivo.asp?grupo=<%=Recset("grupo")%>>"<%=Recset("grupo")%></a><br>
<%
 RecSet.MoveNext

wend
RecSet.Close
%>
aqui faz uma querystring para mostrar os dados
<%
sql="Select * from tabela where grupo='"&request.querystring("grupo")&"'"
set RecSet=conexao.execute(sql)

eu costumo usar esse exemplo...

Link para o comentário
Compartilhar em outros sites

  • 0

aqui faz um select para mostrar as categorias

<%

sql="Select * from tabela"
set RecSet=conexao.execute(sql)

while not RecSet.EOF
%>
<a href="arquivo.asp?grupo=<%=Recset("grupo")%>>"<%=Recset("grupo")%></a><br>
<%
 RecSet.MoveNext

wend
RecSet.Close
%>
aqui faz uma querystring para mostrar os dados
<%
sql="Select * from tabela where grupo='"&request.querystring("grupo")&"'"
set RecSet=conexao.execute(sql)
eu costumo usar esse exemplo...
Então.... Fiz as alterações só que não aparece nada na segunda página.... não carrega a segunda.... **********`Primeira 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/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;
    <a href="index.asp?lcl=nossas=<%=RcCel.Fields("Id")%> "class='link-claro'"><%=RcCel.Fields("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 
  %> 
  
<% FechaConexao %>
   </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/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 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 conn
	Dim Rc
	AbreConexao 
%>

<%	sql = "Select nome,dia,mes,mail,fone,funcao,foto,IdCel from membros where membros='"&Request.QueryString("membros")&"'order by nome"
	Set RcMem=Conexao.Execute(sql)
%>
</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
	%>

	<% FechaConexao %>
    </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

  • 0

Olha o link na sua primeira pagina:

<a href="index.asp?lcl=nossas=<%=RcCel.Fields("Id")%>

olha o seu select na segunda pagina:

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

não existe Request.QueryString("membros") no seu hiperlink da primeira pagina

Link para o comentário
Compartilhar em outros sites

  • 0
kd a conexão com o banco de dados?

**** A Conexão com o banco de dados *****

<%

Dim conStr

Dim ConexaoAberta

%>

<% Set Conexao = CreateObject("ADODB.CONNECTION")

conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("celulas/membros.mdb")

ConexaoAberta = FALSE

Sub AbreConexao()

if not ConexaoAberta then

Conexao.Open ConStr

ConexaoAberta = True

end if

end sub

Sub FechaConexao()

if ConexaoAberta then

Conexao.close

ConexaoAberta = False

end if

end sub %>

Link para o comentário
Compartilhar em outros sites

  • 0
Olha o link na sua primeira pagina:

<a href="index.asp?lcl=nossas=<%=RcCel.Fields("Id")%>

olha o seu select na segunda pagina:

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

não existe Request.QueryString("membros") no seu hiperlink da primeira pagina

o que tenho que colocar no select da segunda pagina então???

sad.gif Olha desculpe, mas é porque sou iniciante mesmo em programação, ASP é a primeira que estou aprendendo. sad.gif

Link para o comentário
Compartilhar em outros sites

  • 0

Veja se é isso que voce quer??

1 - A primeira pagina lista todos os registros.

2 - clicar no nome para a abrir a segunda pagina com os detalhes do registro.

1º passo: criar o link:

<a href="index.asp?membro=<%=RcCel.Fields("Id")%>

quando voce clicar neste link vai ser aberta a segunda pagina(index.asp - nome estranho para uma segunda pagina verifique se o nome é esse mesmo)

de acordo com o link colocado o valor de request.QueryString("membro") sera o valor do campo Id no banco de dados.

Agora é se dar um select para pegar apenas o registro em que o campo Id for igual ao Id selecionado na pagina anterior, que já esta armazenado em request.QueryString("membro")

então o select fica assim:

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

Não sei se fui claro, qualquer coisa volta ai

Link para o comentário
Compartilhar em outros sites

  • 0

para fazer um select você tem que colocar a conexão na pagina tambem...

abre a conexão faz select... ai imprime os dados na tela como links... fecha o selct e fecha a conexão.....

ai na 2º pagina faz um select de acordo com o valor do query string.....

pagina 1.

<!--#include file="conecta.asp"-->

<% Set RecSet = Server.CreateObject("ADODB.Recordset") %>

<% RecSet.Open "select * from tabela", conn

while not RecSet.EOF

response.write "<a href=""pagina 2.asp?campo=RecSet("campo")"">&RecSet("campo")&"</a><br>"

RecSet.MoveNext

wend

RecSet.Close

conn.close

%>

pagina2.

<% campo = request.querystring("campo") %>

<!--#include file="conecta.asp"-->

<% Set RecSet = Server.CreateObject("ADODB.Recordset") %>

<% RecSet.Open "select * from tabela where campo='"& campo &"'", conn

response.write RecSet("campo")&"<br>"

response.write RecSet("campo1")&"<br>"

response.write RecSet("campo2")&"<br>"

RecSet.close

conn.close

%>

conecta.asp

<%

set conn = createobject("adodb.connection")

conn.open = "Data Source=" & Server.Mappath("fotos.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"

%>

edite o que tiver em vermelho... adequando a sua nescessidade...

Link para o comentário
Compartilhar em outros sites

  • 0
Veja se é isso que voce quer??

1 - A primeira pagina lista todos os registros.

2 - clicar no nome para a abrir a segunda pagina com os detalhes do registro.

1º passo: criar o link:

<a href="index.asp?membro=<%=RcCel.Fields("Id")%>

quando voce clicar neste link vai ser aberta a segunda pagina(index.asp - nome estranho para uma segunda pagina verifique se o nome é esse mesmo)

de acordo com o link colocado o valor de request.QueryString("membro") sera o valor do campo Id no banco de dados.

Agora é se dar um select para pegar apenas o registro em que o campo Id for igual ao Id selecionado na pagina anterior, que já esta armazenado em request.QueryString("membro")

então o select fica assim:

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

Não sei se fui claro, qualquer coisa volta ai

é porque faço um include das duas paginas na index.asp....

<% Dim meio 
      meio = Request.QueryString("lcl")
      if meio = "" then
          meio = "home"
      end if
%>


...
<% elseif meio = "membros" then %>
<!--#include file="celulas/membros.asp"-->  
<% elseif meio = "home" then %>
<!--#include file="home.asp"-->
<% end if%>  

Link para o comentário
Compartilhar em outros sites

  • 0
então o primeiro passo do exemplo que eu dei fica assim:

1º passo: criar o link:

<a href="index.asp?lcl=membros&membro=<%=RcCel.Fields("Id")%>

Mas como a index.asp vai incluir um página, pois não tenho nenhum include para

index.asp?lcl=membros&membro?????

Link para o comentário
Compartilhar em outros sites

  • 0
então o primeiro passo do exemplo que eu dei fica assim:

1º passo: criar o link:

<a href="index.asp?lcl=membros&membro=<%=RcCel.Fields("Id")%>

Mas como a index.asp vai incluir um página, pois não tenho nenhum include para

index.asp?lcl=membros&membro?????

olha o include aqui

<% Dim meio

    meio = Request.QueryString("lcl")

    if meio = "" then

        meio = "home"

    end if

%>

...

<% elseif meio = "membros" then %>

<!--#include file="celulas/membros.asp"--> 

<% elseif meio = "home" then %>

<!--#include file="home.asp"-->

<% end if%> 

no link você passa a informação de que lcl="membros" sendo assim vai ser incluida a pagina: celulas/membros.asp

Link para o comentário
Compartilhar em outros sites

  • 0

Veja se ficou correto por favor...porque quando clico no link ele mostra a mesma página e o endereço fica: sviventes/index.asp?lcl=nossas&nossas=3

*** PÁGINA 1 ***

<!--#include file="Conn.asp"-->
<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;
    <a href="index.asp?lcl=nossas&nossas=<%=RcCel.Fields("Id")%> "class='link-claro'"><%=RcCel.Fields("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 
  %> 
  
<% FechaConexao %>
   </td> 
 </tr> 
 <tr> 
   <td height="5" bgcolor="#FFFFFF"><img src="imagens/5px.gif" width="10" height="5"></td> 
 </tr> 
</table> 
</body
*** PÁGINA 2 ***
<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 conn
	Dim Rc
	AbreConexao 
%>

<%	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)
%>
</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
	%>

	<% FechaConexao %>
    </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

  • 0

olha aqui os seus includes:

<% Dim meio

    meio = Request.QueryString("lcl")

    if meio = "" then

        meio = "home"

    end if

%>

...

<% elseif meio = "membros" then %>

<!--#include file="celulas/membros.asp"--> 

<% elseif meio = "home" then %>

<!--#include file="home.asp"-->

<% end if%> 

 

Considerando que pagina que você chama no seu post de pagina 2 seja a pagina membros.asp

algumas mudanças devem ser feitas no do link na pagina 1:

  <a href="index.asp?lcl=membros&IdCel=<%=RcCel.Fields("Id")%> "class='link-claro'"><%=RcCel.Fields("nome")%> </a></td>

Link para o comentário
Compartilhar em outros sites

  • 0

Agora esta esse erro:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

/sviventes/celulas/membros.asp, line 32

*** Essa é a linha 31 e 32 da página 2 ***

<% 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)

Link para o comentário
Compartilhar em outros sites

  • 0

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 &"..

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.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...