do while nao funciona com var

[razs 0]

Pessoal alguma ideia do porque que isto nao funciona?

 

Se eu substituir a var por 100 ele funciona.

Ja verifiquei e ele esta a devolver um valor numerico

 

protnum=protocheck("protocoln")
expec=trim(protocheck("expec_pat"))
expec_full=expec_pat + expec_pat

r=0
Do While r < expec_full

if r<9 then
r="000"&r+1
elseif r<99 and r>8 then
r="00"&r+1	
elseif r<999 and r>99 then
r="0"&r+1		
else
r=r+1
end if
varpa=protnum&"-"&r

set check=conn.execute("select id from utlt where pt_numb='"&varpa&"'")	
if  check.eof then

if r < expec then
 cor="green;font-weight:bold;"
else
 cor="orange"
end if

%>
<option style="background-color:<%=cor%>" value="pag.asp?varmenu=<%=varmenu%>&cr=<%=cr%>&sit=<%=sit%>&pan=<%=varpa%>"><%=varpa%></option>
<%
end if	
loop

[xanburzum 169]

esta sendo gerado algum erro ?