Questione : Elenco a discesa che popola codice che non funziona

Ciao il all

I ha ottenuto un certo codice che osserva in su una parola in una base di dati ed a caso seleziona tre lettere separate popolare tre scatole a discesa in un form.

However, esso non sta convincendo a passato il secondo blocco di codice a decidere la lettera. Quando lo provo, ottengo un errore di sintassi alla linea: il class= del

ElseIf (vRand2>vRand1 e vRand2I che esamina così lungamente il codice che sta facendo la mia ferita degli occhi. Potete aiutare prego? il

Here è il codice: class= " lineNumbers " >

1 del >
<% del id= " codeSnippet802477 " del >
 di Request.Form (“processo„) “allineare„ allora
	vCheck1 fioco, vCheck2, vCheck3, vLength
	vRand1 fioco, vRand2, vRand3
	
	'Ottenere la lunghezza della parola segreta
	vLength = Len (rsPersonnel (“PrivateWord„))
	
	'Scegliere a caso un carattere
	Ripartire le probabilità su
		vRand1 = Int (rnd*vLength) +1
		
	'Assicurar che non otteniamo due volte lo stesso carattere
	Fare
		vRand2 = Int (rnd*vLength) +1
	Collegare mentre vRand2 = vRand1
	
	'Assicurar che non otteniamo lo stesso carattere tre volte
	Fare
		vRand3 = Int (rnd*vLength) +1
	Collegare mentre vRand3 = vRand1 o vRand3 = vRand2

	'Fascicolare i caratteri in ordine, più basso il più su, per ciascuno a discesa
	Se (vRand1>vRand2 e vRand1>vRand3) allora vCheck1 = vRand1
		ElseIf (vRand1>vRand2 e vRand1vRand3 e vRand1vRand1 e vRand2>vRand3) allora vCheck2 = vRand2
		ElseIf (vRand2>vRand1 e vRand2vRand3 e vRand2vRand1 e vRand3>vRand2) allora vCheck3 = vRand3
		ElseIf (vRand3>vRand1 e vRand3vRand2 e vRand3
<%
Sub lo sPopulateDropdown (vStart, vEnd)

'Popolare dinamicamente un campo a discesa
Oscurare la i, sWrite
Per i = vStart da vEnd
sWrite = “value= di „ & Chr (i) & “„
sWrite di Response.Write
Dopo
Sommergibile dell'estremità
il class= >

and di %>

1 del >


id= 
        >  " del formLabel " del class= del 
        align= " centro " del 
        align= " centro " del 
        align= " centro " del 
        >  " del formLabel " del class= del 
        colspan= del 
        >  " del formLabel " del class= del 
        il colspan= " 3 " del 

    

        	value= nascosto " <%=vCheck1%> "/> " del type= " del name= " pos1 del 
            id= " cbo1 " del name= " cbo1 " del 
            sPopulateDropdown di chiamata di <% (97.122) %>
            sPopulateDropdown di chiamata di <% (48.57) %>
            
        

        	value= nascosto " <%=vCheck2%> "/> " del type= " del name= " pos2 del 
            id= " cbo2 " del name= " cbo2 " del 
            sPopulateDropdown di chiamata di <% (97.122) %>
            sPopulateDropdown di chiamata di <% (48.57) %>
            
        

        	value= nascosto " <%=vCheck3%> "/> " del type= " del name= " pos3 del 
            id= " cbo3 " del name= " cbo3 " del 
            sPopulateDropdown di chiamata di <% (97.122) %>
            sPopulateDropdown di chiamata di <% (48.57) %>
            
        
    
    
  " dei 3 " del >

    
    

    


value= nascosto/> " allineare " " del type= " " di processo del name= del 

Many di  

P.

class= del

Risposta : Elenco a discesa che popola codice che non funziona

prova che rimuove l'estremità se come seguono:

      'Fascicolare i caratteri in ordine, più basso il più su, per ciascuno a discesa
      Se (vRand1>vRand2 e vRand1>vRand3) allora vCheck1 = vRand1
            ElseIf (vRand1>vRand2 e vRand1            ElseIf (vRand1>vRand3 e vRand1            ElseIf (vRand1      
      Se (vRand2>vRand1 e vRand2>vRand3) allora vCheck2 = vRand2
            ElseIf (vRand2>vRand1 e vRand2            ElseIf (vRand2>vRand3 e vRand2            ElseIf (vRand2      
      Se (vRand3>vRand1 e vRand3>vRand2) allora vCheck3 = vRand3
            ElseIf (vRand3>vRand1 e vRand3            ElseIf (vRand3>vRand2 e vRand3            ElseIf (vRand3