Solamente es que estábamos comparando un string con un entero, con un cast se soluciona el asunto:
en negritas los cambios...
Código:
<%
cadena="5,1,8,9,10"
arrVar = split(cadena, ",")
For i = 1 to 900
lo_encontre = false
For j=0 to uBound(arrVar)
If i = cint(arrVar(j)) Then
lo_encontre = true
Exit For
End If
Next
If lo_encontre Then
Response.Write "<a href=""Detalle.asp"">" &i& "</a>"
Else
Response.write " "&i
End If
Next
%>
Salu2,