Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

regitronic

Mensagem de aguarde

Por , em ASP Clássico

Recommended Posts

regitronic    0

regitronic
Postado

Pessoal, Boa Tarde,

 

Estou tentando fazer uma mensagem de aguarde mas não estou conseguindo.

Olha so tenho uma pagina que tem um botão de enviar, ao clicar em enviar ele passa para uma proxima pagina com ums parametros por querystring,

nessa proxima pagina é uma pagina para envio de e-mail por Aspemail, então demora um pouco para o servidor processar a pagina inteira pois são enviados dois e-mails diferentes para dois destinatarios diferentes. Depois que a pagina é processada e os e-mails são enviados, o usuario e redirecionado para a pagina anterior então exibe a mensagem OK: E-Mail enviado, ou ERRO: O sistema não pode completar a operação.

 

Em resumo queria que ficasse uma mensagem de aguarde enquanto o e-mail e processado.

Pagina de envio de e-mail:

<!--#include file="conecta.asp"-->
<%
pedido = request.Form("pedido")
vendedor = request.QueryString("nome")
login = request.QueryString("nome")

set rs = conexao.execute("SELECT * FROM pedidos WHERE num_pedido="&pedido&" AND vendedor='"&vendedor&"'")
cliente = rs.Fields("cod_cliente").Value
produto = rs.Fields("codigo").Value
set rc = conexao.execute("SELECT * FROM clientes WHERE codigo='"&cliente&"'")
set rw = conexao.execute("SELECT * FROM pedidos_arquivados WHERE pedido='"&pedido&"'")
soma = 0

corpo = corpo&"<body>"
corpo = corpo&"<font face=""Verdana, Arial, Helvetica, sans-serif"">"
corpo = corpo&"<table width=""800"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td><img src=""index_top.JPG"" width=""800"" height=""179"" /></td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td> </td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td align=""center""><font size=""1""><b>OBRIGADO POR COMPRAR NA REGITRONIC</b></font></td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td><font size=""1"">Nº DO PEDIDO: "&rw("pedido")&" </font></td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td><font size=""1"">TIPO DE PEDIDO:"&rw("tipo")&"</font></td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td> </td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td><font size=""1""><strong>DADOS DO CLIENTE: </strong></font></td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td><table width=""100%"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">"
corpo = corpo&"      <tr>"
corpo = corpo&"        <td width=""15%""><div align=""right""><font size=""1"">NOME: </font></div></td>"
corpo = corpo&"        <td width=""33%"">"&rc("nome")&"</td>"
corpo = corpo&"        <td width=""27%""><div align=""right""><font size=""1"">CEP: </font></div></td>"
corpo = corpo&"        <td width=""25%"">"&rc("cep")&"</td>"
corpo = corpo&"        </tr>"
corpo = corpo&"      <tr>"
corpo = corpo&"        <td><div align=""right""><font size=""1"">CODIGO: </font></div></td>"
corpo = corpo&"        <td>"&rc("codigo")&"</td>"
corpo = corpo&"        <td><div align=""right""><font size=""1"">CNPJ: </font></div></td>"
corpo = corpo&"        <td>"&rc("cnpj")&"</td>"
corpo = corpo&"        </tr>"
corpo = corpo&"      <tr>"
corpo = corpo&"        <td><div align=""right""><font size=""1"">CIDADE: </font></div></td>"
corpo = corpo&"        <td>"&rc("cidade")&"</td>"
corpo = corpo&"        <td><div align=""right""><font size=""1"">IE: </font></div></td>"
corpo = corpo&"        <td>"&rc("ie")&"</td>"
corpo = corpo&"        </tr>"
corpo = corpo&"      <tr>"
corpo = corpo&"        <td><div align=""right""><font size=""1"">MUNICIPIO: </font></div></td>"
corpo = corpo&"        <td>"&rc("municipio")&"</td>"
corpo = corpo&"        <td><div align=""right""><font size=""1"">FONE: </font></div></td>"
corpo = corpo&"        <td>"&rc("fone")&"</td>"
corpo = corpo&"        </tr>"
corpo = corpo&"      <tr>"
corpo = corpo&"        <td><div align=""right""><font size=""1"">ENDERECO: </font></div></td>"
corpo = corpo&"        <td>"&rc("endereco")&"</td>"
corpo = corpo&"        <td><div align=""right""><font size=""1"">E-MAIL: </font></div></td>"
corpo = corpo&"        <td>"&rw("mail")&"</td>"
corpo = corpo&"      </tr>"
corpo = corpo&"      <tr>"
corpo = corpo&"        <td><div align=""right""><font size=""1"">BAIRRO: </font></div></td>"
corpo = corpo&"        <td>"&rc("bairro")&"</td>"
corpo = corpo&"        <td><div align=""right""><font size=""1"">PAGAMENTO: </font></div></td>"
corpo = corpo&"        <td>"&rw("pag")&"</td>"
corpo = corpo&"      </tr>"
corpo = corpo&"    </table></td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td> </td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td><font size=""1""><b>PEDIDO:</b></font></td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td><table width=""100%"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">"
corpo = corpo&"      <tr>"
corpo = corpo&"        <td width=""17%""><div align=""center"">CODIGO</div></td>"
corpo = corpo&"        <td width=""51%""><div align=""center"">NOME</div></td>"
corpo = corpo&"        <td width=""18%""><div align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"">QUANTIDADE</font></div></td>"
corpo = corpo&"        <td width=""14%""><div align=""center"">VALOR</div></td>"
corpo = corpo&"      </tr>"
do while not rs.eof
soma = soma + rs("valor")*rs("quantidade")
preco = formatcurrency(rs("valor"))
corpo = corpo&"      <tr>"
corpo = corpo&"        <td>"&rs("codigo")&"</td>"
corpo = corpo&"        <td>"&rs("nome")&"</td>"
corpo = corpo&"        <td>"&rs("quantidade")&"</td>"
corpo = corpo&"        <td>"&preco&"</td>"
corpo = corpo&"      </tr>"
rs.movenext
	  loop
