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?.

[JuanRAPerez]

si tu enlace es este

orden_visita.asp?id=<%=rs.Fields("id_propi").value %>
foto_siguiente= rs.Fields("id_propi").value + 1

para avanzar a fotos
podrias hacer un iframe en la pagina principal donde cargas todo, y luego poner en la paginad el iframe un refresh via HTML

<meta http-equiv="refresh" content="2;url=tupaginaiframe.asp?id=<%=foto_sigui ente%>">

[JuanRAPerez]

el 2 es la cantidad de segundos puedes ponerle 10 segundos
o mas

[karmish]

como ago lo que dices

[karmish]

Muchas gracias por tu codigo, pero necesito que se repitan las imagenes.
Como lo ago?

[JuanRAPerez]

perdon que desatendi
lograstes hacerlo?????

como que se repitan?

[karmish]

lo que pasa es que con el codigo que me pasas muestra todas las imagenes y en la ultima se queda cargandola una y otra y otra ves, nunca vuelve a mostrar la primera

[JuanRAPerez]

no entiendo porque te muestra todo

tu sql tiene ser
selec * from fotos where id = foto_siguiente

y ahi solo te mostrara la unica.
ahora bien deveras de abrir tu base de datos para ver si te permite ver cual es el ultimo registro

rs.movelast y asi comparar

si foto_siguiente = ultimoregistros
foto_siguiente = 1

y asi empezamos de nuvo con el carrusel de fotos

saludos

[karmish]

perdona lo cabesa duro que soy pero sigo sin entender, por favor si es posible mandame el ejemplo completo

[Myakire]

¿No les sería más fácil hacer UNA sola lectura al server y hacer una precarga de las imagenes con javascript y que el cliente sea quien este dando el efecto rotatorio de las imagenes?

[karmish]

eso seria perfecto me alludaria mucho, por casualidad tu tienes el codigo para hacer eso, aparte recuerda que mis fotos estan siendo llamadas por base de dato

[karmish]

Ayuda Ayuda Ayuda
Como muevo las imagenes que estan siendo llamas de la base de dato.

[Myakire]

Iniciado por karmish

...., aparte recuerda que mis fotos estan siendo llamadas por base de dato

mmmm, pequeño detalle, eso me complica la idea.... tengo que hacer un par de ejercicios para ver si es posible por esete camino.... así que paciencia , aunque supongo que igual no habría mucho problema con capas, dejame probar.

PD. ¿Ya te leiste tutoriales como este?

[karmish]

Gracias por la direccion, cuando tengas algun resultado avisame y si quieres el codigo que pose avisame y te lo envio por email para que lo pruebes.