ADL

olá pessoal estou desenvolvendo um vetor dinâmico e está dando esse erro alguém pode me ajudar por favor? Segue o erro Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000A) Matriz fixa ou temporariamente bloqueada /biblioteca1/avisa.asp, line 33 segue o código agradeço a atenção de todos... ADL <%@LANGUAGE="VBSCRIPT"%> <% Option explicit %> <!--#Include file="conexao1/conexao.inc"--> <% response.expires=0 dim estilo,conexaoDataBase,ConnString,rsTabela,sqlTabela,dia,hora,I,valor,msgTexto dim avisa(0) Call abreConexao sqlTabela = "Select data,email From reservaLivro" set rsTabela = conexaoDataBase.execute(sqlTabela) I=0 do while not rsTabela.eof dia = cdate(rsTabela("data"))+2 if dia = date then i=i+1 end if rsTabela.movenext loop valor = i redim avisa(valor) while valor > 0 avisa(valor)= rsTabela("email") valo=valor-1 wend Call fechaConexao set rsTabela = nothing %>

você mudou o nome dessa variavel ao longo do programa?

Ok funcionou valeu amigo muito obrigado pela sua ajuda...... ADL.............

Ola pessoal como concatenar duas strings? Elas estão em variaveis ok valeu obrigado ADL...

você faz um select da tabela e coloca todos os valores em variavel por exemplo sqlTabela = "select * from nome datela" set rsTabela = conexaoDataBase.execute(sqlTabela) ai você cria as variasveis por exemplo dim nome,endereco ai você faz nome = rsTabela("nome do campo da tabela") faz isso para todos os valores depois você faz o insert into você sabe fazer o insert into? espero te ajudado

Ok entendi o que você quis dizer. A consulta e facil de fazer. ve se tem logica. acho que tenho que criar um script para verificar o dia e a hora para mandar essa mensagen certo? Agora qual seria o script ou como seria esse script que verificaria constantemete as datas? sua dia do CDONTS e boa e do email também bem bolado.. O script que eu quero fazer e para verificar todos os dias as datas mas onde eu ponho esse script para ele ficar executando. pois se a página estiver fechada o script não roda é isso?

Olá pessoal boa tarde! É o seguinte estou precisando desenvolver um aviso de atraso. E esse aviso será enviado por email da pessoa que está em atraso.Estou desenvolvendo uma biblioteca no meu serviço, e aqui tem uma bibilioteca e o cadastro dos livro está em excel estou passando para ASP. E quando a pessoa pegar o livro ela vai ter uma data para entregar, se ela passar da data ai ela recebe uma mensagem avisando. Quero fazer em ASP alguém pode me sugerir como começar e o que usar por favor. Pois não tenho muita experiência com ASP. Desde já eu agradeço...... ADL

Olá pessoal bom dia. Gostaaria de saber porque minha busca está retormando 3 registro repetidos. Alguém pode me ajudar por favor não sei mais o que fazer. segue o código result1=cstr(trim(request.Form("modo"))) result =cstr(trim(request.form("valor"))) sqlTabela = "Select DISTINCT * From obrasLiterarias,autor " sqlTabela = sqlTabela + " WHERE " + result1 + " Like " + " '%" + result + "%' " set rsTabela = conexaoDataBase.execute(sqlTabela) <% while not rsTabela.eof %> <tr bordercolor="#e1f0ff"> <td align="top"><font size="2"><% = rsTabela("isbn") %> </font></td> <td valign="top"><font size="2"><% = rsTabela("titulo") %> </font></td> <td valign="top"><font size="2"><% = rsTabela("nomeautor") %></font> </td> <td valign="top"><font size="2"><% = rsTabela("editora") %></font> </td> <td valign="top"><font size="2"><% = rsTabela("edicao") %></font> </td> <td valign="top"><font size="2"><% = rsTabela("anoPublicacao") %> </font></td> <td valign="top"><font size="2"><% = rsTabela("areaAutor") %> </font></td> <td valign="top"><font size="2"><% = rsTabela("numeroPagina") %></font> </td> <td class="DadosGerais"><a href="atualiza.asp?atua=<% = rsTabela("isbn") %>&atua1=<% = rsTabela("codAutor") %>">Atualizar</a></td> </tr> <tr> <td colspan="9"><b>Sinopse :</b><font size="2"><% = rsTabela("sinopse") %></font></td> </tr> <% rsTabela.MoveNext wend %> Ho pessoal não precisa mais não obrigado pelos os que entraram para me ajudar eu descobri o erro eu estava colocando no select duas tabelas assim: sqlTabela = "Select DISTINCT * From obrasLiterarias,autor " ai eu tirei a tabela Autor e funcionou. obrigado agora retorna normal..

