Discussion :

[mael94420]

Bonjour

Pour utiliser MSGRAPH, je doit avoir dans mon script c quelque lignes

Code :

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

1
2
3
4
ds.Cells(1,2).Value = "jojo"
  ds.Cells(2,2).Value = "7"
  ds.Cells(1,3).Value = "jojo"
  ds.Cells(2,3).Value = "7"

Bien sur, les valeurs sont modifiables

toujours est il que j'arrive à generer ce code à l'aide de boucle (for et while) au caractere pres

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
for j=2 to nombre_abonne+1
 
 
 
      for i=1 to 2 
       IntTest = IntTest+1
       response.Write("ds.Cells("&i&","&j&").Value = ")
       if IntTest mod(2) = 0 then
        response.Write(chr("34")&RSnb("stat")&chr("34")&"<br>")
       else
        response.Write(chr("34")&RSgraph("pseudo")&chr("34")&"<br>")
       end if
      next
   next

pourtant, quand je rentre le code en dur, le script fonctionne mais pas quand je le genere avec des boucles

Auriez vous une solution svp

Merci

[ryan]

Yop!

Tu pourrais peut-être commencer par laisser tomber la seconde boucle:

Code :

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

1
2
3
4
5
6
7
 
for j=2 to nombre_abonne+1
   response.Write("ds.Cells(1","&j&").Value = ")
   response.Write(chr("34")&RSnb("stat")&chr("34")&"<br>")
   response.Write("ds.Cells(2","&j&").Value = ")
   response.Write(chr("34")&RSgraph("pseudo")&chr("34")&"<br>")
next

Ensuite essayer sans la balise BR, pour voir...

Ryan

[mael94420]

non car sans la seconde boucle, ca ne me genere pas le bon code
Je pense que c un soucis au niveau de l'utilisation de MSGRAPH

[ryan]

non car sans la seconde boucle, ca ne me genere pas le bon code
Je pense que c un soucis au niveau de l'utilisation de MSGRAPH

Oops, ouais...il y avait une " de trop dans le code que j'ai écrit.
J'ai pas l'habitude de concaténer des chaines sans laisser d'espace entre les morceaux. Donc, à ma façon, histoire de ne pas écrire de bétise, et en supprimant la balise BR:

Code :

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

1
2
3
4
5
6
7
 
for j=2 to nombre_abonne+1
   response.Write "ds.Cells(1," & j & ").Value = "
   response.Write chr("34") & RSnb("stat") & chr("34") 
   response.Write "ds.Cells(2," & j & ").Value = "
   response.Write chr("34") & RSgraph("pseudo") & chr("34") 
next

Ca donne quoi?

Ryan