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 :
et ca me donne un tableau du genre :0166BUE
0176BUE
0266BUE
A163BUE
A175BUE
A176BUE
A263BUE
A275BUE
A279BUE
A371BUE
A379BUE
A671BUE
A871BUE
AA63BUE
AAB3BUE
AAC3BUE
AAD3BUE
AAS5BUE
AB63BUE
ABE3BUE
abe8bue
ABM3BUE
ABN4BUE
ABW3BUE
[...]
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 <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... et je comprends vraiment pas pourquoi puisque j'utilise la fonction Ucase.
Voici mon code :si quelqu'un a une idee du pourquoi du comment de la chose, qu'il n'hesite pas a se manifester!!!
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 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
[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
Partager