Conteúdo de marcos_804 - Página 8

Ajuda...

uma questão postou marcos_804 ASP

Galera estou desenvolvendo um sistema de de cadastro de alunos e outras coisas mais... chega uma hora que eu preciso dar um loop para inserri no banco de dados... mas gera um erro assim: mas na linha 233 encontra-se a parte que faz a atualização... ... rs.AddNew rs("Cod_Aluno") = Cod_Aluno rs("N_Contrato") = N_Contrato rs("V_Pagar") = V_FinalParcela rs("N_Parcela") = DParcelas rs("D_Vencimento") = D_Vencimento rs("Bloqueto") = Nbloqueto rs("Cod_Tipo") = "1" rs("Cod_Ocorrencia") = "1" ("Desc") = Desc rs("Obs") = Obs [B][color=#FF0000]rs.Update[/color][/B] --> ESTA É A LINHA 233 O DILAMA É: nenhum campo desta tabela tem índice... alguém sabe mesmo o que eu posso fazer? ------->> Desde já agradeço!

Sumir Com Id

pergunta respondeu ao marcos_804 de marcos_804 em Ajax, JavaScript, XML, DOM

--> Olha só quando clica-se no check box que está de vermelhor, o que está de marrom some. --> mas fica um espção vago do id = "outrasParcelas"; quero que o espaço suma literalmente... Atualmente ele só está ficando invisível...

Sumir Com Id

uma questão postou marcos_804 Ajax, JavaScript, XML, DOM

Galera que gostaria de fazer uma função para um id sumir quando uma pessoa clicasse num checkbox... --> isso eu fiz através da visibilidade... --> isso eu consegui, mas que queria que o espaço que ID estava fique vazio...

Paginação

pergunta respondeu ao shelter de marcos_804 em ASP

ESTOU aqui PARA AJUDAR... cara você poderá ver como este script funciona nes página: http://i.1asphost.com/teajudo/livro/ver_livro.asp?pagina=1 e aqui vem o código... é só você adaptar... <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Vendo Mensagem do site</title> </head> <body> <%if request.querystring("enviado") = "ok" then%> <div align="center"> <center> <table border="0" width="500" cellpadding="0"> <tr> <tudo width="100%" align="center" style="color:#FF0000"> A sua mensagem foi postada com sucesso, porém o administrador do site vai vê-la primeiro antes de ela ir para o ar! </tudo> </tr> </table> </center> </div> <%end if%> <% '-------------------------------------------------------------------------- 'Aqui vem todos os dados da paginacao # '-------------------------------------------------------------------------- TamanhoDaPagina = 2 pagina = request.querystring("pagina") if pagina = "" then pagina = CInt("1") else pagina = CInt(request.querystring("pagina")) end if '-------------------------------------------------------------------------- vendo = "1" Set rs = Server.CreateObject("ADODB.RecordSet") DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb") SQL = "SELECT * FROM mensagem WHERE ver = '"& vendo &"' ORDER BY id DESC" rs.Open SQL, DSN, 3, 3 TotaldePaginas = CInt(rs.RecordCount/TamanhoDaPagina) rs.PageSize= TamanhoDaPagina if not rs.EOF then rs.AbsolutePage = pagina for x = 1 to TamanhoDaPagina if rs.EOF then exit for%> <div align="center"> <center> <table border="0" width="500" cellspacing="1" cellpadding="0"> <tr> <tudo width="116" valign="middle" align="right"><b>Nome:</b></tudo> <tudo width="368" valign="top" align="left"><%=rs("nome")%></tudo> </tr> <tr> <tudo width="116" valign="middle" align="right"><b>E-mail:</b></tudo> <tudo width="368" valign="top" align="left"><%=rs("email")%></tudo> </tr> <%if rs("site") = "0" or rs("site") = "" or rs("site") = "http://" then else%> <tr> <tudo width="116" valign="middle" align="right"><b>Site:</b></tudo> <tudo width="368" valign="top" align="left"><a href="http://<%=rs("site")%>" target="_blank"><%=rs("site")%></a></tudo> </tr> <%end if%> <tr> <tudo width="116" valign="top" align="right"><b>Mensagem:</b></tudo> <tudo width="368" valign="top" align="left"><%=rs("msg")%></tudo> </tr> <tr> <tudo width="484" valign="top" align="right" colspan="2"> <table border="0" width="100%" cellspacing="1" cellpadding="0"> <tr> <tudo width="25%" align="right"><b>Data</b>:</tudo> <tudo width="25%" align="left"><%=rs("data")%></tudo> <tudo width="25%" align="right"><b>Hora:</b></tudo> <tudo width="25%" align="left"><%=rs("hora")%></tudo> </tr> <tr> <tudo width="100%" align="right" colspan="4"><hr></tudo> </tr> </table> </tudo> </tr> </table> </center> </div> <%rs.MoveNext Next 'end if do absolute page end if%> <br> <div align="center"> <center> <table border="0" width="500" cellspacing="1" cellpadding="0"> <tr> <tudo width="100" valign="middle" align="right"> <%if pagina <> 1 then response.write "<a href=""ver_livro.asp?pagina="& pagina - 1 &""">Página Anterior</a>" end if%> </tudo> <tudo width="300" align="center"> <div id="pagg0"> <%for y = 1 to TotaldePaginas if pagina <> y then response.write " <a href=""ver_livro.asp?pagina=" & y & """>" & y & "</a>" else response.write " "& y &" " end if next%></div> </tudo> <tudo width="100" valign="middle" align="left"> <%if pagina < TotaldePaginas then response.write "<a href=""ver_livro.asp?pagina="& pagina + 1 &""">Próxima Página</a>" end if%></tudo> </tr> </table> </center> </div> </body> </html> Se você não entender poderá pedir ajuda... falou?

Como Buscar De Tabelas Indexadas?

pergunta respondeu ao marcos_804 de marcos_804 em ASP

cara eu não posso dizer muito poir não sei qual o nome deste tipo de indexação de tabelas... Por favor para você entender veja a imagem que está no meu tópico ... ou melhot copie e cole o link no browser, pois a imagem não esta aparecendo aqui... Espero que me entendam... pois esta é uma necessidade minha constante

Nau Mtenho A Menos Idéia De Como...

pergunta respondeu ao rike_0 de marcos_804 em ASP

Cara para você pegar um valor de um link que seja clicado é fácil... Por exemplo na URL: index.asp?nome=Marcos Oliveira&dia=Este dia Você vai poder chamar o campo de "nome" assim... <%=request.querystring("nome")%> ou <%response.write request.querystring("nome")%> --> que neste caso vai escrever : Marocs Oliveira e o nome de "dia": <%=request.querystring("dia")%> ou <%response.write request.querystring("dia")%> --> que neste caso vai escrever : Este dia

Como Buscar De Tabelas Indexadas?

uma questão postou marcos_804 ASP

Galera estou com um banco de dados de cep... mas o problema é que só tem o cep que a pessoa vai buscar na tabela de ruas... ... e as outras (cidade e bairro) estão indexadas junto a esta da rua... alguém sabe como eu poderia fazer a busca da rua e depois buscar das tabelas indexadas

Que Erro Eh Este?

pergunta respondeu ao marcos_804 de marcos_804 em ASP

galera não precisa mais.... já descobri qual erro é... era o tamanho do campo do banco que não estava compatível com o numero de caracteres inseridos... agora TODOS que lemos este tópico já sabemos disso...rs MODERADORES... podem fechar o tópico e valeu...

Que Erro Eh Este?

uma questão postou marcos_804 ASP

alguém poderia me dizer que erro é este: Microsoft OLE DB Provider for ODBC Drivers erro '80040e21' Operação OLE DB de várias etapas gerou erros. Verifique cada valor de status OLE DB. Nada foi executado. /testes_intranet/x5_versao_1.0/includes\inserir.asp, line 118 ... a coisa é que uma hora ele insere no banco de dados normalmente... ... noutra gera esta merda de erro... alguém poderia me iluminar e me dizer o que significa?

Como Solucionar Isso? Erro #80004005

uma questão postou marcos_804 ASP

Olá pessoal, preciso saber urgente como solucionar o problema Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Microsoft][Driver ODBC para Microsoft Access] Não é possível atualizar. O banco de dados ou o objeto é somente leitura. /testes_intranet/teste_update.asp, line 16 O que eu poderia fazer para que o iis aceitasse eu atualizar um banco de dados? Na verdade estou montando um sistema de intranet. Um amigo meu é o administrador da rede. Atualmente mudamos de servidor. // O codigo rodava certinho anteriormente, mas agora ele não consegue atualizar... // pior que meu amigo não conseguiu solucionar o problema. alguém saberia como eu posso fazer isso? Solucionar este maldito erro!

