Loop (next) com pausa (TEM QUE SER FERA)

[Kibe_Ghost 0]

Esta e meio complicado para programadores junior como eu...

 

Tenho um codigo ASP e um loop , e preciso implementar uma pausa nele! Tipo ele executa 3 vezes pausa 1 seg e executa mais 3 vezes!!

 

Confira no codigo abaixo!!!

 

http://forum.imasters.com.br/public/style_emoticons/default/devil.gif

 

ASP [/tr][tr]

<%

 

festa = Request.form("Secao")

 

dir = Request.form("diretorio")

 

quantidade = Request.form("Quantidade")

 

qtd = quantidade

 

for i = 1 to qtd

 

conexao.execute("insert into Fotos(CodFoFe, Festa, Quantidade, Diretorio, FotoP, FotoG) values(" & i & ",'" & festa & "','" & quantidade & "','" & dir & "','" & dir & "/p" & i & ".jpg"&"','" & dir & "/g" & i & ".jpg"&"')")

 

next

 

%>

[/tr]

 

ASP [/tr][tr]

<%

If (secao <> "") Then

SQL = "SELECT * FROM Fotos WHERE Festa = " & secao & " ORDER BY CodFoto"

rsFotos.Open SQL, Conexao

 

IF (rsFotos.EOF) Then

teste = "S"

Else

teste = "N"

End if

rsFotos.Close

 

If teste = "N" Then

 

SQL = "SELECT * FROM Festa WHERE Festa = '" & secao & "'"

rsSecoes.Open SQL, Conexao

 

SQL = "SELECT * FROM Fotos WHERE Festa = " & secao & " ORDER BY CodFoto"

rsFotos.Open SQL, Conexao, 2, 2

 

reg = 0

regcad = 0

Do Until rsFotos.EOF

regcad = regcad + 1

rsFotos.MoveNext

reg = reg + 1

Loop

rsFotos.MoveFirst

%>

[/tr]

 

 

Neste codigo eu determino a quantidade de fotos e ele repete aquele numero vezes a ação..

 

Tive testando algum tipo de pausa depois ou antes do next mas sem resultado!!

 

Da uma mao ai galera!

 

 

Abraços...

[Kibe_Ghost 0]

Este codigo cria no banco os dados necessarios sobre as fotos de uma determinada festa, foto pequena e grande, mas o mesmo, acaba inserindo dados "errados"... trocando as miniaturas das fotos em relacao as fotos maiores!!!Acho q é a velocidade dele q faz dar pau!...Abraços

[Salgado 4]

Rapaz, explique direito, pois em ASP nunca vi isso acontencer, já tive problemas assim qd estava criando um sistema que interagia com um programa antigo do DOS, que sobreescrevia seus arquivos de saida e eu precisava reuperar antes.

[Selt 0]

cara checa o seu código pq no ASP nem em nenhuma linguagem recente acontece isso (salvo quando interage com outras linguagem mais antigas ou de padronagens diferentes, exemplo de PC para MAC)e confio plenamente no Salgado... o cara saca 6000 vezes mais do que eu... vai na dele[]'s

[Mário Monteiro 179]

Este codigo cria no banco os dados necessarios sobre as fotos de uma determinada festa, foto pequena e grande, mas o mesmo, acaba inserindo dados "errados"... trocando as miniaturas das fotos em relacao as fotos maiores!!!Acho q é a velocidade dele q faz dar pau!...Abraços

também nunca vi isso, mas se quiser testar sua teoria cria uma função que fica em loop pelo tempo que você quiser dentro do for, mas não creio que seja isso não, pode ter alguma coisa no codigo mesmo

[Kibe_Ghost 0]

Pessoal acho q voces nao entederam , é simples!!

 

Veja neste link..

 

http://www.ferveu.com.br/2004/foto.asp?id=37&pagina=3

 

as tumb nao bate com as fotos grandes...

 

O codigo cria isso, os caminhos!!

[Mário Monteiro 179]

cara como disse se você quer um daley poe um LOOP dentro de seu FOR com esse tempo e ve se dá o seu resultado

[Kibe_Ghost 0]

Agora estou perdido...

 

Olhei no banco de dados e os dados estao inseridos corretamente...

 

Agora chequei a pagina q mostra as fotos em miniatura,, e vi que ele mostra ate a 16 certinho depois da 16 ele pula pra 26 e comeca a embaralhar tudo....

 

