erreur "800a0401" et "800a03f9"

**Bidos** · 20/05/2008, 13h47

Bonjour
je suis entrain d'essayer de chercher des informations dans un fichier txt en me servant d'une page asp, et ca merde grave .
Je vous donne le code que j'ai écrit dans mon moteur de recherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
<% If Request.Form("domain")<>""then %>
 
	<b><%=Request.Form("domain")%></b>
	<br><br>
 
	<% champ1=Request.Form("champ1")
		if champ1<>""then%>
			<b><%=champ1%></b>
			<br><br>
		<% end if%>
		<% champ1=champ1 & "" & Request.Form("domain")
end if%>
 
<% If Request.Form("user")<>""then %>
	Votre champ contenait
	<b><%=Request.Form("user")%></b>
	<br><br>
 
	<% champ1=Request.Form("champ1")
		if champ1<>""then%>
			<b><%=champ1%></b>
			<br><br>
		<% end if
		champ1=champ1 & "" & Request.Form("user")
end if%>
 
<% If Request.Form("password")<>""then %>
	Votre champ contenait
	<b><%=Request.Form("password")%></b>
	<br><br>
 
	<% champ1=Request.Form("champ1")
		if champ1<>""then%>
			<b><%=champ1%></b>
			<br><br>
		<% end if
		champ1=champ1 & "" & Request.Form("password")
end if%>
 
<% If Request.Form("cluster")<>""then %>
	Votre champ contenait
	<b><%=Request.Form("cluster")%></b>
	<br><br>
 
	<% champ1=Request.Form("champ1")
		if champ1<>""then%>
			<b><%=champ1%></b>
			<br><br>
		<% end if
		champ1=champ1 & "" & Request.Form("cluster")
end if%>
 
<% If Request.Form("application")<>""then %>
	Votre champ contenait
	<b><%=Request.Form("application")%></b>
	<br><br>
 
	<% champ1=Request.Form("champ1")
		if champ1<>""then%>
			<b><%=champ1%></b>
			<br><br>
		<% end if
		champ1=champ1 & "" & Request.Form("application")
end if%>
 
<% If Request.Form("account")<>""then %>
	<b><%=Request.Form("account")%></b>
	<br><br>
 
	<% champ1=Request.Form("champ1")
		if champ1<>""then%>
			<b><%=champ1%></b>
			<br><br>
		<% end if
		champ1=champ1 & "" & Request.Form("account")
end if%>
 
<% If Request.Form("custom")<>""then %>
 
	<b>
	<%for i=1 to Request.Form("custom").count
	response.write Request.Form ("custom").item(i)
	response.write"-"
	next%>
	</b><br><br>
 
	<% champ1=Request.Form("champ1")
		if champ1<>""then%>
			<b><%=champ1%></b>
			<br><br>
		<% end if
		champ1=champ1 & "" & Request.Form("custom")
end if%>
 
<% Set FSO = Server.CreateObject("Scripting.FileSystemObject") %>
<% dir = Server.MapPath("C:\Inetpub\wwwroot\carto/") %>
<% Fnm = dir & "\chaine_de_carctère_hyperion.txt" %>
<% if FSO.FileExists(Fnm) then %>
    <% set inF = FSO.OpenTextFile(Fnm,1,false) %>
    <% While not inF.atEndOfStream %>
           <%line =inF.readLine %>
           <%arrPaco = Split(line,"=" )%>
           <%if arrPaco[0]="ReportLabel" then%>
            <b><%=arrPaco[2]%><b>
            <br><br>
           <% end if %>
    <% Wend %>
<% end if %>

L'erreur suivante m'est renvoyée:
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Erreur de compilation Microsoft VBScript error '800a03f9'
'Then' attendu
/carto/moteur.asp, line 104
if arrPaco[0]="ReportLabel" then
----------^

Je vous avoue que je débute en ASP, c'est pourquoi votre aide me serait très précieuse.
Merci de votre aide