Discussion :

[Bidos]

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

[pc75]

Bonjour,

Pour que ton message soit plus lisible, utilise les balises CODE.

Tu n'as pas l'impression qu'il te manque des END IF ?

[Bidos]

c'est quoi les balises CODES???

[Bidos]

Je veux bien pouvoir utiliser ces balises CODES afin d'etre plus lisible mais étant débutant sur ce site je ne sais comment utiliser ces balises

[pc75]

Re,

Quand tu tapes du code, tu le sélectionnes et tu cliques sur le bouton #

[Bidos]

oui c'est fait et mon script est plus lisible maintenant

[pc75]

Re,

Il te manque un end if à la fin de ton script

[Bidos]

Bonjour PC75
J'ai eu votre message et je pense plutôt que de mon coté en mettant en ligne mon script il y a eu un bout qui manquait, du coup j'ai corrigé et j'ai toujours l'erreur qui s'affiche à moi. Maintenant est ce le script que j'ai écrit répond exactement à ce que je dois faire je n'en sais rien raison pour laquelle je sollicite de l'aide

[Bidos]

Pour ce qui est de l'erreur '800a0401' je pense que c'est un probleme au niveau du parametrage de mon iss ou il y a un dim qui traine au niveau de la line 11 alors j'ai fait un retour à la ligne et l'erreur a disparu mais il y a une autre erreur à la ligne 26 ou j'ai bien un If et à la fin un end If seulement l'erreur me dit qu'il y a une instruction attendue

Code :

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

1
2
3
4
5
6
7
8
9
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
 
--------------------------------------------------------------------------^