Urgente - Nome De Request.form("")

uma questão postou marcos_804 ASP

Pessoal estou precisando de saber como chamar um campo de formulario quando se chama um upload. para chamar um form normal é request.form(), mas como deve ser feito para chamar quando deve ser chamado por uma forma de upload.

Cadastro De Clientes Com Login

pergunta respondeu ao Michely de marcos_804 em ASP

Olá minha amiga. Uma das formas seria você enviar um cookie na hora que o seu cliente logar. Depois seria só você dar uma rotina daquelas if.. com o cookie e definir o que e quem pode ver, somente quando estao logados... Bem não sei se você entendeu... mas se não peça ajuda de novo...rs

Inserção Multipla!

pergunta respondeu ao Nesh de marcos_804 em ASP

Olá Brother, acho que tenho a solução para você... veja o código a seguir... Obs: Improprio = 1; legal = 2; bom = 3; gostando = 4; nada = 5; teste = 6<br><br>Faça o teste<br> <form action="?id=inserir" method="post"> URL: <input type="text" name="url"><br> Impróprio <input type="checkbox" name="classifica" value="1"><br> Legal <input type="checkbox" name="classifica" value="2"><br> Bom <input type="checkbox" name="classifica" value="3"><br> Gostando <input type="checkbox" name="classifica" value="4"><br> Nada <input type="checkbox" name="classifica" value="5"><br> Teste <input type="checkbox" name="classifica" value="6"><br> <input type="submit" value="Testar"> </form> <% id = request.QueryString("id") if id = "inserir" then url = request.Form("url") classifica = request.Form("classifica") for each i in request.Form("classifica") response.Write url & "<br>" & i & "<hr>" next end if %> Se você não entender muito, poderá ver este código em pleno funcinamento aqui no link: http://i.1asphost.com/teajudo/ArquivosFauldade/multiplas.asp Bem se isso ajudar tah ai... mas se tiver mais duvudas pergunta ai...

