em um loop

isso nao quer funcionar... alguem pode me ajudar???cont = 1while cont = 10 If prg(cont) = 1 then Certos = Certos+1 else Errados = Errados+1 end if response.write prg(cont) cont=cont+1 wend