renatacm

Também estou curiosa pra saber qual era o erro...

eu não uso os () no response.redirect... Coloco direto response.redirect "pagina.htm" ou "pagina.asp" e normalmente funciona....

Brigadinha!!! ;oÞ

Codificação MAIS INTELIGENTE SET Conexao1= Server.CreateObject("ADODB.Connection") ConnReajAlug = Server.MapPath("dados/reajalug.mdb") Conexao1.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&ConnReajAlug SET Conexao2= Server.CreateObject("ADODB.Connection") ConnReajAlug2 = Server.MapPath("dados/reajalug.mdb") Conexao2.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&ConnReajAlug2 Tive que criar a estrutura acima (abrindo 2 vezes o mesmo banco em duas conexões diferente, porque foi a única maneira que encontrei de não dar erro na execução das páginas do site... Essa é a maneira mais inteligente de fazer isso? Pela lógica eu não teria que abrir o banco utilizando uma única conexão? Gostaria de sugerir que os mestres em ASP nos ensinassem as melhores práticas em codificação ASP para que mortais como eu não cometamos erros grotescos que podem ocasionar maior lentidão no carregamentos das páginas, por exemplo, e nem cólica de risos em programadores experientes ao olharem os absurdos codificados pela falta de experiência...

É isso aí, Developer!!! Funcionou!!! Então, a instrução ORDER BY deve ser sempre por último, é isso?!? Valeu!!! Bjocas... ;oÞ

Não sei se este é o local mais correto para isso, mas sei que quando é pra reclamar, qualquer lugar vale, então porque não fazer essa regra valer quando é pra elogiar?!? Gostaria de agradecer a atenção de todos os membros e moderadores, mas, em especial, quero agradecer a Usro Loco, Dark0, Developer entre outros que têm me ajudado muito! Não sou desenvolvedora, sou auditora e como gosto do ambiente web, "brinco" de vez em quando de programar em ASP... Aprendi e continuo aprendendo muito com todos vocês! Parabéns pela iniciativa e bom desempenho. Não vivo mais sem o Script Brasil!!! Bjocas... ;oÞ

Parabéns!!! Muito legal, mesmo!!! Disponibiliza pra gente, vai!!! Bjocas... Rê ;oÞ

Olá, pessoal!!! Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error in ORDER BY clause. /basis/calendario.asp, line 514 É apresentado esse erro quando monto a instrução assim: SQLCalendario2 = "SELECT * FROM calendario ORDER BY dt_ini ASC WHERE cod_prod='03' AND dt_ini > #"&now()&"#" A linha 514 é SET RSCalendario2 = Conexao3.EXECUTE(SQLCalendario2) Meu objetivo: Montar um formulário de inscrição para cursos que disponibilize apenas datas de cursos que vão acontecer (por isso utilizei a condição dt_ini > now() - e isso está funcionando) mas quero exibir os registros em ordem de data. Quando acrescento a instrução ORDER BY dá erro!!! Alguém sabe como devo fazer pra conseguir meu objetivo? Desde já, grata!!! Bjocas... ;oÞ

Foi o que orecisei fazer, Dark. De qualquer forma, obrigada pelo retono. Bjocas... ;oÞ

beleza, então. Brigadão pessoal! Podem fechar o tópico. Bjocas... ;oÞ

Um exemplo do que acabei de falar é o post Queria um Comentario de Vc !!! Bjocas... ;oÞ

Acho fantástico!!! Parabéns pela idéia. Sugiro que, se possível, ensinem as "melhores práticas" na utilização do ASP. Eu, por exemplo, não sou desenvolvedora, mas "brinco" de vez em quando e vou juntando os códigos que encontro aqui e alí, scripts prontos daki e de acolá... No final, dá certo, mas sei que se um fera pegar minha codificação vai chorar de tanto rir ao ver a forma como o código foi montado... Andei pesquisando no iBest e um dos critérios de avaliação do conselho deles é a "clareza" e "limpeza" da codificação... Por falta de conhecimento aprofundado na ferramenta, iniciantes como eu podem sub-utilizar o ASP... O que acham? Bjocas... ;oÞ

Olá, pessoal! É uma dúvida boba... Sei que dá pra fazer se utilizar javascript... Mas, existe uma maneira de fazer um response.redirect abrir numa nova janela (esquema de link quando você atribui _blank) ? Bjocas... ;oÞ

Oi, pessoal!!! Novamente estou com problemas no diálogo ASP X ACCESS. Preciso fazer o seguinte: O usuário tem uma senha provisória inicial. Ele entra no sistema e altera a senha. Posteriormente, em uma determinada situação, o usuário inicial deixa de utilizar o sistema e seu código será utilizado por outro usuário. O script abaixo se propõe a verificar se o código do usuário existe nas duas tabelas envolvidas e em caso positivo, verifica se o nome é o mesmo: se o nome for diferente, faz o update da tabela de usuários para atualizar o nome do fulano e liberar a senha provisória para o novo fulano. Quando executo esse script, aparece a seguinte mensagem de erro: Tipo de erro: ADODB.Recordset (0x800A0BB9) Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /immobile/wizard/grava_usuloc.asp, line 22 A linha 22 é: RSUsuarios4.Open Conexao,SQLUsuarios4,3,3 Já verifiquei se não estava tentando gravar um dado numérico num campo texto ou vice-versa, mas não é isso. Tudo que é texto, está sendo passado como texto e tudo que é numero (apenas os campos código e pessoa) estão sendo passados como número... Alguém sabe me dizer o que pode estar errado? Bjocas... ;oÞ

Muuuuuuuiiiiiiiito abrigado, Dark!!!! Funcionou! Valeu mesmo! Bjocas... ;oÞ

Galera, Feliz 2005 pra td mundo!!! Bom, é o seguinte: estou tentando inserir registros num bd Access - o usuário tem que se cadastrar pra ter acesso à área de download... Então, o usuário lança seus dados num form, eu capturo e trato as informações e faço a inclusão no banco... (executando no localhost - IIS 5.0) me dá a seguinte mensagem de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável. /cadastrese2.asp, line 125 SQLRSVisitantes3 = "INSERT INTO visitantes (user, pass, email, nome, empresa, ddd, telefone, cep, endereco, numecomple, bairro, cidade, estado, solucaodeinteresse1, solucaodeinteresse2, solucaodeinteresse3, receberinfo)" SQLRSVisitantes3 = SQLRSVisitantes3 & " VALUES ('"&user&"','"&pass&"','"&email&"','"&nome&"','"&empresa&"','"&ddd&"','"&telefone&"','"&cep&"','"&endereco&"','"&numecomple&"','"&bairro&"','"&cidade&"','"&estado&"','"&solucaodeinteresse1&"','"&solucaodeinteresse2&"','"&solucaodeinteresse3&"','"&receberinfo&"')" Set RSVisitantes3 = Server.CreateObject("ADODB.Recordset") Set RSVisitantes3 = Conexao5.EXECUTE(SQLRSVisitantes3) *** linha125 Achei que o problema pudesse star no meu localhost, então, se faço upload das páginas, o registro é gravado no banco, mas aparece o erro HTTP 500 - erro interno do servidor Achei que o erro pudesse estar em outro local da página após a inclusão do registro, então, comentei toda a instrução de inclusão (código citado acima) e o erro não é mais acusado, ou seja, não há erro em outro local da página... Tentei incluir a instrução RSVisitantes3.CursorType = 2, mas também não deu certo... Será que alguém sabe me dizer onde eu estou comentendo o erro? Abraços... ;oÞ

Valeu gente... Estruturei melhor meu programa e não vou precisar mais listar arquivos... De qualquer forma, muito orbigada pela atenção de todos!! Bjocas e Feliz 2005!!! ;oÞ

Pessoal, Duas perguntas: 1. Alguém sabe se existe a possibilidade de listar subdiretórios em ASP? 2. Dá pra listar arquivos .htm ou .asp numa tabela e fazer link para esses arquivos dinamicamente? Abraços... ;oÞ

<!---#include file="dados.asp"---> <% useraction = request("action") SELECT CASE useraction CASE "login" user = Trim(request("user")) pass = CStr(Trim(request("pass"))) SQLClientes1="SELECT * FROM tab_Usuarios WHERE codigo=" & user & " AND senha ='" & pass & "'" SET RSClientes1 = Server.CreateObject("ADODB.Recordset") SET RSClientes1 = Conexao4.EXECUTE(SQLClientes1) IF RSClientes1.eof THEN response.write "<script>alert('Código de Acesso ou senha não cadastrado(s).');</script>" ELSE session("status") = "ok" response.redirect "clidown.asp" END IF END SELECT %> Galera: deu certo!!! Obrigada URSO e a todos.... Bjocas... ;oÞ

Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis: 'CInt' /basis/clilogin.asp, line 6

Eu acho q não é erro de conexão. O OBJ Conexao4 foi criado no arquivo dados.asp e está ok... set Conexao4= Server.CreateObject("ADODB.Connection") ConnClientes = Server.MapPath("dados/clientes.mdb") Conexao4.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&ConnClientes

Ops... Desculpe... Segue novamente: <!---#include file="dados.asp"---> <% useraction = request("action") SELECT CASE useraction CASE "login" user = CInt(request.form("user")) pass = request.form("pass") SQLClientes1="SELECT * FROM tab_Usuarios WHERE codigo='" & user & "' AND senha ='" & pass & "'" SET RSClientes1 = Server.CreateObject("ADODB.Recordset") SET RSClientes1 = Conexao4.EXECUTE(SQLClientes1) IF RSCadastro.eof THEN response.write "<script>alert('Código de Acesso ou senha não cadastrado(s).');</script>" ELSE session("status") = "ok" response.redirect "clidown.asp" END IF END SELECT %>

Segue: <% useraction = request("action") SELECT CASE useraction CASE "login" user = CInt(request.form("user")) pass = request.form("pass") SQLClientes1="SELECT * FROM tab_Usuarios WHERE codigo='" & user & "' AND senha ='" & pass & "'" SET RSClientes1 = Server.CreateObject("ADODB.Recordset") SET RSClientes1 = Conexao4.EXECUTE(SQLClientes1) IF RSCadastro.eof THEN response.write "<script>alert('Código de Acesso ou senha não cadastrado(s).');</script>" ELSE session("status") = "ok" response.redirect "clidown.asp" END IF END SELECT %>

Eu já havia tentado isso... Dá extamente o mesmo erro nas duas situações.... Eu vou chorar !!!

Sim, os erros ocorrem na mesma linha.... Sei que o problema é o tipo da variavel user... no banco, o campo código é numérico e mesmo eu tendo colocado CINT(user), quando vou passar a instrução pela query (me corrija se eu estiver errada) e coloco ' ', ele entende que é CHAR e se não coloco ' ' ele entende que está faltando um parâmetro da instrução....