Log Out Com O Fechameto Do Browser!

uma questão postou marcos_804 ASP

URGENTE Olá galera estou com uma maltida duvida. Presico que todos os cookies da minha sessao sejam apagados com o fechamento do browser! Na verdade eu consigo fazer a expiracao programada... aquela que você diz quanto tempo o cookie devera permanecer no pc do cliente... mas quero esta faixa de seguranca, pois seria mais seguro. Estou desenvolvendo um sistema e preciso que todos os cookies se apaguem, pois se não apagar outro usuario podera usar a senha e login do usuario anterior assim que for fechado o browser... alguém sabe? Desde já agradeco

Bolão

pergunta respondeu ao fantasma de marcos_804 em ASP

não meu caro você não deve fazer isso SQL = "UPDATE teste SET WHERE id_jogo=" & id mas sim isso: SQL = "[b]SELECT * FROM[/b] teste WHERE id_jogo=" & id sera que agora funciona? rs? tenta ai....

Bolão

pergunta respondeu ao fantasma de marcos_804 em ASP

Cara o que eu vi é que você dá um monte de "execute" mas não fecha a conexao... dai se ela ficar aberta não vai atualizar... faca desta forma que eu falei para vc SQL = "Puxa a conexao WHERE id=" & id rs("pontos") = numero da atualizacao rs.Update rs.Close Este tipo é mais facil de ser feita e da para fechar facilmente...rs

