Bnojour,
j'essaie d'ecrire une page en asp qui doit aller chercher des infos dans un fichiers texte, mais quand je met l'asp, j ai un message erreur interne au serveur, affichage inmpossible.

Voici le code :
d'abord dans <head>
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
<script>
<%
sub DebutLigne()
response.write("<tr><td scope=""row"" align=""center"">")
end sub
%>
<%
sub FinLigne()
response.write("</td></tr>")
end sub
%>
<%
sub DebutTableau()
response.write("<table width=""100%"" border=""0"">")
end sub
%>
<%
sub FinTableau()
response.write("</table>")
end sub
%>
<%
sub Espacer()
response.write("<img src="""" width=""40"">")
end sub
%>
<%
sub ajoutOeuvre(Ref, Titre)
response.write("<table width=""150"" border=""0""><tr><td scope=""row""><img src=" & Ref & " width=""150""></td></tr><tr><td scope=""row"">" & Titre & "</td></tr></table>")
end sub
%>
<%
sub GetTitre(text)
response.write(right(text,len(text)- instr(text, "##") -1)
end sub
sub GetRef(text)
response.write(Left(text,instr(text, "##") -1)
end sub
%>
</script>
est ce qu il faut la balise script d'ailleur, j ai aussi essayé sans.

puis dans le <body>
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
		  <%
          Set FS = Server.CreateObject("Scripting.FileSystemObject")
          Set RS = FS.OpenTextFile(Server.mappath("textfile.txt"),1)
          dim newLine as boolean
          dim closeLine as boolean
          debutTableau
          nombreMax = 2
          compteur = 0
          While not RS.AtEndOfStream
 
             if compteur = 0 then
                newline = true
             else 
                newline = false
             end if
             if compteur = nombreMax then
                closeline = true
             else 
                closeline = false
             end if
 
             if newline then 
                DebutLigne 
             else 
                Espacer
             end if
 
             texte = RS.Readline
             call AjoutOeuvre(getRef(texte), getTitre(texte))
             if compteur = 2 then
                compteur = 0
             else
                compteur = compteur + 1
             end if
 
             if Closeline then
                FinLigne
                if nombreMax = 2 then
                   nombreMax = 3
                else
                   nombreMax = 2
                end if
             end if
 
          Wend
          if closeLine = false then
             Finligne
          end if 
          finTableau
          %>
Merci bien