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
%>
Editado por andreia_sp Utilize tags para códigos, facilita a visualização.
Pergunta
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 %>Editado por andreia_spUtilize tags para códigos, facilita a visualização.
Link para o comentário
Compartilhar em outros sites
2 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.