Carregando

[cesarhtc 0]

Poderiam me ajudar como faço para colocar uma mensagem de AGUARDE enquanto esta sendo feita a pesquisa?

 

Já coloquei antes e depois do IF e nada.

Creio que seria na pagina que roda a pesquisa certo?

 

 

[]s

 

 

 

ASP [/tr][tr]

<%

 

'Recupera do pesqBDAF.asp o valor das variáveis passadas

wcp = Request.form("Número da CP")

 

 

'response.write &wcp & "<BR>"

 

 

' Mostra a variável de Conexão

conexao = "DRIVER=Microsoft Access Driver (*.mdb); dbq=D:\Intranet\DAF\suprimentos\web_esti\afsdata.mdb"

 

'Monta a string SQL de checagem da existencia da CP

strSQL= "SELECT * FROM AFs WHERE AFs.[Número da CP]="& wcp &" ORDER BY AFs.[Data de Assinatura]DESC"

'Response.Write strSQL & "<BR>"

 

'response.end

 

'Cria um objeto recordset

set rstMain = Server.CreateObject("ADODB.Recordset")

 

'Conecta ao BD pelo DSN e abre a consulta

'Como resultado, o recordset conterá a tabela-resposta

rstMain.Open strSQL,conexao

 

 

if not rstMain.EOF then %>

 

 

 

<table align=center>

<tr>

 

<td>  <font face="Trebuchet MS" size="3" color="blue"><b>CP:

<%

numero=wcp

parte1=left(numero,4) 'põe na parte1 os 4 dígitos mais à esquerda.

parte2=mid(numero,5,4) 'põe na parte2 os 4 dígitos que começam na posição 5, a contar da esquerda.

parte3=right(numero,2) 'põe na parte3 os 2 dígitos mais à direita.

numeroformatado=parte1 & "." & parte2 & "." & parte3

response.write numeroformatado

%>

</b></font>

</td>

</table>

 

<table border=0 align=center>

<tr bgcolor="#C0C0C0">

<td align=center><font face="tahoma" size="1" color="#000080"><b>AF</b></td>

<td align=center><font face="tahoma" size="1" color="#000080"><b>Fornecedor</b></td>

<td align=center><font face="tahoma" size="1" color="#000080"><b>Assinatura</b></td>

<td align=center><font face="tahoma" size="1" color="#000080"><b>Valor</b></td>

</tr>

 

<%

' Percorrer o recordset até o final

Do until rstMain.EOF

%>

 

<tr>

<td align=center><font face="verdana" color="blue" size= "1" <b><a href="ver2.asp?Número da AF=<%=rstMain("Número da AF")%>"><%=rstMain("Número da AF")%></a></b></td>

<td align=justify><font face="arial" color="blue" size= "1" <b><%=rstMain("Nome Fornecedor")%></b></td>

<td align=center><font face="tahoma" color="blue" size= "1" <b><%=rstMain("Data de Assinatura")%></b></td>

<td align=right><font face="tahoma" color="blue" size= "1" <b><%=formatnumber(rstMain(("total da AF")),2)%></b></td>

</tr>

 

<%

' Move para o próximo registro

rstMain.movenext

Loop

%>

</table>

 

<%

rstMain.Close

else

%>

<hr>

<h3 style=color="red">Esta CP ainda não consta no banco.</h3>

<hr>

 

<%

End if

 

'Libera a memória (destrói o objeto recordset)

Set rstMain=Nothing

%>

 

<BR>

<table bgcolor="#EFEFEF" cellpadding=2 width="100%">

<tr>

<td width=100%>

<p align=center><a align=center href="pesqBDAF.asp"><font face="Verdana" size="3">Nova consulta</font></a></p>

</td>

</tr>

</table><p>

[/tr]

[explore 3]

Coloca um Response.write:

ASP [/tr][tr]

Response.Write ("Pesquisando")

[/tr]

 

Falo!!!!!!!!!!

[Alex Hernandes 0]

da uma pesquisada sobre Response.Flushvai te ajudar a obter o resultado esperado.flw!

Response.Flush + JavaScript + Divhahahaha, assim fica show.da até pra colocar 10%...99%... completo.hehehehe.