Tabla de nota y no recorre

[alexis0708]

claro lo toma de una tabla y lo llena y el input voy agregando las notas y obvio que debiera cambiarlo en el select pero no hace nada ,estoy nerviosa ya que necesito entregarlo ahora...
gracias por ayuda y comentarios...gracias

<td>
<input type="text" size="3" maxlength="3" name="N<%=TABLA2("CALU_RUT")%>" value="<%=nn%>" onBlur="rango(this,0,7)"></td>
<td>
<select name="nota<%=TABLA2("CALU_RUT")%>" id="no" >
<%
cadenaSQL="SELECT COD_CODIGO, COD_DESCRIPCION FROM HVID_CAP_CODIGOS WHERE COD_GRUPO=32 AND (COD_CODIGO<>0 and COD_CODIGO<>5)"
Set TABLA3=BDD.execute(cadenaSQL)
codigo2=CInt(TABLA2("CALU_EVALUACION"))

while not TABLA3.eof
codigo=CInt(TABLA3("COD_CODIGO"))
if (codigo=codigo2) then
cadena=" selected "
else
cadena=""
end if
%>
<option <%=cadena%> value="<%=TABLA3("COD_CODIGO")%>"><%=TABLA3("COD_D ESCRIPCION")%></option>
<%
TABLA3.movenext
wend
TABLA3.close
set TABLA3=Nothing

%>
</select>
</td>