Conteúdo de lsardinha - Página 4 - Fórum Script Brasil

Iniciante Com Muito Problema [resolvido]

pergunta respondeu ao lsardinha de lsardinha em ASP

Não poderia de deixar de vir aqui te agradecer, consegui fazer funcionar do forma que queria... o site ainda esta em construção mas o resultado já esta lá... Seres Viventes Muito obrigado! Luiz Sardinha

Iniciante Com Muito Problema [resolvido]

pergunta respondeu ao lsardinha de lsardinha em ASP

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

Iniciante Com Muito Problema [resolvido]

pergunta respondeu ao lsardinha de lsardinha em ASP

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)

Iniciante Com Muito Problema [resolvido]

pergunta respondeu ao lsardinha de lsardinha em ASP

Eu fiz como você me falou, alterando os links... e funcionou??? estou testando a ultima coisa que você me passou...

Iniciante Com Muito Problema [resolvido]

pergunta respondeu ao lsardinha de lsardinha em ASP

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

Iniciante Com Muito Problema [resolvido]

pergunta respondeu ao lsardinha de lsardinha em ASP

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 ***  <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">  <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"> <%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 %> <% 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"> </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 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"> </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 %> <% FechaConexao %> </td> </tr> <tr> <td height="5" bgcolor="#FFFFFF"><img src="imagens/5px.gif" width="10" height="5"></td> </tr> </table> </body>

Iniciante Com Muito Problema [resolvido]

pergunta respondeu ao lsardinha de lsardinha em ASP

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.

Iniciante Com Muito Problema [resolvido]

pergunta respondeu ao lsardinha de lsardinha em ASP

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.

Iniciante Com Muito Problema [resolvido]

pergunta respondeu ao lsardinha de lsardinha em ASP

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

Iniciante Com Muito Problema [resolvido]

pergunta respondeu ao lsardinha de lsardinha em ASP

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"> </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">  <a href="index.asp?lcl=nossas=<%=RcCel.Fields("Id")%> "class='link-claro'"><%=RcCel.Fields("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 %> <% 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"> </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"> </td> <td valign="middle"><div class="subtítulo-pag"><img src="imagens/10px.gif" width="10" height="10">Lí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"> </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 %> <% FechaConexao %> </td> </tr> <tr> <td height="5" bgcolor="#FFFFFF"><img src="imagens/5px.gif" width="10" height="5"></td> </tr> </table> </body>

Iniciante Com Muito Problema [resolvido]

pergunta respondeu ao lsardinha de lsardinha em ASP

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

Iniciante Com Muito Problema [resolvido]

pergunta respondeu ao lsardinha de lsardinha em ASP

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

Iniciante Com Muito Problema [resolvido]

uma questão postou lsardinha ASP

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>

Entrar

lsardinha

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Tudo que lsardinha postou

Iniciante Com Muito Problema [resolvido]

Iniciante Com Muito Problema [resolvido]

Iniciante Com Muito Problema [resolvido]

Iniciante Com Muito Problema [resolvido]

Iniciante Com Muito Problema [resolvido]

Iniciante Com Muito Problema [resolvido]

Iniciante Com Muito Problema [resolvido]

Iniciante Com Muito Problema [resolvido]

Iniciante Com Muito Problema [resolvido]

Iniciante Com Muito Problema [resolvido]

Iniciante Com Muito Problema [resolvido]

Iniciante Com Muito Problema [resolvido]

Iniciante Com Muito Problema [resolvido]

Navegação

Atividades