somatotal = formatcurrency(soma)
corpo = corpo&"      <tr>"
corpo = corpo&"        <td colspan=""3""><div align=""right""><strong>TOTAL: </strong></div></td>"
corpo = corpo&"        <td>"&somatotal&" </td>"
corpo = corpo&"      </tr>"      
corpo = corpo&"    </table></td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td> </td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td>OBS:"&rw("obs")&"</td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td> </td>"
corpo = corpo&"  </tr>"
corpo = corpo&"</table>"
corpo = corpo&"</font>"
corpo = corpo&"</body>"


set mail = server.createObject("Persits.MailSender")
mail.host = "host"
mail.username = "usuario"
mail.password = "senha"
mail.from = "de"
mail.fromname = "Nome"
mail.addAddress rw("mail")
strPath = Server.MapPath(".")
Mail.AddAttachment strPath & "\menus\index_top.JPG"
mail.Subject = "O Vendedor "&login&" Enviou seu pedido"
Mail.Body = corpo
mail.ishtml = true
mail.send
if Err ><0 then
response.write "Erro, não pode completar a operação"
else
set mail = nothing
set rs = nothing
set rc = nothing
set rw = nothing
'Fim do primeiro email'



set rs = conexao.execute("SELECT * FROM pedidos WHERE num_pedido="&pedido&" AND vendedor='"&vendedor&"'")
cliente = rs.Fields("cod_cliente").Value
set rc = conexao.execute("SELECT * FROM clientes WHERE codigo='"&cliente&"'")
set rw = conexao.execute("SELECT * FROM pedidos_arquivados WHERE pedido='"&pedido&"'")
set rss = conexao.execute("SELECT * FROM area_restrita WHERE login='"&request.QueryString("nome")&"'")
tabela = rss.Fields("tabela").Value

soma2 = 0
total = 0

corpoo = corpoo&"<body>"
corpoo = corpoo&"<font face=""Verdana, Arial, Helvetica, sans-serif"">"
corpoo = corpoo&"<table width=""800"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td><img src=""index_top.JPG"" width=""800"" height=""179"" /></td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td> </td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td align=""center""><font size=""1""><b>OBRIGADO POR COMPRAR NA REGITRONIC</b></font></td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td><font size=""1"">Nº DO PEDIDO: "&rw("pedido")&" </font></td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td><font size=""1"">TIPO DE PEDIDO:"&rw("tipo")&"</font></td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td> </td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td><font size=""1""><strong>DADOS DO CLIENTE: </strong></font></td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td><table width=""90%"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">"
corpoo = corpoo&"      <tr>"
corpoo = corpoo&"        <td width=""15%""><div align=""right""><font size=""1"">NOME: </font></div></td>"
corpoo = corpoo&"        <td width=""28%"">"&rc("nome")&"</td>"
corpoo = corpoo&"        <td width=""14%""><div align=""right""><font size=""1"">CEP: </font></div></td>"
corpoo = corpoo&"        <td width=""43%"">"&rc("cep")&"</td>"
corpoo = corpoo&"        </tr>"
corpoo = corpoo&"      <tr>"
corpoo = corpoo&"        <td><div align=""right""><font size=""1"">CODIGO: </font></div></td>"
corpoo = corpoo&"        <td>"&rc("codigo")&"</td>"
corpoo = corpoo&"        <td><div align=""right""><font size=""1"">CNPJ: </font></div></td>"
corpoo = corpoo&"        <td>"&rc("cnpj")&"</td>"
corpoo = corpoo&"        </tr>"
corpoo = corpoo&"      <tr>"
corpoo = corpoo&"        <td><div align=""right""><font size=""1"">CIDADE: </font></div></td>"
corpoo = corpoo&"        <td>"&rc("cidade")&"</td>"
corpoo = corpoo&"        <td><div align=""right""><font size=""1"">IE: </font></div></td>"
corpoo = corpoo&"        <td>"&rc("ie")&"</td>"
corpoo = corpoo&"        </tr>"
corpoo = corpoo&"      <tr>"
corpoo = corpoo&"        <td><div align=""right""><font size=""1"">MUNICIPIO: </font></div></td>"
corpoo = corpoo&"        <td>"&rc("municipio")&"</td>"
corpoo = corpoo&"        <td><div align=""right""><font size=""1"">FONE: </font></div></td>"
corpoo = corpoo&"        <td>"&rc("fone")&"</td>"
corpoo = corpoo&"        </tr>"
corpoo = corpoo&"      <tr>"
corpoo = corpoo&"        <td><div align=""right""><font size=""1"">ENDERECO: </font></div></td>"
corpoo = corpoo&"        <td>"&rc("endereco")&"</td>"
corpoo = corpoo&"        <td><div align=""right""><font size=""1"">E-MAIL: </font></div></td>"
corpoo = corpoo&"        <td>"&rw("mail")&"</td>"
corpoo = corpoo&"      </tr>"
corpoo = corpoo&"      <tr>"
corpoo = corpoo&"        <td><div align=""right""><font size=""1"">BAIRRO: </font></div></td>"
corpoo = corpoo&"        <td>"&rc("bairro")&"</td>"
corpoo = corpoo&"        <td><div align=""right""><font size=""1"">PAGAMENTO: </font></div></td>"
corpoo = corpoo&"        <td>"&rw("pag")&"</td>"
corpoo = corpoo&"      </tr>"
corpoo = corpoo&"    </table></td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td> </td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td><font size=""1""><b>PEDIDO:</b></font></td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td><table width=""90%"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">"
corpoo = corpoo&"      <tr>"
corpoo = corpoo&"        <td width=""11%""><font size=""1""><div align=""center"">CODIGO</div></font></td>"
corpoo = corpoo&"        <td width=""42%""><font size=""1""><div align=""center"">NOME</div></font></td>"
corpoo = corpoo&"        <td width=""18%""><font size=""1""><div align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"">QUANTIDADE</font></div></font></td>"
corpoo = corpoo&"        <td width=""15%""><font size=""1""><div align=""center"">VALOR VENDA</div></font></td>"
corpoo = corpoo&"        <td width=""14%""><font size=""1""><div align=""center"">VALOR TABELA</div></font></td>"
corpoo = corpoo&"      </tr>"