Bolão

pergunta respondeu ao fantasma de marcos_804 em ASP

>> acho que voce não esta fechando a conexao! Cara que não entendi muito o seu codigo, mas acho que voce poderia fazer um sistema de atualizacao mais facil. faz assim oh: SQL = "Puxa a conexao WHERE id=" & id 'Campo que puxa o campo de pontos rs("pontos") = numero da atualizacao 'Aqui atualiza rs.Update 'Aqui fecha a conexao rs.Close Cara eu estou te dando esta dica por que há algum tempo eu tive este problema de não atualizacao. e eu testei este e logo deu certo. Se não funcionar acho que valeu a intencao!

Selecionando Dados De Tabela

pergunta respondeu ao marcos_804 de marcos_804 em ASP

Ai vai o godigo... as partes comentadas são as buscas que estao dando errado... <%Set rs = Server.CreateObject("ADODB.RecordSet") DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("X5-2003.mdb") SQLbusca = "SELECT * FROM TB_Alunos ORDER BY aluno ASC" rs.Open SQLbusca, DSN, 3, 3 for x = 1 to 5 if rs.EOF then exit for response.Write rs("Cod_Aluno") & "<br>" response.Write rs("Cod_Titular") & "<br>" response.Write rs("Aluno") & "<br>" response.Write rs("CPF") & "<br>" response.Write rs("RG/IE") & "<br>" response.Write rs("O_Emissor") & "<br>" response.Write rs("Nascimento") & "<br>" response.Write rs("Sexo") & "<br>" response.Write rs("Fone_Resd") & "<br>" response.Write rs("Fone_com") & "<br>" response.Write rs("Fone_Cel") & "<br>" response.Write rs("Divulgacao") & "<br>" response.Write rs("Endereco") & "<br>" response.Write rs("Complemento") & "<br>" response.Write rs("Bairro") & "<br>" response.Write rs("Cidade") & "<br>" response.Write rs("UF") & "<br>" response.Write rs("Cep") & "<br>" response.Write rs("D_Contrato") & "<br>" response.Write rs("Pai") & "<br>" response.Write rs("Mae") & "<br>" response.Write rs("E_civil") & "<br>" response.Write rs("G_Estudo") & "<br>" response.Write rs("Cod_Funcionario") & "<br>" response.Write rs("Cod_Sede") & "<br>" response.Write rs("Cod_Profissao") & "<br>" response.Write rs("Cod_Fonte") & "<br>" 'response.Write rs("N_Contrato") & "<br>" 'response.Write rs("N_Parcela") & "<br>" 'response.Write rs("D_Vencimento") & "<br>" 'response.Write rs("Bloqueto") & "<br>" 'response.Write rs("Cod_Ocorrencia") & "<br>" 'response.Write rs("Desc") & "<br>" 'response.Write rs("V_Pagar") & "<br>" 'response.Write rs("D_Pagamento") & "<br>" 'response.Write rs("V_Pago") & "<br>" 'response.Write rs("V_Juros") & "<br>" 'response.Write rs("Obs") & "<br>" rs.MoveNext response.write "<hr>" Next %> mas acho que minha conexao esta correta!

Selecionando Dados De Tabela

uma questão postou marcos_804 ASP

Galera alguém sabe como eu posso fazer para poder selecionar dados de um subnivel de tabela? Eu estou chamando mas ele diz que o campo não existe! desde já. agradeço!

Como Rodar Asp Internament

uma questão postou marcos_804 ASP

