aide pour des fonctions

**sharpeye** · 08/04/2006, 17h10

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

**Immobilis** · 08/04/2006, 21h20

Salut,

Déjà pour avoir le message d'erreur en plus détaillé: Outils > Option Internet > Avancé > Navigation > Décocher "Afficher des messages d'erreur HTTP simplifiés"

Tu devrais avoir le type d'erreur ainsi que la ligne. Après c'est plus facile.

A+

**sharpeye** · 11/04/2006, 09h25

OK, merci du tuayu, ca m'a bien aidé

J'ai une erreur en fait pour :

Code :

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

call AjoutOeuvre(getRef(texte), getTitre(texte))

Il me dit que que les type sont pas compatible pour la fonction GetRef (que j'ai au passage renommer en autre chose, mais ca change rien au probleme bien sur

), pourtant, il me faut un string ...

RS.ReadLine, ce serait pas un string alors ? Merci d'avance

aide pour des fonctions

ASP

Discussions similaires

Partager

Partager