Imagenes aleatorias cada 15 segundos

[Raspinu]

Hola

Como podria hacer para que esto se repitiera cada 15 segundos.....


SQL = "select * from galerias"
rs.OPEN sql, conn,3,1
intTotalRecords = rs.RecordCount
Randomize()
session("random")=0
intRandomNumber = Int((intTotalRecords * Rnd))



Do while session("random")=0
if session("random")<>intRandomNumber then
rs.Move intRandomNumber
session("random")=intRandomNumber
Response.Write ""&rs("Subfamilia")&""
else
session("random")=0
end if
loop%>
<img src="<%Response.Write ""&rs("Subfamilia")&""%>" width="100" height="100" >



Con este codigo consigo que cada vez que visitan la web salga una imagen distinta pero si quiero hacer cada x tiempo pongo un Refresh pero... no me gusta como queda ya que la imagen de fondo tarda en cargar y se ve un parpadeo.

Gracias

Gracias