Galera já estou com o IIs instalado... alguém sabe como eu poso fazer para poder rodar as minhas paginas internamente? Galera tentei acessar as paginas que estao no local wwwroot mas não funciona.... Ou se alguém já quiser mesmo conferir o codigo para achar se vai dar algum erro pode ver ai... <% '**Definindo as variaveis para poder fazer com que a pessoa se logue ***** '*** Ele busca cookies para ver se pode ou não logar id = request.QueryString("id") logado = request.Cookies("logado") logadoNome = request.Cookies("logadoNome") if logado = "" OR logadoNome = "" then if id = "" then %> <form action="?id=logando" method="post"> Login: <input type="text" name="login"><br> Senha: <input type="password" name="senha"><br> <input type="submit" value="logar"><br> </form> <%elseif id = "logado" login = request.Form("login") senha = request.Form("senha") Set rs = Server.CreateObject("ADODB.RecordSet") DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("bd.mdb") SQLlogin = "SELECT * FROM login WHERE login = '"& login &"' and senha = '"& senha&"'" rs.Open SQLlogin, DSN, 3, 3 if rs.RecordCount = "1" then response.Cookies("logado") = "Verdade" response.Cookies("logadoNome") = rs("nome") else response.Redirect "?" end if '-- Aqui eu finalizo os ifs de ID '---Caso os cookies não estejam vazios então else%> voce esta logado! <%end if%> alguém sabe se ele esta mesmo correto?

Problemas Com Paginação

pergunta respondeu ao douglasdamame de marcos_804 em ASP

CARA AGORA EU ESTOU SEM TEMPO PARA PODER OLHAR SEU CODIGO... SE você QUIZER EU FIZ UM LIVRO DE VISITAS QUE CRIA UMA PAGINACAO... AI VAI O CODIGO ESTA TOTALMENTE CERTO SE você QUISER UTILIZAR PODE... SE você não ENTENDER ALGUMA CCOISA PODE ME PEDIR AJUDA ESTOU MESMO PRONTO PARA AJUDAR. <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Vendo Mensagem do site</title> </head> <body> <%if request.querystring("enviado") = "ok" then%> <div align="center"> <center> <table border="0" width="500" cellpadding="0"> <tr> <td width="100%" align="center" style="color:#FF0000"> A sua mensagem foi postada com sucesso, porém o administrador do site vai vê-la primeiro antes de ela ir para o ar! </td> </tr> </table> </center> </div> <%end if%> <% '-------------------------------------------------------------------------- 'Aqui vem todos os dados da paginacao # '-------------------------------------------------------------------------- TamanhoDaPagina = 2 pagina = request.querystring("pagina") if pagina = "" then pagina = CInt("1") else pagina = CInt(request.querystring("pagina")) end if '-------------------------------------------------------------------------- vendo = "1" Set rs = Server.CreateObject("ADODB.RecordSet") DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb") SQL = "SELECT * FROM mensagem WHERE ver = '"& vendo &"' ORDER BY id DESC" rs.Open SQL, DSN, 3, 3 TotaldePaginas = CInt(rs.RecordCount/TamanhoDaPagina) rs.PageSize= TamanhoDaPagina if not rs.EOF then rs.AbsolutePage = pagina for x = 1 to TamanhoDaPagina if rs.EOF then exit for%> <div align="center"> <center> <table border="0" width="500" cellspacing="1" cellpadding="0"> <tr> <td width="116" valign="middle" align="right"><b>Nome:</b></td> <td width="368" valign="top" align="left"><%=rs("nome")%></td> </tr> <tr> <td width="116" valign="middle" align="right"><b>E-mail:</b></td> <td width="368" valign="top" align="left"><%=rs("email")%></td> </tr> <%if rs("site") = "0" or rs("site") = "" or rs("site") = "http://" then else%> <tr> <td width="116" valign="middle" align="right"><b>Site:</b></td> <td width="368" valign="top" align="left"><a href="http://<%=rs("site")%>" target="_blank"><%=rs("site")%></a></td> </tr> <%end if%> <tr> <td width="116" valign="top" align="right"><b>Mensagem:</b></td> <td width="368" valign="top" align="left"><%=rs("msg")%></td> </tr> <tr> <td width="484" valign="top" align="right" colspan="2"> <table border="0" width="100%" cellspacing="1" cellpadding="0"> <tr> <td width="25%" align="right"><b>Data</b>:</td> <td width="25%" align="left"><%=rs("data")%></td> <td width="25%" align="right"><b>Hora:</b></td> <td width="25%" align="left"><%=rs("hora")%></td> </tr> <tr> <td width="100%" align="right" colspan="4"><hr></td> </tr> </table> </td> </tr> </table> </center> </div> <%rs.MoveNext Next 'end if do absolute page end if%> <br> <div align="center"> <center> <table border="0" width="500" cellspacing="1" cellpadding="0"> <tr> <td width="100" valign="middle" align="right"> <%if pagina <> 1 then response.write "<a href=""ver_livro.asp?pagina="& pagina - 1 &""">Página Anterior</a>" end if%> </td> <td width="300" align="center"> <div id="pagg0"> <%for y = 1 to TotaldePaginas if pagina <> y then response.write " <a href=""ver_livro.asp?pagina=" & y & """>" & y & "</a>" else response.write " "& y &" " end if next%></div> </td> <td width="100" valign="middle" align="left"> <%if pagina < TotaldePaginas then response.write "<a href=""ver_livro.asp?pagina="& pagina + 1 &""">Próxima Página</a>" end if%></td> </tr> </table> </center> </div> </body> </html> VEJA QUE REALMENTE ESTÁ FUNCIONANDO NO LINK: http://i.1asphost.com/teajudo/livro/ver_livro.asp

