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 :
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 : 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 :
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
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