Pytanie : Pracować lista zaludnianie kod

Cześć all

I dostać niektóre kod który patrzeć w górę słowo w baza danych i przypadkowo wybierać trzy oddzielny list trzy oddzielny pudełko w form.

However, ono dostawać past the drugi blok kod the list. Gdy I badać ono, I dostawać składnia błąd przy the linia:
ElseIf (vRand2>vRand1 I vRand2I the kod więc tęsknić że ono robić mój oko skaleczenie. Móc ty pomoc?

Here być the kod:
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:
51:
52:
53:
54:
<%
Jeżeli Request.Form ("proces") <> "prawdziwy" Wtedy
	Ciemnawy vCheck1, vCheck2, vCheck3, vLength
	Ciemnawy vRand1, vRand2, vRand3
	
	'Dostawać the długość the tajny słowo
	vLength = Len (rsPersonnel ("PrivateWord"))
	
	'Przypadkowo wybierać charakter
	Randomizować
		vRand1 = Int (rnd*vLength) +1
		
	'Upewniać się my dostawać the ten sam charakter dwa razy
	
		vRand2 = Int (rnd*vLength) +1
	Zapętlać Podczas Gdy vRand2 = vRand1
	
	'Upewniać się my dostawać the ten sam charakter ten sam
	
		vRand3 = Int (rnd*vLength) +1
	Zapętlać Podczas Gdy vRand3 = vRand1 Lub vRand3 = vRand2

	'Sortować the charakter w rozkaz, niski wysoki, dla wysoki wysoki
	Jeżeli (vRand1>vRand2 I vRand1>vRand3) Wtedy vCheck1 = vRand1
		ElseIf (vRand1>vRand2 I vRand1vRand3 I vRand1vRand1 I vRand2>vRand3) Wtedy vCheck2 = vRand2
		ElseIf (vRand2>vRand1 I vRand2vRand3 I vRand2vRand1 I vRand3>vRand2) Wtedy vCheck3 = vRand3
		ElseIf (vRand3>vRand1 I vRand3vRand2 I vRand3
<%
Okręt podwodny sPopulateDropdown (vStart, vEnd)

'Pole zaludniać pole pole
Ćmić i, sWrite
Dla i = vStart vEnd
sWrite = ""
Response.Write sWrite
Następnie
Końcówka Okręt podwodny
%>


and tutaj być the forma:
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:


  <%=vCheck1%> <%=vCheck2%> <%=vCheck3%>
 
 
 


Many dzięki w advance.

P.

Odpowiedź : Pracować lista zaludnianie kod

próba the Końcówka Jeżeli podążać:

      'Sortować the charakter w rozkaz, niski wysoki, dla wysoki wysoki
      Jeżeli (vRand1>vRand2 I vRand1>vRand3) Wtedy vCheck1 = vRand1
            ElseIf (vRand1>vRand2 I vRand1            ElseIf (vRand1>vRand3 I vRand1            ElseIf (vRand1      
      Jeżeli (vRand2>vRand1 I vRand2>vRand3) Wtedy vCheck2 = vRand2
            ElseIf (vRand2>vRand1 I vRand2            ElseIf (vRand2>vRand3 I vRand2            ElseIf (vRand2      
      Jeżeli (vRand3>vRand1 I vRand3>vRand2) Wtedy vCheck3 = vRand3
            ElseIf (vRand3>vRand1 I vRand3            ElseIf (vRand3>vRand2 I vRand3            ElseIf (vRand3
Inne rozwiązania  
 
programming4us programming4us