Preciso utilizar o VBscript em uma aplicação que roda no IE, porem estou com dificuldade.
Irei colocar abaixo um script simples que funciona normalmente.
A ideia do script abaixo é que enquando o usuario está em frente a tela aguardando apareça uma imagem em tela informando isso (loading...)
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<style>
#loading{
text-align:center;
position:absolute;
top:6%;
left:10%;
font-family::Arial, Helvetica, sans-serif;
font-size:12px;
font-weight:bold;
color:#666666;
}
</style>
<title>:::...Digite o Numero - Gerando o numero de 0 até o numero digitado...:::</title>
</head>
<body>
<script language="vbscript">
Dim modelo
varNumero = InputBox("Entre com o numero: ")
if varNumero <> "" then
//document.write("<div id='loading'><img src='figura/loading.gif' boder=0><br />Gerando os numeros de 0 ...</div>")
varLoadingIMG = "<div id='loading'><img src='figura/loading.gif' boder=0><br />Gerando os numeros de 0 ...</div>"
document.write(varLoadingIMG)
For i = 1 to varNumero
MsgBox "Numero"& i
Next
Mens = MsgBox("Concluido!",64,"Mensagem")
End if
</script>
</body>
</html>
Abaixo segue a minha aplicação de verdade, porem não funciona porque o ASP executa primeiro a SUB e assim não exibindo a imagem na tela informando para o usuario que as etiquetas estão sendo geradas.
<!-----#include file="includes/Extras.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Gera Etiqueta</title>
<style>
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #F3FBFE;
}
div{
text-align:center;
margin:auto;
font-family:tahoma;
font-size:16px;
padding-top:20%;
color:#0099CC;
font-weight:bold;
}
</style>
<script>
function carregaIMG(){
// Pré-Carrega a imagem da ampulheta
amp = new Image();
amp.src = "figuras/ocupado_42.gif";
}
</script>
</head>
<body onload="carregaIMG()">
<div><img src="figuras/ocupado_42.gif" height="40" /><br /><p>Gerando Etiquetas...</p></div>
<script language="vbscript">
Dim modelo
modelo = InputBox("Digite o modelo da Etiqueta:","GEtiqueta","Pimaco 6081/6181/6281 Branca")
if modelo <> "" then
//gEtiqueta "SELECT top 10 nome, endereco, bairro, cidade, estado, cep FROM cadastro", ""&modelo&""
gEtiqueta "<%=session("filtroSQL") %>", ""&modelo&""
Mens = MsgBox("Concluido!",64,"Mensagem")
Set wrd = CreateObject("Word.Application")
wrd.Visible = True
wrd.Documents.Open "C:\etiquetas.doc"
Set wrd = Nothing
window.close
else
Mens = MsgBox("Precisa informar um modelo de etiqueta!",48,"Atenção")
window.close
end if
</script>
</body>
</html>
Desde já agradeço.