? Nao Me Lembro Do Site...

pergunta respondeu ao marcos_804 de marcos_804 em ASP

Era mesmo o Imasters.... Obrigadao galera... Por isso que eu ADORO este forum... pessoas rapidas e prontas para tirarem duvidas...

? Nao Me Lembro Do Site...

uma questão postou marcos_804 ASP

Galera ah pouco tempo eu entrei num site que era indicado aqui pelo "script", mas deixei de entrar nele e agora me esqueci o endereco... Sera que alguém sabe que site é este? é algo como ..."Master" Desde já agradeco

Operation Must Use An Updateable Query.

pergunta respondeu ao --Ludson-- de marcos_804 em ASP

só aproveitando a oportunidade... Acho que tem uma maneira mais facil de atualizar o banco de dados... Facam assim.... SQL = "SELECT¨* FROM tabela WHERE id = " request.----- rs.Open SQL, DSN, 3,3 rs("campo") = "novo valor do campo" rs.Update e assim atualiza... beleza???

Contador De Acesso

pergunta respondeu ao gferreira de marcos_804 em ASP

Se você quiser eu fiz um contador de acessos... se você quiser eu posso te dar de graca...rs

Entrar

marcos_804

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Tudo que marcos_804 postou

Ajuda...

Sumir Com Id

Sumir Com Id

Paginação

Como Buscar De Tabelas Indexadas?

Nau Mtenho A Menos Idéia De Como...

Como Buscar De Tabelas Indexadas?

Que Erro Eh Este?

Que Erro Eh Este?

Como Solucionar Isso? Erro #80004005

Urgente - Nome De Request.form("")

Cadastro De Clientes Com Login

Inserção Multipla!

Log Out Com O Fechameto Do Browser!

Bolão

Bolão

Bolão

Selecionando Dados De Tabela

Selecionando Dados De Tabela

Como Rodar Asp Internament

Problemas Com Paginação

? Nao Me Lembro Do Site...

? Nao Me Lembro Do Site...

Operation Must Use An Updateable Query.

Contador De Acesso

Navegação

Atividades