Cuestión : Error runtime “800a0009” de Microsoft VBScript, subíndice fuera de la gama: “42”

Hola los expertos, ayuda del

Please estoy saliendo subíndice fuera de gama mientras que el funcionamiento del uso de application.

THis está utilizando la escritura y el

Subscript de VB del error runtime “800a0009” de ASP.

Microsoft VBScript fuera de gama: “42” el

/Empserv/TotalComp/Export.asp, alinea 100 el


thanks
Dileep. class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 %> del id= " codeSnippet838481 " del 

 del Performance”
	Style='color del align=center del <div de Response.Write “: ¡la sesión de la sociedad del funcionamiento de red'><h2>Your ha medido el tiempo hacia fuera! </div></h2><hr><br><br><h3>Follow estas instrucciones de recargar la página de la conexión: el <br>after que cierra esta ventana, restaura la ventana de <i>prior</i> presionando F5 en una PC o, si usted está utilizando un mac, la selección “restaura” la opción del menu.<br><br></body></html>”
	Response.End 
=True del uso de ElseIf (“se trabó”) entonces
	Style='color del align=center de la sociedad Unavailable
Performance de Response.Write “: ¡el red'> no cierra esta ventana! </div></h1><hr><br>”
	Sistema de la sociedad del funcionamiento de <h2>The de Response.Write el “es inasequible para el style='color de algunos minutes.</h2><br><h3><span: el red'> cuando el sistema está otra vez disponible usted reasumirá <b>exactly donde usted se fue apagado sin ninguna pérdida de información solamente si usted sigue las instrucciones que below.</span></h3></b><h3><hr><br>1. restauran esta ventana presionando F5 en una PC o, si usted está utilizando un mac, selección “restaura” opción la “recomprobación” del tecleo de menu.<br><br>2. si prompted.<br><br>3. repiten pasos 1 y 2 por lo menos cada pocos minutos hasta que el sistema se convierta en available.<br></h2></body></html>”
	Response.End 
	
Terminan si

vExport dévil, 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= " del <script LANGUAGE= ". /Common/ClientScripts/Common.js " ></script>
<title>Export

oncontextmenu= <% verdadero

'Cargar el jefe
Llamar Load_Basic_Header (la “exportación”)

si Request.QueryString (“tipo”) = “entonces seleccionan”
	Response.Write “
Select una organización antes de exportar.”
	Response.End 
terminan si

class='tSubHeadTxt'>  
”

	Response.Write (“
")
        Response.Write (“funcionalidad de la exportación Started.")
	Seleccionar al azar
	lngRandom = internacional ((9000000000 - 1000000000 + 1) * Rnd + 1000000000)
	=CStr del vExport (C_EXPORT_FILE_NAME) (vExport (C_EXPORT_PLAN)) y “_” y session.SessionID y “_” y lngRandom

	Fijar el obj = 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))
	Fijar el obj = nada
	Fijar el objXL = CreateObject (C_TCP_EXPORT) 
	Response.Write (“
")
        Response.Write (“
")
	Response.Write (C_EXPORT_PLAN)
	Response.Write (“
")
        Response.Write (“
")
	Response.Write (“primera 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 del vExport (C_EXPORT_FILE_NAME) (vExport (C_EXPORT_PLAN)) y “_” y session.SessionID y “_” y 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 (sesión (“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 [, dimensión]) 
	el 'arrayname requirió. El nombre de la variable de arsenal 
        'dimensión opcional. Límite superior de qué dimensión a volver. 1 = primero dimensiona, 2 = segunda dimensión, y así sucesivamente. El defecto es 1 
        'Aquí el nombre de arsenal es vDetail
        La 'dimensión es 2
	Amortiguar i, j
	Para i = 0 al ubound (vDetail, 2)
		Para j = 0 al ubound (vDetail, 2)
 			Response.Write (“el valor es” y vDetail (i, j) y “
")
	Después
	Después

	Seleccionar el caso CStr (vExport (C_EXPORT_PLAN))	
		Encajonar el “mérito”
			blnRetVal = objXL.ExportMerit (sesión (“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 es” + blnRetVal + “
”
		Caso “VCP”
			blnRetVal = objXL.ExportMIP (sesión (“Pword”), vExport (C_EXPORT_PLAN), vDetail, C_TCP_EXPORT_DIR, vExport (C_EXPORT_FILE_NAME))
			'Response.Write blnRetVal + “
”
			'Response.Write “valor de blnRetVal es” + blnRetVal + “
”		
		Caso “AIP”
			blnRetVal = objXL.ExportAIP (sesión (“Pword”), vExport (C_EXPORT_PLAN), vDetail, C_TCP_EXPORT_DIR, vExport (C_EXPORT_FILE_NAME))		
			'Response.Write blnRetVal + “
”
			'Response.Write “valor de blnRetVal es” + blnRetVal + “
”
		Caso 
			Response.Write “class='tSubHeadTxt'> 
”
			Fijar el objXL = nada
			Response.End  
	Terminar selecto
	Fijar el objXL = nada

	Si es blnRetVal entonces
		el class='tSubHeadTxt'> de %>



 del disco blando
		border= Please. '; ”
		Response.End 
	Terminar si
	
Terminar si
%>
"" Del
class= del

Respuesta : Error runtime “800a0009” de Microsoft VBScript, subíndice fuera de la gama: “42”

¿Cuál es HRW_Export_TCP2008_1?  ¿Es ésa la función del DLL?  Esto significaría que hay un problema en el DLL en la función de ExportMIP.

Podría estar dondequiera adentro allí, porque nos no dicen donde está.

Qué usted puede ser que tenga que para hacer es intentar y funcionar con la función de ExportMIP en VBA con los mismos parámetros que usted ha exhibido arriba, y ver cuando ese los errores.  Funcionar con la función independiente le dará la línea número apropiada del error sí mismo.

La razón que pienso que el error está en esa función, está porque la llamada de función de su Web page está pasando los parámetros correctos, que toda tiene valores válidos, como se muestra al lado de la salida.

Respetos,

Robo.
Otras soluciones  
 
programming4us programming4us