veja o codigo!

 

 

ASP [/tr][tr]

<div align="center"></div>

<table width="20%" border="0" align="center" cellpadding="10" cellspacing="3" bordercolor="#111111" style="border-collapse: collapse">

<tr>

 

<% If rsFoto.EOF OR rsFoto.BOF Then

Response.Write "<br><br><center><b><font face= Verdana Size=2 color=black>Em breve fotos...</b></font><br><br>"

Else

rsFoto.absolutepage = pag

contador = 0

linha = 1

Do While NOT rsFoto.EOF AND contador < rsFoto.pagesize

Select Case linha

Case 1 %>

<td width="10%" align="center">

<a href="java script:abre_foto('pop_foto.asp?codf=<%= rsFoto("Festa") %>&total=<%= rsFoto("Quantidade") %>&id=<%= rsFoto("CodFoFe") %>&festa=<%= rsFesta("Festa") %>&data=<%= rsFesta("Data") %>&dir=<%= rsFoto("Diretorio") %>')">

<img border="1" src="festas/<%= rsFoto("FotoP") %>" width="90" height="65"></a></td>

<% linha = 2

Case 2 %>

<td width="10%" align="center">

<a href="java script:abre_foto('pop_foto.asp?codf=<%= rsFoto("Festa") %>&total=<%= rsFoto("Quantidade") %>&id=<%= rsFoto("CodFoFe") %>&festa=<%= rsFesta("Festa") %>&data=<%= rsFesta("Data") %>&dir=<%= rsFoto("Diretorio") %>')">

<img border="1" src="festas/<%= rsFoto("FotoP") %>" width="90" height="65"></a></td>

<% linha = 3

Case 3 %>

<td width="10%" align="center">

<a href="java script:abre_foto('pop_foto.asp?codf=<%= rsFoto("Festa") %>&total=<%= rsFoto("Quantidade") %>&id=<%= rsFoto("CodFoFe") %>&festa=<%= rsFesta("Festa") %>&data=<%= rsFesta("Data") %>&dir=<%= rsFoto("Diretorio") %>')">

<img border="1" src="festas/<%= rsFoto("FotoP") %>" width="90" height="65"></a></td>

<% linha = 4

Case 4 %>

<td width="10%" align="center">

<a href="java script:abre_foto('pop_foto.asp?codf=<%= rsFoto("Festa") %>&total=<%= rsFoto("Quantidade") %>&id=<%= rsFoto("CodFoFe") %>&festa=<%= rsFesta("Festa") %>&data=<%= rsFesta("Data") %>&dir=<%= rsFoto("Diretorio") %>')">

<img border="1" src="festas/<%= rsFoto("FotoP") %>" width="90" height="65"></a></td>

 

</tr>

<% linha = 1

End Select

contador = contador + 1

rsFoto.movenext

Loop

End If %>

</table>

 

 

<font color="#FFFFFF" size="2" face="Tahoma">-</font><font face="Tahoma" size="2">

<%= rsFoto.RecordCount %><font size="2"> fotos</font></font><br>

<table width="99%" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#111111" style="border: 1 dotted #666666">

<tr>

<td width="100%" bgcolor="#FF6600"> <p align="center"><font color="#FFFFFF" size="2" face="Tahoma"><strong><b>Mais

fotos</strong> <font color="#000000">|</font>

<% for i = 1 to rsFoto.pagecount

if i = cint(pag) then %>

( <%= i %> )

<% Else

Response.Write "<a class=""linkbranco""href='" & request.servervariables("script_name") & "?id=" & codigo & "&pagina=" & i & "'> " & i & "</a>"

End If

Next %>

</font></td>

</tr>

</table>

 

 

 

<br>

</td>

</table>

[/tr]

 

Estranho , pois outras festas rodam normal....

 

 

-------------------------------------------

Roda normal

 

http://www.ferveu.com.br/2005/foto.asp?id=20

 

----------------------------------------------

Dá o erro

 

http://www.ferveu.com.br/2005/foto.asp?id=37

 

----------------------------------------------

 

Abraços..

[Mário Monteiro 179]

bem como foi dito aqui era estranho inserir errado, por causa de atraso

[Selt 0]

nada novamente para o DB a festa que estah dando pau... alguma coisa deu M na hora de inserir os link no DB.... se um funfa o outro funfaria igualmente...[]'s