Fotos en movimiento con asp

[karmish]

Hola tengo una duda con respecto a esto y si es que se puede lograr.
Lo que quiero lograr es poder hacer que la imagenes que estan direccionadas atraves de la base de dato queden mostrandose solas, como un gif o algo.
Miren tengo este codigo lo que hace es cuando uno picha sobre el boton avansa a la siguiente, ahora yo quiero que esas mismas fotos avansen solas y se repeitan, espero ser claro, aqui va el codigo.

Código:

<table width="100%" border="0" cellpadding="0" cellspacing="0">
              
              <tr> 
                <td width="550" height="18" valign="middle" class="subtit">&nbsp; 
                  FICHA PROPIEDAD 
                  <%Response.Write("Foto " & PaginaActual & " de " & PaginasTotales)%></td>
              </tr>
              <tr> 
                <td height="318" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                    <!--DWLayoutTable-->
                    <tr> 
                      <td height="263" colspan="4" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                          <!--DWLayoutTable-->
                          <tr> 
                            <td width="305" height="230" align="center" valign="middle"> 
                              <%
				rs4.AbsolutePage=PaginaActual
				CuantosRegistros=0
				Do While Not rs4.EOF and CuantosRegistros < TamPagina%> <img src="admin/galerias/<%=rs4.Fields("foto").value%>" width="300" height="225"></td>
                          </tr>
                          <%
				CuantosRegistros=CuantosRegistros+1
				rs4.MoveNext
                Loop
				rs4.Close
                Set rs4 = Nothing
                con4.Close
                Set con4 = Nothing
			%>
                          <tr> 
                            <td height="20" valign="top"><span class="subtit">&nbsp; 
                              GALERIA DE FOTOS </span></td>
                          </tr>
                        </table></td>
                      <td colspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                          <!--DWLayoutTable-->
                          <tr> 
                            <td width="116" height="18" valign="middle" class="titc">N&ordm; 
                              Propiedad </td>
                            <td width="125" valign="top"><span class="tahoma12n"><%=rs.Fields("id_propi").value%></span></td>
                          </tr>
                          <tr> 
                            <td height="18" valign="middle"><span class="titc">Tipo 
                              Propiedad </span></td>
                            <td valign="middle"><span class="tahoma12n"><%=rs.Fields("tipo").value%></span></td>
                          </tr>
                          <tr> 
                            <td height="18" valign="middle"><span class="titc">Tipo 
                              Operaci&oacute;n </span></td>
                            <td valign="middle"><span class="tahoma12n"><%=rs.Fields("operacion").value%></span></td>
                          </tr>
                          <tr> 
                            <td height="18" valign="middle" class="titc">Regi&oacute;n</td>
                            <td valign="middle"><span class="tahoma12n"> 
                              <%Response.Write(region)%>
                              </span></td>
                          </tr>
                          <tr> 
                            <td height="18" valign="middle"><span class="titc">Ciudad</span></td>
                            <td valign="middle"><span class="tahoma12n"><%=rs.Fields("ciudad").value%></span></td>
                          </tr>
                          <tr> 
                            <td height="18" valign="middle"><span class="titc">Sector</span></td>
                            <td valign="middle"><span class="tahoma12n"><%=rs.Fields("sector").value%></span></td>
                          </tr>
                          <tr> 
                            <td height="18" valign="middle" class="titc">Precio</td>
                            <td valign="middle"><span class="tahoma12n"><%=rs.Fields("precio").value%></span></td>
                          </tr>
                          <tr> 
                            <td height="18" colspan="2" valign="middle" class="titc">Detalles</td>
                          </tr>
                          <tr> 
                            <td height="106" colspan="2" valign="top"><span class="tahoma12n"><%=rs.Fields("observacion").value%></span></td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      <td width="77" height="68" align="center" valign="middle"><%if PaginaActual > 1 then%> <a href="ficha.asp?pagina=<%Response.Write(""&PaginaActual-1&"")%>&id=<%Response.Write(""&pase&"")%>"><img src="images/flechagif2.gif" width="30" height="21" border="0"></a> 
                        <%End if%></td>
                      <td width="55">&nbsp;</td>
                      <td width="77" align="center" valign="middle"><%if PaginaActual < PaginasTotales then%> <a href="ficha.asp?pagina=<%Response.Write(""&PaginaActual+1&"")%>&id=<%Response.Write(""&pase&"")%>"><img src="images/flechagif.gif" alt="Siguiente" width="30" height="19" border="0"> 
                        <%End if%>
                        </a></td>
                      <td width="98" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                        
                          <%
						'Do while not rs1.EOF
						If rs1.EOF Then
						  Response.Write("No existen fotos para la galeria de esta Propiedad")
						End If 
                        Response.Write ("<tr>")
                       ' For i = 1 To 4
                        
						Response.Write("<td width=""25%"" height=""62"" align=""center"" valign=""top""><a href=foto.asp?id="&rs1.Fields("foto")&"&codigo="&rs1.Fields("id_propi")&" target=""_blank""><img src=""admin/galerias/"&rs1.Fields("foto").value&""" width=""75"" border=""0"" alt=""Click para ver foto ampliada""></a></td>")
                        'rs1.MoveNext
                       
                        Response.Write("</td>")
                        'Next
                        Response.Write("</tr>")
                       ' Loop
						%>
                        </table></td>
                      <td width="120" align="center" valign="middle"><a href="orden_visita.asp?id=<%=rs.Fields("id_propi").value%>"><img src="images/botones/btnvisita.gif" width="116" height="26" border="0"></a></td>
                      <td width="123" align="center" valign="middle"><a href="javascript:history.back(1)"><img src="images/botones/btnvolver.gif" width="116" height="26" border="0"></a></td>
                    </tr>
                  </table></td>
              </tr>
            </table>

Bueno ese es el codigo que tengo ahora como lo ago para que se muevan solas, ¿Hay que agregar algo o se usa otro tipo de codigo?.