Iniciante Com Muito Problema [resolvido]

lsardinha · July 30, 2004

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>

cyberalexxx · July 30, 2004

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

lsardinha · July 30, 2004

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

bareta · July 30, 2004

qual o erro do seu codigo???

lsardinha · July 30, 2004

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

bareta · July 30, 2004

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

lsardinha · July 30, 2004

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>

cyberalexxx · July 30, 2004

Olha o link na sua primeira pagina:

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

bareta · July 30, 2004

kd a conexão com o banco de dados?

lsardinha · July 30, 2004

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

lsardinha · July 30, 2004

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???

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

cyberalexxx · July 30, 2004

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:

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

bareta · July 30, 2004

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.

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

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

August 2, 2004

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

cyberalexxx · August 2, 2004

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

1º passo: criar o link:

August 2, 2004

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?????

lsardinha · August 2, 2004

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.

cyberalexxx · August 2, 2004

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

<% elseif meio = "home" then %>

<% end if%>

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

lsardinha · August 2, 2004

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>

bareta · August 2, 2004

você experimentou o que te passei???

lsardinha · August 2, 2004

você experimentou o que te passei???

Eu fiz como você me falou, alterando os links...

cyberalexxx · August 2, 2004

olha aqui os seus includes:

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

<% elseif meio = "home" then %>

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

bareta · August 2, 2004

você experimentou o que te passei???
Eu fiz como você me falou, alterando os links...

e funcionou???

lsardinha · August 2, 2004

você experimentou o que te passei???
Eu fiz como você me falou, alterando os links...
e funcionou???

estou testando a ultima coisa que você me passou...

lsardinha · August 2, 2004

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)

dark0 · August 2, 2004

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

Sign In

Iniciante Com Muito Problema [resolvido]

Question

Link to comment

Share on other sites

29 answers to this question

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest Guest

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest Guest

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Forum Statistics