Pergunta : Erro runtime “800a0009” de Microsoft VBScript, subscrição fora da escala: “42”

Olá! peritos, ajuda do

Please eu estou começ a subscrição fora da escala quando funcionar a aplicação de application.

THis usar o certificado de VB & o

Subscript do erro runtime “800a0009” de ASP.

Microsoft VBScript fora da escala: “42” o

/Empserv/TotalComp/Export.asp, alinha 100 o


thanks
Dileep. class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
class= ><%@ " notpretty " Language=VBScript %> do id= " codeSnippet838481 " do 

 Performance”
	Style='color do align=center <div de Response.Write do “: a sessão da parceria do desempenho de red'><h2>Your cronometrou para fora! </div></h2><hr><br><br><h3>Follow estas instruções para recarregar a página do início de uma sessão: o <br>after que fecha esta janela, refresca a janela de <i>prior</i> pressionando F5 em um PC ou, se você está usando um Mac, selecionar “refresca” a opção do menu.<br><br></body></html>”
	Response.End 
=True da aplicação de ElseIf (“fechado”) então
	Style='color do align=center da parceria Unavailable
Performance de Response.Write do “: o red'> não fecha esta janela! </div></h1><hr><br>”
	O sistema da parceria do desempenho <h2>The de Response.Write de “é não disponível para o style='color de alguns minutes.</h2><br><h3><span: o red'> quando o sistema está outra vez disponível você recomeçará <b>exactly onde você saiu fora sem nenhuma perda de informação somente se você segue as instruções que below.</span></h3></b><h3><hr><br>1. refrescam esta janela pressionando F5 em um PC ou, se você está usando um Mac, selecionar “refresca” opção a “nova tentativa” do clique de menu.<br><br>2. se prompted.<br><br>3. repetem etapas 1 e 2 pelo menos cada poucos minutos até que o sistema se transforme available.<br></h2></body></html>”
	Response.End 
	
Terminam se

vExport não ofuscante, lngRandom, blnRetVal, obj, vDetail, objXL
%><html>
<head>
<! -- #INCLUDE FILE= ". /Common/ServerScripts/header.asp " -->
<! -- #INCLUDE FILE= ". /Common/Constants/Env.inc " -->
<! -- #INCLUDE FILE= ". /Common/ServerScripts/Navigation.asp " -->
Javascript " SRC= " do <script LANGUAGE= ". /Common/ClientScripts/Common.js " ></script>
<title>Export

oncontextmenu= <% verdadeiro

'Carregar o encabeçamento
Chamar Load_Basic_Header (a “exportação”)

se Request.QueryString (“tipo”) = “selecionam” então
	Response.Write “
Select uma organização antes de exportar.”
	Response.End 
terminam se

