Fråga : Dropdown lista att befolka kodifierar inte arbetet

Hälsningall

I fick något kodifierar, att ser upp en uttrycka i en databas och väljer på måfå separata tre märker för att befolka dropdown tre boxas i en form.

However, det får inte förgången understödjakvarteret av kodifierar för att avgöra märka. När jag testar den, jag får ett syntaxfel på fodra: ElseIf (vRand2>vRand1 och vRand2I som så long ser kodifiera att det är min danande synar men. Kan du hjälp behaga?

Here är kodifiera: för class=" codeSnippet " för
1 för ><% för id= " codeSnippet802477 " för >
 för Request.Form (”bearbeta”), därefter
	Dunkel vCheck1, vCheck2, vCheck3, vLength
	Dunkel vRand1, vRand2, vRand3
	
	'Få längden av hemligheten uttrycker
	vLength = Len (rsPersonnel (”PrivateWord”))
	
	'Välj på måfå ett tecken
	Randomize
		vRand1 = Int (rnd*vLength) +1
		
	'Se till att vi inte får det samma teckenet två gånger
	Gör
		vRand2 = Int (rnd*vLength) +1
	Kretsa stunder vRand2 = vRand1
	
	'Se till att vi inte får det samma teckenet tre gånger
	Gör
		vRand3 = Int (rnd*vLength) +1
	Kretsa stunder vRand3 = vRand1 eller vRand3 = vRand2

	'Sortera teckenen in i beställer, lägst highest, för varje som är dropdown
	Om (vRand1>vRand2 och vRand1>vRand3) därefter vCheck1 = vRand1
		ElseIf (vRand1>vRand2 och vRand1vRand3 och vRand1vRand1 och vRand2>vRand3) därefter vCheck2 = vRand2
		ElseIf (vRand2>vRand1 och vRand2vRand3 och vRand2vRand1 och vRand3>vRand2) därefter vCheck3 = vRand3
		ElseIf (vRand3>vRand1 och vRand3vRand2 och vRand3
<%
Sub sPopulateDropdown (vStart, vEnd),

'Befolka dynamiskt ett dropdown sätter in
Dunkelt I, sWrite
För I = vStart som ska vEnds
sWrite = ”” & Chr (I) & ””,
Response.Write-sWrite
Därefter
Avsluta suben
%><-/pre>


and här är bilda: för class=" codeSnippet " för
1 för >


" formTable " 
>  för value= " <%=vCheck1%> "/> för type= " för id= " cbo1 " för <% appellsPopulateDropdown (97.122) %> <% appellsPopulateDropdown (48.57) %> value= " <%=vCheck2%> "/> för type= " för id= " cbo2 " för <% appellsPopulateDropdown (97.122) %> <% appellsPopulateDropdown (48.57) %> value= " <%=vCheck3%> "/> för type= " för id= " cbo3 " för <% appellsPopulateDropdown (97.122) %> <% appellsPopulateDropdown (48.57) %> >  för " class= för >
 
>  för " align= " för
för type= " tack för >


Many för class= för


P.
" klar "

Svar : Dropdown lista att befolka kodifierar inte arbetet

försök som tar bort avsluta, om som följer:

      'Sortera teckenen in i beställer, lägst highest, för varje som är dropdown
      Om (vRand1>vRand2 och vRand1>vRand3) därefter vCheck1 = vRand1
            ElseIf (vRand1>vRand2 och vRand1            ElseIf (vRand1>vRand3 och vRand1            ElseIf (vRand1      
      Om (vRand2>vRand1 och vRand2>vRand3) därefter vCheck2 = vRand2
            ElseIf (vRand2>vRand1 och vRand2            ElseIf (vRand2>vRand3 och vRand2            ElseIf (vRand2      
      Om (vRand3>vRand1 och vRand3>vRand2) därefter vCheck3 = vRand3
            ElseIf (vRand3>vRand1 och vRand3            ElseIf (vRand3>vRand2 och vRand3            ElseIf (vRand3
Andra lösningar  
 
programming4us programming4us