Jump to content
Fórum Script Brasil
  • 0

Iniciante Com Muito Problema [resolvido]


lsardinha
 Share

Question

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 to comment
Share on other sites

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

  • 0
Guest Guest
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 to comment
Share on other sites

  • 0
Guest Guest
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 to comment
Share on other sites

  • 0

O meu banco de Dados tem duas tabelas, um com o nome de celulas, que é onde eu busco os dados para a primeira pagina, a outra tabela chama-se membros que é onde busco os dados detalhados para a segunda página... nela tem um campo chamado IdCel que o Id da tabela celula.

Link to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.7k
    • Total Posts
      648.4k
×
×
  • Create New...