do while not rs.eof

prod = rs.Fields("codigo").Value
set sql = conexao.execute("SELECT * FROM "&tabela&" WHERE cod_loja='"∏&"'")
soma2 = soma2 + rs("valor")*rs("quantidade")
total = total + rs("quantidade")*sql("valor")
preco2 = formatcurrency(rs("valor"))

corpoo = corpoo&"      <tr>"
corpoo = corpoo&"        <td><font size=""3"">"&rs("codigo")&"</font></td>"
corpoo = corpoo&"        <td><font size=""3"">"&rs("nome")&"</font></td>"
corpoo = corpoo&"        <td><font size=""3"">"&rs("quantidade")&"</font></td>"
corpoo = corpoo&"        <td><font size=""3"">"&preco2&"</font></td>"
corpoo = corpoo&"        <td><font size=""3"">"&sql("valor")&"</font></td>"
corpoo = corpoo&"      </tr>"

rs.movenext
	  loop

somatotal2 = formatcurrency(soma)
total = formatcurrency(total)

corpoo = corpoo&"      <tr>"
corpoo = corpoo&"        <td colspan=""3""><div align=""right""><strong>TOTAL: </strong></div></td>"
corpoo = corpoo&"        <td>"&somatotal2&" </td>"
corpoo = corpoo&"        <td>"&total&" </td>"
corpoo = corpoo&"      </tr>"      
corpoo = corpoo&"    </table></td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td> </td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td>OBS:"&rw("obs")&"</td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"  <tr>"
corpoo = corpoo&"    <td> </td>"
corpoo = corpoo&"  </tr>"
corpoo = corpoo&"</table>"
corpoo = corpoo&"</font>"
corpoo = corpoo&"</body>"

set mail = server.createObject("Persits.MailSender")
mail.host = "servidor"
mail.username = "usuario"
mail.password = "senha"
mail.from = "e-mail"
mail.fromname = "nome"
mail.addAddress "para"
strPath = Server.MapPath(".")
Mail.AddAttachment strPath & "\menus\index_top.JPG"
mail.Subject = "O Vendedor "&login&" Enviou seu pedido"
Mail.Body = corpoo
mail.ishtml = true
mail.send
if Err ><0 then
response.write "Erro, não pode completar a operação"
else
set ri = conexao.execute("INSERT INTO controle_acesso (usuario, data, hora, pagina) VALUES ('"&request.QueryString("nome")&"', '"&date&"', '"&time&"', 'ENVIOU PEDIDO ARQUIVADO')")
set mail = nothing
set rs = nothing
set rc = nothing
set rw = nothing
set ri = nothing
end if
end if
response.Redirect("update_arquiv.asp?nome="&request.QueryString("nome")&"&msg=OK: Pedido "&pedido&" enviado com sucesso")
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

saloeric    1

saloeric
Postado

Isso pode fazer no próprio botão de enviar

 



<input onclick="this.value='Aguarde por favor...'" type="submit" value="Enviar" />

não testei mas uma ideia poderia ser essa.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito