Hola a todos y muchas gracias por la ayuda, evidentemente tenia razon Sergiete, ya que habia un error en la estructuracion de la programación, lo que hice fue cerrar primero el do while y despues los End If de esta forma
<%oRS.MoveNext
loop%>
<% End if %>
<% End if
oRS.close
set oRS=nothing
Conn.Close
Set Conn = Nothing
%>
y asi funciona perfectamente, muchisimas gracias a todos por la gran ayuda.
Eduardo
:)