class='tSubHeadTxt'>  
”
Mais
	Response.Write (“
")
        Response.Write (da “funcionalidade exportação Started.")
	Randomize
	lngRandom = int ((9000000000 - 1000000000 + 1) * Rnd + 1000000000)
	=CStr do vExport (C_EXPORT_FILE_NAME) (vExport (C_EXPORT_PLAN)) & “_” & session.SessionID & “_” & lngRandom

	Ajustar o obj = o Server.CreateObject (“HRW_Execute.CExecute”) 
	Response.Write (“
")
        Response.Write (“
")
	vExport de Response.Write (C_EXPORT_QUERY)
	Response.Write (“
")
        Response.Write (“
")
	Response.Write (C_EXPORT_FIELDS)
		vDetail = obj.SelectRows (C_DB_NAME, C_RDAHR_ID, C_RDAHR_PW, vExport (C_EXPORT_QUERY), vExport (C_EXPORT_FIELDS))
	Ajustar o obj = nada
	Ajustar o objXL = o CreateObject (C_TCP_EXPORT) 
	Response.Write (“
")
        Response.Write (“
")
	Response.Write (C_EXPORT_PLAN)
	Response.Write (“
")
        Response.Write (“
")
	Response.Write (“primeira vez”) + “
”
	Response.Write (“
")
        Response.Write (“
")
	Response.Write (vExport (C_EXPORT_FILE_NAME) + “
")
	Response.Write (“
")
        Response.Write (“
")
	Response.Write (vExport (c_EXPORT_PLAN) + “
")
	Response.Write (“
")
        Response.Write (“
")
	=CStr do vExport (C_EXPORT_FILE_NAME) (vExport (C_EXPORT_PLAN)) & “_” & session.SessionID & “_” & lngRandom
	'Response.Write (“
")
        'Response.Write (“
")
 	Response.Write (“segunda vez”) + “
”
	Response.Write (“
")
        Response.Write (“
")
	Response.Write (vExport (C_EXPORT_FILE_NAME) + “
")
	Response.Write (“
")
        Response.Write (“
")
	Response.Write (CStr (vExport (C_EXPORT_PLAN)))
	Response.Write (CStr (sessão (“Pword”)))
	Response.Write (C_EXPORT_FIELDS)
	'Response.Write (vDetail (0.0))
        Response.Write (C_TCP_EXPORT_DIR)
        Response.Write (vExport (C_EXPORT_FILE_NAME))
	Response.Write (vExport (C_EXPORT_FREQUENCY))
        'UBound (arrayname [, dimensão]) 
	'o arrayname exigiu. O nome da variável de disposição 
        'dimensão opcional. Limite superior de que dimensão a retornar. 1 = calcula as dimensões primeiramente, 2 = segunda dimensão, e assim por diante. O defeito é 1 
        'Aqui o nome de disposição é vDetail
        'A dimensão é 2
	Escurecer i, j
	Para i = 0 ao ubound (vDetail, 2)
		Para j = 0 ao ubound (vDetail, 2)
 			Response.Write (“o valor é” & vDetail (i, j) & “
")
	Em seguida
	Em seguida

	Selecionar o caso CStr (vExport (C_EXPORT_PLAN))	
		Encaixotar o “mérito”
			blnRetVal = objXL.ExportMerit (sessão (“Pword”), vExport (C_EXPORT_PLAN), vDetail, C_TCP_EXPORT_DIR, vExport (C_EXPORT_FILE_NAME), vExport (C_EXPORT_FREQUENCY))
			'vExport (C_EXPORT_FREQUENCY))
                        'Response.Write “valor de blnRetVal é” + blnRetVal + “
”
		Caso “VCP”
			blnRetVal = objXL.ExportMIP (sessão (“Pword”), vExport (C_EXPORT_PLAN), vDetail, C_TCP_EXPORT_DIR, vExport (C_EXPORT_FILE_NAME))
			'Response.Write blnRetVal + “
”
			'Response.Write “valor de blnRetVal é” + blnRetVal + “
”		
		Caso “AIP”
			blnRetVal = objXL.ExportAIP (sessão (“Pword”), vExport (C_EXPORT_PLAN), vDetail, C_TCP_EXPORT_DIR, vExport (C_EXPORT_FILE_NAME))		
			'Response.Write blnRetVal + “
”
			'Response.Write “valor de blnRetVal é” + blnRetVal + “
”
		Caso mais
			Response.Write “class='tSubHeadTxt'> 
”
			Ajustar o objXL = nada
			Response.End  
	Terminar seleto
	Ajustar o objXL = nada

	Se blnRetVal então
		o class='tSubHeadTxt'> de %>



 de disco flexível
		border= Please. '; ”
		Response.End 
	Terminar se
	
Terminar se
%>
"" Do
class= do

Resposta : Erro runtime “800a0009” de Microsoft VBScript, subscrição fora da escala: “42”

Que é HRW_Export_TCP2008_1?  É aquela a função do DLL?  Isto significaria que há um problema no DLL na função de ExportMIP.

Poderia estar em qualquer lugar dentro lá, porque nós não somos ditos onde está.

O que você pôde ter que fazer for tentar e funcionar a função de ExportMIP em VBA com os mesmos parâmetros que você indicou acima, e vê-la quando esse erros.  Funcionar a função independente dar-lhe-á a linha número apropriada do erro próprio.

A razão que eu penso que o erro está nessa função, é porque a ligação de controle de seu Web page está passando os parâmetros corretos, que todos têm valores válidos, como mostrado pela saída.

Considerações,

Roubo.
Outras soluções  
 
programming4us programming4us