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"> </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"> </td>
<td valign="top"><table width="580" border="0" cellpadding="1" cellspacing="1">
<tr>
<td width="150" height="20" bgcolor="#CC0000" class="título-paginas"><font color="#FFFFFF"> 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ítulo-paginas"><font color="#FFFFFF"> Endereço</font></td>
<td width="100" bgcolor="#CC0000" class="título-paginas"><font color="#FFFFFF"> 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"> <%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"> <%Response.Write(RcCel("endereco") )%></td>
<td width="100" bgcolor="#FFECEC" class="texto"> <%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>
Pergunta
lsardinha
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"> </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"> </td> <td valign="top"><table width="580" border="0" cellpadding="1" cellspacing="1"> <tr> <td width="150" height="20" bgcolor="#CC0000" class="título-paginas"><font color="#FFFFFF"> 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ítulo-paginas"><font color="#FFFFFF"> Endereço</font></td> <td width="100" bgcolor="#CC0000" class="título-paginas"><font color="#FFFFFF"> 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"> <%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"> <%Response.Write(RcCel("endereco") )%></td> <td width="100" bgcolor="#FFECEC" class="texto"> <%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"> </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"> </td> <td valign="middle"><div class="subtítulo-pag"><img src="imagens/10px.gif" width="10" height="10">Lí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"> </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í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ítulo-pag">Dt niver:</td> <td width="405" class="texto"> <%Response.Write(Rc("dia") )%> / <%Response.Write(Rc("mes") )%> </td> </tr> <tr> <td class="subtítulo-pag">Fone</td> <td class="texto"> <%Response.Write(Rc("fone") )%> </td> </tr> <tr> <td class="subtítulo-pag">e-mail</td> <td class="texto"> <%Response.Write(Rc("mail") )%> </td> </tr> </table></td> </tr> <tr> <td height="10" colspan="4" align="center"><img src="imagens/10px.gif" width="10" height="10"></td> </tr> </table> <%Rc.MoveNext wend Rc.Close end if %> </td> </tr> <tr> <td height="5" bgcolor="#FFFFFF"><img src="imagens/5px.gif" width="10" height="5"></td> </tr> </table> </body>Link para o comentário
Compartilhar em outros sites
29 respostass a esta questão
Posts Recomendados
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.