tableau javascript ecrit par une fonction asp
salut!
J'ai ecrit une fonction asp qui a partir du contenu d'une base de donnees, ecrit un tableau javascript...
je m'explique :
contenu de ma base de donnees :
Citation:
0166BUE
0176BUE
0266BUE
A163BUE
A175BUE
A176BUE
A263BUE
A275BUE
A279BUE
A371BUE
A379BUE
A671BUE
A871BUE
AA63BUE
AAB3BUE
AAC3BUE
AAD3BUE
AAS5BUE
AB63BUE
ABE3BUE
abe8bue
ABM3BUE
ABN4BUE
ABW3BUE
[...]
et ca me donne un tableau du genre :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| <script language='javascript'>var K=new Array();
K["0"] = new Array("0166BUE","0176BUE","0266BUE");
K["1"] = new Array();
[...]
K["9"] = new Array();
K["A"] = new Array("A163BUE","A175BUE","A176BUE","A263BUE","A275BUE","A279BUE","A371BUE","A379BUE","A671BUE","A871BUE","AA63BUE","AAB3BUE","AAC3BUE","AAD3BUE","AAS5BUE","AB63BUE","ABE3BUE");
K["B"] = new Array();
[...]
K["Z"] = new Array();
K["a"] = new Array();
[...]
K["z"] = new Array();
</script>
<script language="JavaScript"> |
seulement voila... lorsque je tombe sur un recordset ecrit en minuscule (je suppose que c'est ca le probleme), il bloque... 8O et je comprends vraiment pas pourquoi puisque j'utilise la fonction Ucase.
Voici mon code :
Code:
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
|
If NOT (Rs.BOF AND Rs.EOF) Then
'rs.movenext()
'tmpkennung=Rtrim(Ucase(RS("Username")))
response.Write("<script language='javascript'>")
response.Write("var K=new Array();")
For i=48 to 122
if ((i<=57) OR (i>=65 AND i<=90) OR (i>=97 AND i<=122)) then
response.Write(vbcrlf)
response.write("K["&chr(34)&chr(i)&chr(34)&"] = new Array(")
if not rs.eof then
tmpkennung = Rtrim(Ucase(RS("Username")))
end if
if (left(tmpkennung,1))=Chr(i) then
while (left(tmpkennung,1))=Chr(i) and not rs.EOF
response.Write(chr(34) & tmpkennung & chr(34))
rs.movenext()
if (i>=97 AND i<=122) and (not rs.eof) then
tmpkennung = Rtrim(Ucase(RS("Username")))
else
if not rs.eof then
tmpkennung = Rtrim(RS("Username"))
else
tmpkennung=""
end if
end if
if (left(tmpkennung,1))=Chr(i) then
response.Write(",")
else
response.Write(");"&vbcrlf)
end if
wend
else
response.Write(");"&vbcrlf)
end if
end if
next
response.Write("</script>")
end if |
si quelqu'un a une idee du pourquoi du comment de la chose, qu'il n'hesite pas a se manifester!!!
[edit] alors j'ai essaye en enlevant la fonction Ucase : abe8bue est mis dans K[a] et il va pas plus loin(ce qui est normal par contre cette fois)[/edit]
PS : pour les modos : desolee pour la longueur du post, mais je trouve que c'etait beaucoup plus explicite que des paroles :oops:
