Hola
Es normal que la consulta te arroje únicamente un registro. Añade esto a tu código, es un bucle para mostrar todas la imagenes que tienes en la tabla
Cita: Do While not rs.eof
%>
<%=rs("imagen")%>
<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing
oConn.Close
set oConn = Nothing
%>
y en vez de
Cita: s = "SELECT Images from Pro"
esto otro
Cita: s = "SELECT Images from Pro where campo = '"&variable&"'"
Suerte