Vraag : Dropdown lijst die code bevolken die werken niet

Hello all

I één of andere code die omhoog een woord in een gegevensbestand kijkt en willekeurig drie afzonderlijke brieven selecteert om drie dropdown vakjes in een form.

However te bevolken, krijgt het niet voorbij het tweede blok van code om de brief te beslissen. Wanneer ik het test, krijg ik een syntaxisfout bij de lijn: " geciteerde "
ElseIf (vRand2>vRand1 en vRand2I bekijkend de zo lange code dat het mijn ogen gekwetst maakt. Kunt u alstublieft helpen?

Here is de 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:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

<%
Als „ware“ Request.Form („proces“) <> toen
	Schemerige vCheck1, vCheck2, vCheck3, vLength
	Schemerige vRand1, vRand2, vRand3
	
	'Krijg de lengte van het geheime woord
	vLength = Len (rsPersonnel („PrivateWord“))
	
	'Kies willekeurig een karakter
	Verdeel willekeurig
		vRand1 = Int. (rnd*vLength) +1
		
	'Zorg ervoor wij niet het zelfde karakter tweemaal worden
	
		vRand2 = Int. (rnd*vLength) +1
	Lijn terwijl vRand2 = vRand1
	
	'Zorg ervoor wij niet het zelfde karakter driemaal worden
	
		vRand3 = Int. (rnd*vLength) +1
	Lijn terwijl vRand3 = vRand1 of vRand3 = vRand2

	'Soort de karakters in orde, het laagst tot het hoogst, voor dropdown elk
	Als (vRand1>vRand2 en vRand1>vRand3) Dan vCheck1 = vRand1
		ElseIf (vRand1>vRand2 en vRand1vRand3 en vRand1vRand1 en vRand2>vRand3) Dan vCheck2 = vRand2
		ElseIf (vRand2>vRand1 en vRand2vRand3 en vRand2vRand1 en vRand3>vRand2) Dan vCheck3 = vRand3
		ElseIf (vRand3>vRand1 en vRand3vRand2 en vRand3
<%
Sub sPopulateDropdown (vStart, verkoop)

'Bevolk dynamisch een dropdown gebied
Verduister I, sWrite
Voor I = vStart om te verkopen
sWrite = „“
Response.Write sWrite
Daarna
Sub van het eind
%>


and is hier de vorm: 
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:



 " bevestig "
    

    

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

    

          
        
  

    

    

         


Many dankt vooraf.

P.

Antwoord : Dropdown lijst die code bevolken die werken niet

probeer verwijderend het Eind als zoals volgen:

      'Soort de karakters in orde, het laagst tot het hoogst, voor dropdown elk
      Als (vRand1>vRand2 en vRand1>vRand3) Dan vCheck1 = vRand1
            ElseIf (vRand1>vRand2 en vRand1            ElseIf (vRand1>vRand3 en vRand1            ElseIf (vRand1      
      Als (vRand2>vRand1 en vRand2>vRand3) Dan vCheck2 = vRand2
            ElseIf (vRand2>vRand1 en vRand2            ElseIf (vRand2>vRand3 en vRand2            ElseIf (vRand2      
      Als (vRand3>vRand1 en vRand3>vRand2) Dan vCheck3 = vRand3
            ElseIf (vRand3>vRand1 en vRand3            ElseIf (vRand3>vRand2 en vRand3            ElseIf (vRand3
Andere oplossingen  
 
programming4us programming4us