Questione : Errore runtime “800a0009„ di Microsoft VBScript, sottoscritto fuori portata: “42„

Ciao esperti, aiuto del

Please sto ottenendo il sottoscritto fuori portata mentre fare funzionare l'applicazione di application.

THis sta usando lo scritto di VB & il

Subscript di errore runtime “800a0009„ di ASP.

Microsoft VBScript fuori portata: “42„ il

/Empserv/TotalComp/Export.asp, allinea 100 il


thanks
Dileep. class= > " libero " 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 

 di Performance„
	Style='color del align=center del <div di Response.Write “: la sessione di associazione di prestazione di red'><h2>Your ha cronometrato fuori! </div></h2><hr><br><br><h3>Follow queste istruzioni ricaricare la pagina di inizio attività: il <br>after che chiude questa finestra, rinfresca la finestra di <i>prior</i> premendo F5 su un PC o, se stiate utilizzando un mackintosh, selezionare “rinfresca„ l'opzione dal menu.<br><br></body></html>„
	Response.End 
=True di applicazione di ElseIf (“bloccato„) allora
	Style='color del align=center di associazione Unavailable
Performance di Response.Write “: il red'> non chiude questa finestra! </div></h1><hr><br>„
	Il sistema di associazione di prestazione di <h2>The di Response.Write “è non disponibile per lo style='color di alcuni minutes.</h2><br><h3><span: il red'> quando il sistema è ancora disponibile voi riprenderà <b>exactly dove avete terminato senza alcuna perdita di informazioni soltanto se seguite le istruzioni che below.</span></h3></b><h3><hr><br>1. rinfrescano questa finestra premendo F5 su un PC o, se stiate utilizzando un mackintosh, selezionare “rinfresca„ opzione “l'altra prova„ da scatto di menu.<br><br>2. se prompted.<br><br>3. ripetono i punti 1 e 2 almeno ogni pochi minuti fino a che il sistema non si trasformi in in available.<br></h2></body></html>„
	Response.End 
	
Si concludono se

vExport fioco, 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= <% allineare

'Caricare l'intestazione
Denominare Load_Basic_Header (“esportazione„)

se Request.QueryString (“tipo„) = “allora selezionano„
	Response.Write “
Select un'organizzazione prima dell'esportazione.„
	Response.End 
si concludono se

class='tSubHeadTxt'>  
„
Altrimenti
	Response.Write (“
")
        Response.Write (“funzionalità dell'esportazione Started.")
	Ripartire le probabilità su
	lngRandom = int ((9000000000 - 1000000000 + 1) * Rnd + 1000000000)
	=CStr del vExport (C_EXPORT_FILE_NAME) (vExport (C_EXPORT_PLAN)) & “_„ & session.SessionID & “_„ & lngRandom

	Regolare il obj = Server.CreateObject (“HRW_Execute.CExecute„) 
	Response.Write (“
")
        Response.Write (“
")
	vExport di 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))
	Regolare il obj = niente
	Regolare il objXL = CreateObject (C_TCP_EXPORT) 
	Response.Write (“
")
        Response.Write (“
")
	Response.Write (C_EXPORT_PLAN)
	Response.Write (“
")
        Response.Write (“
")
	Response.Write (“prima volta„) + “
„
	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)) & “_„ & session.SessionID & “_„ & lngRandom
	'Response.Write (“
")
        'Response.Write (“
")
 	Response.Write (“seconda volta„) + “
„
	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 (sessione (“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 [, dimensione]) 
	'il arrayname ha richiesto. Il nome della variabile di allineamento 
        'dimensione facoltativa. Limite superiore della quale dimensione da rinviare. 1 = in primo luogo quota, 2 = seconda dimensione e così via. Il difetto è 1 
        'Qui il nome di allineamento è vDetail
        'La dimensione è 2
	Oscurare la i, J
	Per i = 0 a ubound (vDetail, 2)
		Per J = 0 a ubound (vDetail, 2)
 			Response.Write (“il valore è„ & vDetail (i, j) & “
")
	Dopo
	Dopo

	Selezionare il caso CStr (vExport (C_EXPORT_PLAN))	
		Mettere “il merito„
			blnRetVal = objXL.ExportMerit (sessione (“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 “il valore di blnRetVal è„ + blnRetVal + “
„
		Caso “VCP„
			blnRetVal = objXL.ExportMIP (sessione (“Pword„), vExport (C_EXPORT_PLAN), vDetail, C_TCP_EXPORT_DIR, vExport (C_EXPORT_FILE_NAME))
			'Response.Write blnRetVal + “
„
			'Response.Write “il valore di blnRetVal è„ + blnRetVal + “
„		
		Caso “AIP„
			blnRetVal = objXL.ExportAIP (sessione (“Pword„), vExport (C_EXPORT_PLAN), vDetail, C_TCP_EXPORT_DIR, vExport (C_EXPORT_FILE_NAME))		
			'Response.Write blnRetVal + “
„
			'Response.Write “il valore di blnRetVal è„ + blnRetVal + “
„
		Caso altrimenti
			Response.Write “class='tSubHeadTxt'> 
„
			Regolare il objXL = niente
			Response.End  
	Concludere prescelto
	Regolare il objXL = niente

	Se blnRetVal allora
		il class='tSubHeadTxt'> di %>



 a disco magnetico
		border= 
<%
			
	Altrimenti
		L'errore del „
		Response.End 
	Concluder se
	
Concluder se
%>
"" Del
class= del

Risposta : Errore runtime “800a0009„ di Microsoft VBScript, sottoscritto fuori portata: “42„

Che cosa è HRW_Export_TCP2008_1?  È quella la funzione del DLL?  Ciò significherebbe che ci è un problema nel DLL nella funzione di ExportMIP.

Potrebbe essere dovunque dentro là, perché non siamo detti dove è.

Che cosa potreste dovere per fare è di provare e fare funzionare la funzione di ExportMIP in VBA con gli stessi parametri che avete visualizzato sopra e vedere quando quel errori.  La corsa della funzione indipendente gli darà la linea numero adeguata dell'errore in se.

Il motivo penso che l'errore sia in quella funzione, sia perché la chiamata di funzione dal vostro Web page sta passando i parametri corretti, che tutte hanno valori validi, come indicato dall'uscita.

Riguardi, che

Rob.
Altre soluzioni  
 
programming4us programming4us