<% del id= " codeSnippet802477 " del > de Request.Form (“proceso”) “verdad” entonces
vCheck1 dévil, vCheck2, vCheck3, vLength
vRand1 dévil, vRand2, vRand3
'Conseguir la longitud de la palabra secreta
vLength = Len (rsPersonnel (“PrivateWord”))
'Elegir aleatoriamente un carácter
Seleccionar al azar
vRand1 = internacional (rnd*vLength) +1
'Cerciorarse de que no consigamos el mismo carácter dos veces
Hacer
vRand2 = internacional (rnd*vLength) +1
Colocar mientras que vRand2 = vRand1
'Cerciorarse de que no consigamos el mismo carácter tres veces
Hacer
vRand3 = internacional (rnd*vLength) +1
Colocar mientras que vRand3 = vRand1 o vRand3 = vRand2
'Clasificar los carácteres en la orden, más baja lo más arriba posible, para cada uno dropdown
Si (vRand1>vRand2 y vRand1>vRand3) entonces vCheck1 = vRand1
ElseIf (vRand1>vRand2 y vRand1vRand3 y vRand1vRand1 y vRand2>vRand3) entonces vCheck2 = vRand2
ElseIf (vRand2>vRand1 y vRand2vRand3 y vRand2vRand1 y vRand3>vRand2) entonces vCheck3 = vRand3
ElseIf (vRand3>vRand1 y vRand3vRand2 y vRand3
el <%
Sub el sPopulateDropdown (el vStart, vEnd)
'Poblar dinámicamente un campo dropdown
Amortiguar i, sWrite
Para i = vStart a vEnd
sWrite = “value= del ”
sWrite de Response.Write
Después
Submarino del extremo
el class= >
and de %>