Erro - Microsoft OLE DB Provider for Oracle (0x80040E14) - Erro de sin

[mauricimxis 0]

bom pessoal.. apanhei feito doido.. mas nao consegui resolver essa piriba..... alguem poderia me ajudar.... o erro é esse

 

Erro de tempo de execução do Microsoft VBScript (0x800A000A)

Matriz fixa ou temporariamente bloqueada

/delivery/delivery.pedidos.asp, line 152

 

linha 152: Redim preserve arrDados(count, 13)

 

abaixo o codigo...

iSQL = "SELECT COD_DELIVERY, NUM_NOTA_FISCAL, NUM_TELEFONE, "		iSQL = iSQL & "B.NOM_PREMIO NOM_PREMIO, A.DAT_RESGATE DAT_RESGATE,FC.COD_CONTRATO_CRM COD_CONTRATO_CRM, "		iSQL = iSQL & "SUBSTR(FC.COD_TIPO_ACESSO,1,1) P_COD_TIPO_ACESSO "		iSQL = iSQL & "FROM FIDELIDADE.DELIVERY c, fidelidade.resgate a, fidelidade.premio b, FIDELIDADE.TITULAR FT, "		iSQL = iSQL & "FIDELIDADE.CONTRATO FC, SWBAPPS.SW_AGREEMENT@DL_CRM AGR "		iSQL = iSQL & "WHERE DAT_CRIACAO BETWEEN TO_DATE('"&vdt_inicio&"','DD/MM/YYYY') "		iSQL = iSQL & "AND TO_DATE('"&vdt_fim&"','DD/MM/YYYY') "		iSQL = iSQL & "AND IND_STATUS_DELIVERY IN ('G','S') "		iSQL = iSQL & "AND SUBSTR(NOM_LOGRADOURO,1,1) = '.' "		iSQL = iSQL & "AND a.cod_premio = b.cod_premio "		iSQL = iSQL & "AND a.cod_resgate = c.cod_resgate "		iSQL = iSQL & "AND FT.COD_TITULAR = FC.COD_TITULAR "		iSQL = iSQL & "AND FT.NUM_CPF = c.num_cpf_cgc "				iSQL = iSQL & "AND FC.NUM_ACESSO = c.num_telefone "			  		iSQL = iSQL & "AND AGR.SWAGREEMENTID = FC.COD_CONTRATO_CRM "		iSQL = iSQL & "AND AGR.COD_CONTRATO_PAI IS NULL "	set Rs1 = server.createobject("adodb.recordset")		Rs1.ActiveConnection = objConexao		Rs1.Source		   = iSQL		Rs1.Open	dim arrDados(0, 13)', count 'dim arrDados(0, 13), count count = 0 Do while not Rs1.Eof 	select case Cint(Rs1("P_COD_TIPO_ACESSO"))		case 1 				   lSQL ="SELECT "			lSQL = lSQL & "ACC.SWNAME AS CCNAME, "			lSQL = lSQL & "NVL(ADDR.NOM_ENDERECO,ADR.NOM_ENDERECO) AS RUA, "			lSQL = lSQL & "ADDR.NUM_ENDERECO NUMERO, "			lSQL = lSQL & "LTRIM(RTRIM(SUBSTR(ADDR.NOM_COMPLEMENTO || ' ' || "			lSQL = lSQL & "ADDR.NOM_EDIFICIO					   || ' ' || "			lSQL = lSQL & "ADDR.NUM_ANDAR						  || ' ' || "			lSQL = lSQL & "ADDR.NOM_COMPLEMENTO_1				  || ' ' || "			lSQL = lSQL & "ADDR.NOM_COMPLEMENTO_2				  || ' ' || "			lSQL = lSQL & "ADDR.NOM_COMPLEMENTO_3, 1 , 15)))	   AS COMPLEM, "			lSQL = lSQL & "NVL(ADDR.NOM_BAIRRO,ADR.NOM_BAIRRO)	 AS BAIRRO, "			lSQL = lSQL & "NVL(ADDR.NOM_CIDADE,ADR.NOM_CIDADE)	 AS CIDADE, "			lSQL = lSQL & "NVL(ADDR.SGL_UF,ADR.SGL_UF)			 AS ESTADO, "			lSQL = lSQL & "NVL(ADDR.NUM_CEP,ADR.NUM_CEP)		   AS CEP "			lSQL = lSQL & "FROM SWBAPPS.SW_SP_ADDR_REL@DL_CRM ADDR, SWBAPPS.SW_SP_ADDRESS@DL_CRM ADR, "			lSQL = lSQL & "SWBAPPS.SW_SP_ACCOUNT@DL_CRM ACC, SWBAPPS.SW_AGREEMENT@DL_CRM AGR "			lSQL = lSQL & "WHERE "			lSQL = lSQL & "AGR.SWAGREEMENTID = "&Rs1("COD_CONTRATO_CRM")&"	 AND "			lSQL = lSQL & "AGR.SWCUSTOMERID	 IS NULL			 AND "			lSQL = lSQL & "ADR.SWSPADDRESSID(+) = ADDR.SWSPADDRESSID AND "			lSQL = lSQL & "ADDR.SWOBJECTID	  = AGR.SWSPACCOUNTID  AND "			lSQL = lSQL & "ACC.SWSPACCOUNTID	= AGR.SWSPACCOUNTID  AND "			lSQL = lSQL & "SWADDRRELTYPE		= 'COBRANCA'		 AND "			lSQL = lSQL & "SWOBJECTTYPE		 = 'ACCOUNT'			   "	 			lSQL = lSQL & "ORDER BY ADDR.IND_ENDERECO_VALIDO DESC"								set Rs2 = objConexao.execute(jSQL)					case 2 				   jSQL = "SELECT " 			jSQL = jSQL & "NVL(E.SWNAME,D.SWLASTNAME) AS CCNAME, "			jSQL = jSQL & "SUBSTR(NVL(B.NOM_ENDERECO,F.NOM_ENDERECO),1 ,40) AS RUA, "			jSQL = jSQL & "SUBSTR(B.NUM_ENDERECO, 1, 5) AS NUMERO, "			jSQL = jSQL & "LTRIM(RTRIM(SUBSTR(B.NOM_COMPLEMENTO	 || ' ' || "			jSQL = jSQL & "B.NOM_EDIFICIO		|| ' ' || "			jSQL = jSQL & "B.NUM_ANDAR		   || ' ' || "			jSQL = jSQL & "B.NOM_COMPLEMENTO_1   || ' ' || "			jSQL = jSQL & "B.NOM_COMPLEMENTO_2   || ' ' || "			jSQL = jSQL & "B.NOM_COMPLEMENTO_3, 1 , 15))) AS COMPLEM, "			jSQL = jSQL & "NVL(B.NOM_BAIRRO,F.NOM_BAIRRO) AS BAIRRO, "			jSQL = jSQL & "NVL(B.NOM_CIDADE,F.NOM_CIDADE) AS CIDADE, "			jSQL = jSQL & "NVL(B.SGL_UF,F.SGL_UF) AS ESTADO, "			jSQL = jSQL & "NVL(B.NUM_CEP,F.NUM_CEP) AS CEP "			jSQL = jSQL & "FROM SW_SP_ADDR_REL@DL_CRM B, SW_AGREEMENT@DL_CRM C, SW_PERSON@DL_CRM D, "			jSQL = jSQL & "SW_CUSTOMER@DL_CRM E,	SWBAPPS.SW_SP_ADDRESS@DL_CRM F "			jSQL = jSQL & "WHERE "			jSQL = jSQL & "C.SWAGREEMENTID	= "&Rs1("COD_CONTRATO_CRM")&"							 AND "			jSQL = jSQL & "B.SWOBJECTID	   = NVL(C.SWPERSONID,C.SWCUSTOMERID)						AND "			jSQL = jSQL & "C.SWPERSONID	   = D.SWPERSONID (+)										AND "			jSQL = jSQL & "C.SWCUSTOMERID	 = E.SWCUSTOMERID (+)									  AND "			jSQL = jSQL & "SWOBJECTTYPE	   = DECODE(C.SWPERSONID, NULL, 'CUSTOMER','OUTSIDECONTACT') AND "			jSQL = jSQL & "F.SWSPADDRESSID(+) = B.SWSPADDRESSID "			jSQL = jSQL & "ORDER BY B.IND_ENDERECO_VALIDO DESC"								set Rs2 = objConexao.execute(jSQL)		end select 		Redim preserve arrDados(count, 13) 	arrDados(count, 0)  = rs1("COD_DELIVERY") 	arrDados(count, 1)  = rs1("NUM_TELEFONE")	arrDados(count, 2)  = rs1("NUM_NOTA_FISCAL")	arrDados(count, 3)  = rs1("NUM_TELEFONE") 	arrDados(count, 4)  = rs1("NOM_PREMIO") 	arrDados(count, 5)  = rs1("DAT_RESGATE")	arrDados(count, 6)  = rs2("CCNAME")	arrDados(count, 7)  = rs2("RUA") 		arrDados(count, 8)  = rs2("NUMERO") 	arrDados(count, 9)  = rs2("COMPLEM")	arrDados(count, 10) = rs2("BAIRRO")	arrDados(count, 11) = rs2("CIDADE") 	arrDados(count, 12) = rs2("ESTADO") 	arrDados(count, 13) = rs2("CEP")		count = count + 1 	Rs1.movenext Loop for x = 0 to count -1 	response.write "linha - "&arrDados(x, 0)&"<br>" ' produto next

alguem poderia me dar uma ajuda ae..... okay. obrigado!

[eriva_br 7]

mauricimxis, creio que isso seria mais pro lado do ASP, veja:

 

http://forum.imasters.com.br/index.php?showtopic=23908

http://forum.imasters.com.br/index.php?showtopic=35099

http://support.microsoft.com/kb/176049/pt

 

 

to movendo pro ASP, se tiver duvida qto. a execução do sql, se for sql server posta aqui novamente, se for oracle no fórum de oracle

 

abs

t+