Ok obrigado vou testar beleza Ok funcionou obrigado

Bom dia estou tentando fazer uma consulta num banco de dados access usando ASP em um campo numero só que da erro, alguém pode me ajudar por favor? estou fazendo assim! sqlTabela = "select * from reservaLivro where numero = " + numero1 + " " desde já eu agradeço a ajuda de todos ok....

Muito obrigado Andreia deu certo, desculpe por não responder ontem mas está corrido aqui beleza, valeu pela ajuda obrigado!!!

Obrigado vou testar valeu!!

Olá pessoal estou tentando passar um valor dentro do response.redirect é possivel pois está dando erro, alguém pode me ajudar por favor? Segue o erro: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03EE) ')' esperado /biblioteca1/reservaLivro.asp, line 77, column 59 response.Redirect("respostaReserva.asp?valor=<% = rsTotal("isbn") %>") ----------------------------------------------------------^ esse modo como eu coloquei esse argumento no redirect está certo? Desde já eu agradeço!!! ADL

Ok valeu obrigado pela força deu certo aqui beleza

Olá pessoal boa tarde. Como eu faço para comparar um variavel com uma string esse nodo está certo if(valor = "não") then else end if se não estiver alguém pode me dizer como eu faço por favor? obrigado ADL

OK obrigado funcionou valeu!!!!

Essas informações você busca do banco? se for do banco lá está como data?

Boa tarde pessoal! eu tenho uma duvida estou fazendo uma select e usando o comando (do while not nome da tabela.eof) só que está me retormando registro duplicado como eu faço para elimir isso? por favor desde já eu agradeço a todos pela ajuda. ADL

isnb é texto mas a da tabela autor o cod é numero, desculpe a demora está muito corrido aqui desculpe te atrápalhar Andreia obrigado pela ajuda deu certo erra isso mesmo desculpe te atrapalhar ok mas uma vez obrigado!!! ADL

obrigado pela ajuda deu certo!!!

Ol?essoal bom dia estou tentando deletar duas tabelas e est?ando esse erro, algu?pode verificar onde est? erro por favor? Tipo de erro: Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompat?l na express?de crit?o. segue o c?o: <%@LANGUAGE="VBSCRIPT"%> <% Option explicit %> <!--#Include file="conexao1/conexao.inc"--> <% response.expires=0 dim estilo,conexaoDataBase,ConnString,codExclui,rsTabela,sqlTabela,cod,nome,strTabela codExclui= cstr(trim(request.QueryString("del"))) cod = cstr(trim(request.QueryString("del1"))) Call abreConexao sqlTabela = "Select * From obrasLiterarias where isbn =' " & codExclui & " ' " set rsTabela = conexaoDataBase.execute(sqlTabela) verifica?s se os dados a serem excluidos se encontram no banco de dados (toda parte da verifica?) set rsTabela = conexaoDataBase.execute(" DELETE FROM obrasLiterarias WHERE isbn = ' " & codExclui & " ' ") set rsTabela = conexaoDataBase.execute(" DELETE FROM autor WHERE codAutor = ' " & cod & " ' ")

Olá pessoal boar tarde! Estou com um problema estou desenvovendo um peque projeto onde esse projete tem uma busca só que não está funcionando, acho que a sinntaxe não está certa alguém pode me ajudar por favor!!! segue o código dim estilo,conexaoDataBase,ConnString,sqlTabela,result,result1,rsTabela Call abreConexao result1=cstr(trim(request.Form("modo"))) esse valor vem de um <select name="modo"></select> result =cstr(trim(request.form("valor"))) esse valor vem do <input name="valor"> eu pego esses valor e insiro na clásula where sqlTabela = "Select * From obrasLiterarias WHERE " + result1 + " = '" & result & "' " obs essa linha set rsTabela = conexaoDataBase.execute(sqlTabela) então acho que a sintaxe de concatenação não está certa está dando erro de bof e eof

Olá pessoal desculpe minha falta de educação por demorar para agradecer, é que eu sou o único estágiario da empresa e tem bastante coisa a fazer. Agradeço a vocês pelas dicas, mas o que eu estou precisando é de um editor para colocar na página da empresa. Quando incluimos uma mensagem no banco de dados, e essa informação é mostrada na tela ela vem sem formatação, eu gostaria que arrumar um editor para colocar na página, ai quando as informações forem mostrada na tela ficar com formatação, alguém pode me ajudar!!!!! Mais uma vez muito obrigado ADL

Olá pessoal on de eu conseguiria um editor html para formatar texto. Eu estou precisando para colocar na pagina, quando for digitar o texto já ficar formatado, alguém pode me indicar algum por favor pois estou precisando urgente......

ok muito obrigado pela força ai a todos vocês!!!!