Prof. Jonatas
-
Total de itens
221 -
Registro em
-
Última visita
Posts postados por Prof. Jonatas
-
-
Então bareta, enquanto a este assunto consegui resolver com o POST no próprio GET URL.
Ficou assim:
getURL("cadastro3.asp", 0,"POST")
valeu pela força mano, brigadão mesmo ! :rolleyes:
valeu !!!!
É nóis !!! :ninja:
-
Bom dia Galera,
Não to conseguindo de jeito nenhum mandar uma variável para uma página ASP e que esta mesma página seja executada com a variável como um valor.
Ou seja, quando eu digito o nome no login do flash, eu quero abrir a página de cadastro de clientes listando apenas o conteúdo deste nome que eu digitei.
Na hora de selecionar a tabela, vou colocar um exemplo abaixo que funciona perfeitamente sem a interação com o flash:
nome = "Fulano" RS_Max.Open "SELECT * FROM servicos where cliente= '"&nome&"' ", Conn
Ou seja na hora que abro a página funciona certinho, ele me mostra todos os serviços do cliente " fulano ". Mas quando eu peço para abrir buscando esta variável da página anterior que está em flash não rola, no código ASP ta assim:RS_Max.Open "SELECT * FROM servicos where cliente='" & request("nome") & "'", Conn
Ao meu ver este código está correto, mas não consigo mandar a variável e executar a página dando o comando pelo flash. A ação do meu botão no flash é esta:if (success) { if (this.varAccess == "ok") { loginMessage.text = "Acesso Permitido"; nome = username_field.text; senha = password_field.text; // (1º ou 2º opção)
Aí eu tenho dúvida em qual ação devo usar para mandar, já tentei usar as duas formas a seguir e nenhuma funciona: 1º opçãoloadVariablesNum("cadastro2.asp", 0,"POST")
Esta aparece na barra de status que está carregando os dados, acho q envia as variáveis mas continua na mesma página. 2º opçãogetURL("cadastro2.asp")
Esta abre a página cadastro2, mas ela fica em branco ou seja é como se a variável nome não tivesse vindo.
Já tentei usar até as 2 opções, primeiro o lad e depois o geturl, rs, também não rola. :mellow:
Galera alguém sabe me dizer oque estou fazendo de errado!!!?????? Eu acho que não é nenhuma destas duas ações mas eu não sei qual éh
Alguémmmm pode me ajudarrrr por favor !????????? :blink:
valeu galera, té +
-
Bom dia Galera,
Não to conseguindo de jeito nenhum mandar uma variável para uma página ASP e que esta mesma página seja executada com a variável como um valor.
Ou seja, quando eu digito o nome no login do flash, eu quero abrir a página de cadastro de clientes listando apenas o conteúdo deste nome que eu digitei.
Na hora de selecionar a tabela, vou colocar um exemplo abaixo que funciona perfeitamente sem a interação com o flash:
nome = "Fulano" RS_Max.Open "SELECT * FROM servicos where cliente= '"&nome&"' ", Conn
Ou seja na hora que abro a página funciona certinho, ele me mostra todos os serviços do cliente " fulano ". Mas quando eu peço para abrir buscando esta variável da página anterior que está em flash não rola, no código ASP ta assim:RS_Max.Open "SELECT * FROM servicos where cliente='" & request("nome") & "'", Conn
Ao meu ver este código está correto, mas não consigo mandar a variável e executar a página dando o comando pelo flash. A ação do meu botão no flash é esta:if (success) { if (this.varAccess == "ok") { loginMessage.text = "Acesso Permitido"; nome = username_field.text; senha = password_field.text; // (1º ou 2º opção)
Aí eu tenho dúvida em qual ação devo usar para mandar, já tentei usar as duas formas a seguir e nenhuma funciona: 1º opçãoloadVariablesNum("cadastro2.asp", 0,"POST")
Esta aparece na barra de status que está carregando os dados, acho q envia as variáveis mas continua na mesma página. 2º opçãogetURL("cadastro2.asp")
Esta abre a página cadastro2, mas ela fica em branco ou seja é como se a variável nome não tivesse vindo.
Já tentei usar até as 2 opções, primeiro o lad e depois o geturl, rs, também não rola. :mellow:
Galera alguém sabe me dizer oque estou fazendo de errado!!!?????? Eu acho que não é nenhuma destas duas ações mas eu não sei qual éh
Alguémmmm pode me ajudarrrr por favor !????????? :blink:
valeu galera, té +
-
Olá Bareta,
No caso onde eu mudo essa parada ?????
Eu pesquisei na internet sobre o método cdosys e todos aparecem igual ao meu atual:
Set MyMail = CreateObject("CDO.Message")
Detalhe: a variável não está vazia porque a função MyMail.ReplyTo = MyEmail funciona perfeitamente.
Se clicar em responder vai para o email certo, então significa que a informação ta chegando néh!?
E sobre o ASP enviar uma resposta para o flash executar uma ação, alguma idéia ?????
Abçs, valeu pela força
-
Boa tarde galera, tenho um código em ASP que envia um e-mail com os dados preenchidos de um formulário em flash.
Utilizo o método CDO.
1º
Minha dúvida é a seguinte, porque eu não consigo colocar como remetente a pessoa que preencheu o formulário ????
No caso seria a variável : MyEmail
Quando coloco: MyMail.From = MyEmail
O Email não é enviado, não funciona mais.
Para burlar este problema eu coloquei meu próprio email como remetente, aí funciona, mas não é correto meu cliente ta questionando porque não chega como se tivesse enviado pela pessoa q preencheu o formulário.
Segue abaixo o código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%
'First lets Dim all the variables we need
Dim MyNome
Dim MyEmail
Dim MyTelefone
Dim MyMessage
Dim MyBody
MyNome = Request.Form("nome")
MyEmail = Request.Form("email")
MyTelefone = Request.Form("telefone")
MyMessage = Request.Form("mensagem")
MyBody = MyBody & "Nome: "& MyNome & vbcrlf
MyBody = MyBody & "Email: "& MyEmail & vbcrlf
MyBody = MyBody & "Telefone: "& MyTelefone & vbcrlf
MyBody = MyBody & "Mensagem: "& MyMessage & vbcrlf & vbcrlf
Set MyMail = CreateObject("CDO.Message")
MyMail.From = "i9ideias@hotmail.com"
MyMail.To = "email do cliente"
MyMail.ReplyTo = MyEmail
MyMail.Subject = "Contato pelo site, danicardoso.com"
MyMail.TextBody = MyBody
MyMail.Send
Set MyMail= nothing
Response.Write "contact0.mess=Thank you, " & MyNome & "."
%>
2º
Minha outra dúvida é, como disparar uma chamada de ação no flash.
No caso a unica coisa q acontece é que no campo mess paraece, Thank you, nome da pessoa.
Gostaria de enviar para o flash alguma coisa para o flash execultar qualquer ação, aí lá dentro do flash eu resolvo o que fazer com esta resposta porque eu quero limpar os campos após o envio ou fazer com que o botão fique inativo, qualquer coisa.
A questão é que se eu repetir o comando Response.Write mandando tipo um "oK" para outro campo, este ok entra dentro do mesmo campo mess.
Me dando uma resposta do tipo:
Thank you, nome da pessoa. contact0.mess2=ok :blink:
Fica tudo junto.
Alguém sabe me dizer como faço para disparar um evento lá no flash após o envio ??????? :wacko:
Aguardo respostas.
valeu galera, té +
-
Resolvido !
Ao invés de eu carregar as imagens em um mc já existente no caso "alvo", eu carrego em um novo mc criado em as com "createEmptyMovieClip".
Aí carrega certinho independente do ajuste da janela, se está restaurada, maximizada e etc....
Até + :rolleyes:
-
Galera a função de Resize na imagem estava errada, não calculava direito a proporção.
Havia um outro problema que é quando a imagem estava ficava menor que 80% de largura da tela e altura maior, a altura ultrapassava a tela, oque não é o objetivo, independente da imagem q abrir eu quero que sobre sempre uma margem de segurança a imagem não pode ultrapassar a mesma.
Segue abaixo apenas a função corrigida, há me ajudem no item de cima por favooorrrr.... quando dou um resize antes de qualquer coisa as imagens não carregammmmm !!!!:::
function minhaFuncao(){largorig = alvo._width
altorig = alvo._height
if(largorig>=altorig){
//tamanho
largdese = calc1*80
largcalcp = 90/largdese
altfinal = (altorig*largdese)/largorig
if(altfinal>sh){
//tamanho
altdese = calc2*80
altcalcp = 90/altdese
largfinal = (largorig*altdese)/altorig
alvo._height = altdese
alvo._width = largfinal
//alinhamento
calc3 = sh - altdese
resultado = calc3 / 2
alinhay = sh - sh + resultado
calc4 = sw - largfinal
alinhax = calc2*10
resultado2 = calc4 / 2
alinhax = sw - sw + resultado2
alvo._x = alinhax
alvo._y = alinhay
}else{
alvo._width = largdese
alvo._height = altfinal
//alinhamento
calc3 = sh - altfinal
resultado = calc3 / 2
alinhay = sh - sh + resultado
alinhax = calc1*10
alvo._x = alinhax
alvo._y = alinhay
}
}
else
{
//tamanho
altdese = calc2*80
altcalcp = 90/altdese
largfinal = (largorig*altdese)/altorig
alvo._height = altdese
alvo._width = largfinal
//alinhamento
calc3 = sw - largfinal
resultado = calc3 / 2
alinhax = sw - sw + resultado
alinhay = calc2*10
alvo._x = alinhax
alvo._y = alinhay
}
}
valeu galera, continuo aguardando respostas!!!!
-
Galera,
Montei um script que carrega as imagens e ajusta de acordo com o tamanho da tela do usuário.
Se o usuário der um resize na tela depois que a imagem já está aberta, legal, ele executa a função e funciona certinho.
Mas acontece o seguinte, se o usuário dá um resize primeiro e depois abre a imagem a mesma não carrega.
Não consigo corrigir este erro nem por reza braba, para visualizar o exemplo segue link: http://www.i9ideias.com.br/dani3
Segue abaixo o código, lembrando que a função que ajusta o tamanho da imagem chama-se: minhaFuncao() a mesma está sendo chamada dentro do resize.
Eu pesso para a imagem ser aberta fora do palco na função acbt(), em sw e sh e dou um setTimeout, porque a imagem quando é carregada ela vem com os tamanhos 0 (zero), só depois de um tempo ela fica com o tamanho original, então eu do um tempo de 3 mile segundos pra execultar a função minhaFuncao() que reajusta o tamanho da imagem e centraliza.
Segue abaixo o código:
Stage.align = "TL";Stage.scaleMode = "noScale";
var logo:MovieClip;
var linhav:MovieClip;
var menu:MovieClip;
var rodape:MovieClip;
var calcmenu:Number;
var abertura:MovieClip;
var sw:Number;
var sh:Number;
var alvo:MovieClip;
var fechar:MovieClip;
var bt02:MovieClip;
var fd:MovieClip;
var lk:String;
sw = Stage.width;
sh = Stage.height;
calc1 = sw/100
calc2 = sh/100
fd._x = 0
fd._y = 0
fd._width = sw
fd._height = sh
fd.onPress = function(){}
fd.useHandCursor = false;
fd._visible=false;
fechar._width = 50
fechar._height = fechar._width / 1.3
fechar._x = sw - fechar._width;
fechar._y = sh - sh;
fechar._visible = false;
bt01._visible = false;
bt02._visible = false;
logo._x = sw - sw + logo._width / 1.3
logo._y = sh - sh + logo._height / 1.3
linhav._x = logo._x + logo._width / 1.3
linhav._y = 0
linhav._height = sh-sh/9
linhav._width = 0.1
calcmenu = linhav._x = logo._x + logo._width / 1.3
abertura._x = linhav._x + 50
abertura._y = logo._y
abertura._width = sw - calcmenu-100
largura = abertura._width
abertura._height = largura/1.4
menu._x = linhav._x
menu._y = sh / 2
rodape._x = sw/2
rodape._y = sh - 10
fechar.onPress = function(){
alvo.unloadMovie()
fd.gotoAndPlay(11)
this._visible = false;
}
bt02.onPress = function(){
lk = "3.jpg"
acbt()
intervalo == setTimeout(minhaFuncao, 1000);
}
bt01.onPress = function(){
lk = "4.jpg"
acbt()
intervalo == setTimeout(minhaFuncao, 300);
}
function acbt(){
alvo.loadMovie(lk)
alvo._x = sw
alvo._y = sh
fechar._visible = true;
fd._visible=true;
fd.gotoAndPlay(2)
}
function minhaFuncao() {
//trace(alvo._width);
if(alvo._width>=alvo._height){
alvo._x = calc1*20
alvo._width = calc1*60
alvo._height = alvo._width / 1.3
calc3 = sh - alvo._height
resultado = calc3 / 2
alvo._y = sh - sh + resultado
}
else
{
alvo._y = calc2*10
alvo._height = calc2*80
alvo._width = alvo._height / 1.3
calc4 = sw - alvo._width
resultado2 = calc4 / 2
alvo._x = sw - sw + resultado2
}
fechar._x = sw - fechar._width;
fechar._y = sh - sh;
}
sizeListener = new Object();
sizeListener.onResize = function(){
var largura:Number
sw = Stage.width;
sh = Stage.height;
logo._x = sw - sw + logo._width / 1.3
logo._y = sh - sh + logo._height / 1.3
linhav._x = logo._x + logo._width / 1.3
linhav._y = 0
linhav._height = sh-sh/9
linhav._width = 0.1
menu._x = linhav._x
menu._y = sh / 2
rodape._x = sw/2
rodape._y = sh - 10
calcmenu = linhav._x = logo._x + logo._width / 1.3
abertura._x = linhav._x + 50
abertura._y = logo._y
abertura._width = sw - calcmenu-100
largura = abertura._width
abertura._height = largura/1.4
calc1 = sw/100
calc2 = sh/100
fd._x = 0
fd._y = 0
fd._width = sw
fd._height = sh
fd.useHandCursor = false;
minhaFuncao()
}
Stage.addListener(sizeListener);
Alguém saberia me dizer por favor porque se eu der um resize antes de abrir a imagem ela não carrega !!!??????? :blink:
valeu galera.
Este código só tem este pauzinho, serve para alguém que precise trabalhar com site 100% da tela e imagens centralizadas.
No meu conceito ta bem elaborado, está livre pra copiarem aí, bom proveito.
E se possível, me ajudemmmmm por favoooooorrrrr !!!!!!!!! :rolleyes:
Aguardo respostas.
-
-
Boa tarde Galera,
Estou tentando fazer um banco de Imagens em AS3.
A lógica q estou usando é a seguinte:
Se o código encontrar a img 1 ele dá um tempo e localiza a 2, quando eu fiz sem o tempo, ele localiza automático e não na ordem como está o código.
Ou seja se ele não carregar o botão 1 não tem como ele carregar o dois, porque um usa a posição do outro.
Queria saber se há outra forma de fazer este código.
Lógica
Se a imagem 1 for localizada, mostrar o botão 1.
Se a imagem 2 for localizada, mostrar botão 2 acima do botão 1.
E assim vai. :wacko:
Este código q eu fiz está me dando muito problemas:
O primeiro é q eu não consigo brecar a leitura do código se ele não encontrar a imagem X.
A segunda é que eu preciso das as ações no botão para carregar a imagem, mas a anterior que estava sendo exibida precisa sumir ( descarregar )
Segue abaixo o código para que entendam oque eu expliquei, se alguém souber um outro jeito para eu fazer esta parada eu agradeço muito, segue:
package {import flash.display.MovieClip;
import fl.motion.Color
import flash.geom.*
import flash.display.*
import flash.events.*
import flash.net.*
import flash.ui.*
import flash.utils.*
import flash.text.*
import flash.filters.*;
import flash.media.*
import flash.errors.IOError;
import flash.events.IOErrorEvent;
public class main extends MovieClip {
public var alvo:alvomc = new alvomc()
public var um:ummc = new ummc()
public var dois:doismc = new doismc()
public var tres:tresmc = new tresmc()
public var quatro:quatromc = new quatromc()
public var cinco:cincomc = new cincomc()
public var sw:Number;
public var sh:Number;
public var loader1:Loader = new Loader();
public var loader2:Loader = new Loader();
public var loader3:Loader = new Loader();
public var loader4:Loader = new Loader();
public var loader5:Loader = new Loader();
public var temporizador:Timer = new Timer(100);
public function main() {
loader1.load(new URLRequest("imgs/1.jpg"));
loader1.contentLoaderInfo.addEventListener(Event.COMPLETE, c1)
temporizador.addEventListener(TimerEvent.TIMER, car2);
temporizador.start();
function car2(){
temporizador.stop();
loader2.load(new URLRequest("imgs/2.jpg"));
loader2.contentLoaderInfo.addEventListener(Event.COMPLETE, c2)
loader2.contentLoaderInfo.addEventListener(IOErrorEvent.IO_ERROR, carreganot)
temporizador.addEventListener(TimerEvent.TIMER, car3);
temporizador.start();
}
function car3(){
temporizador.stop();
loader3.load(new URLRequest("imgs/3.jpg"));
loader3.contentLoaderInfo.addEventListener(Event.COMPLETE, c3)
temporizador.addEventListener(TimerEvent.TIMER, car4);
temporizador.start();
}
function car4(){
temporizador.stop();
loader4.load(new URLRequest("imgs/4.jpg"));
loader4.contentLoaderInfo.addEventListener(Event.COMPLETE, c4)
//temporizador.addEventListener(TimerEvent.TIMER, car4);
temporizador.stop();
}
//loader4.load(new URLRequest("imgs/4.jpg"));
//loader4.contentLoaderInfo.addEventListener(Event.COMPLETE, c4)
//loader5.contentLoaderInfo.addEventListener(IOErrorEvent.IO_ERROR, carreganot)
sw = stage.stageWidth;
sh = stage.stageHeight;
addChild(alvo)
function c1(e:Event):void
{
addChild(um)
um.x = sw - um.width - 10
um.y = sh - um.height - 10
trace("c1")
}
function c2(e:Event):void
{
addChild(dois)
dois.x = um.x
dois.y = um.y - um.height - 10
trace("c2")
}
function c3(e:Event):void
{
addChild(tres)
tres.x = um.x
tres.y = dois.y - dois.height - 10
trace("c3")
}
function c4(e:Event):void
{
addChild(quatro)
quatro.x = um.x
quatro.y = tres.y - tres.height - 10
trace("c4")
}
/*
addChild(dois)
dois.x = um.x
dois.y = um.y - dois.height - 10
*/
alvo.addChild(loader1)
um.addEventListener(MouseEvent.CLICK, clic1)
dois.addEventListener(MouseEvent.CLICK, clic2)
tres.addEventListener(MouseEvent.CLICK, clic3)
}
public function carreganot(e:Event):void
{
trace("teste")
//loader2.return false;
}
public function clic1(e:Event):void
{
alvo.addChild(loader1)
}
public function clic2(e:Event):void
{
//limpabts()
alvo.addChild(loader2)
}
public function clic3(e:Event):void
{
alvo.addChild(loader3)
}
public function limpabts()
{
alvo.removeChild(loader1)
alvo.removeChild(loader2)
}
}
}
Aguardo galera, por favor me ajudem. :wub:
Este é um banco de imagem que preciso fazer meio urgente.
Abçs
-
Resolvido,
Coloquei a imagem dentro de um mc e deu tudo certo, segue o código:
package {import flash.display.MovieClip;
import fl.motion.Color
import flash.geom.*
import flash.display.*
import flash.events.*
import flash.net.*
import flash.ui.*
import flash.utils.*
import flash.text.*
import flash.filters.*;
import flash.media.*;
public class main2 extends MovieClip {
public function main2() {
//variaveis
var fundo:container = new container();
var sw:Number;
var sh:Number;
var loader:Loader = new Loader();
stage.scaleMode = StageScaleMode.NO_SCALE;
stage.align = StageAlign.TOP_LEFT
//add objetos ao palco
addChild(fundo);
fundo.addChild(loader);
// valores as variáveis
fundo.x = 0;
fundo.y = 0;
loader.load(new URLRequest("02.jpg"));
loader.contentLoaderInfo.addEventListener(Event.INIT, onLoadInit00);
stage.addEventListener(Event.RESIZE, resizepalco);
// oque execulta quando a imagem é carregada
function onLoadInit00(Event){
sw = stage.stageWidth
sh = stage.stageHeight
loader.width = sw
loader.height = sh
/*
trace(loader.width)
trace(loader.height)
trace(sw)
trace(sh)
*/
trace(loader.scaleX)
}
function resizepalco(e):void
{
onLoadInit00()
}
}
}
}
-
Simples assim como no título:
sw = stage.stageWidth
carregador.width = sw
Algém sabe me dizer porque não funciona ????? Quando dou um trace para ver o tamanho da imagem q foi carregada ele me retorna como zero. :angry:
A parte em que eu tento colocar a imagem com o tamanho do palco está comentado pois quando eu deixo no As a imagem não aparece.
Segue abaixo meu código para verem:
package {import flash.display.MovieClip;
import fl.motion.Color
import flash.geom.*
import flash.display.*
import flash.events.*
import flash.net.*
import flash.ui.*
import flash.utils.*
import flash.text.*
import flash.filters.*;
import flash.media.*;
public class main extends MovieClip {
public function main() {
var sw:Number;
var sh:Number;
var carregador:Loader = new Loader();
var arquivo:String = "01.jpg";
var requisicao:URLRequest = new URLRequest(arquivo);
stage.scaleMode = "noScale";
sw = stage.stageWidth
sh = stage.stageHeight
carregador.load(requisicao);
addChild(carregador);
trace(stage, stage.stageWidth);
trace(carregador.width);
trace(stage.scaleMode);
//carregador.width = sw
carregador.x = 0
carregador.y = 0
trace("teste")
}
}
}
Fico aguardo uma resposta, valeu galera! :blink:
-
valeu Cara, funcionou!
-
Galera, é assim.
Eu já tenho o código de envio de formulário do flash em AS3 + PHP e ASP também.
Mas preciso que os dados sejam armazenados em um banco de dados antes do envio, alguém sabe como posso iniciar este código ou tem algum exemplo onde explica como se faz isto ???? :huh:
Aguardo.
valeu :blush:
-
Cara é difícil adaptar um site já criado para se auto-ajustar em qualquer resolução, você teria que já criar o site usando as opções.
Os objetos ficam soltos na tela organizados com AS.
Dá uma procura como "Resize AS3".
Abçs
-
Estou trabalhando com AS3, tem um código na página que faz alguns objetos trocarem de cores, este código carrega as funções da Main.as ( eu acho ), não foi eu q desenvolvi, por isso a maior dificuldade.
Mas então, eu preciso colocar um código nesta página para carregar um swf externo, mas dá erro na página.
Tentei fazer a mudança de páginas através de cenas, colocar cada conteúdo em sua cena separadamente, mas dá pau no menu, não sei se é porque dentro do filme tem um código que carrega o as da barra de rolagem e usa mask e tudo mais, só sei q fica com bug, as vezes aparece a mascara e dependendo da cena q eu estou alguns botões simplesmente param de funcionar, então a melhor solução q acho q tenho a fazer é dividir em filmes diferentes, mas não consigo colocar o código pra carregar.
Quando eu coloco o código no quadro, as funções da mudança de cor que está em arquivo AS separado param de funcionar, e quando tento colocar o código dentro do AS externo que também muda de cor, me dá um erro no URLRequest.
Segue abaixo o código do arquivo AS que muda a cor:
package { import com.greensock.*; import com.greensock.plugins.*; import flash.display.* import flash.events.* import flash.text.* public class externalColor extends MovieClip { public function externalColor() { } public function setColor(e:String) { TweenPlugin.activate([TintPlugin]); TweenLite.to(titulo_txt, 1, {tint:e}); TweenLite.to(icone_mc, 1, {tint:e}); TweenLite.to(icone2_mc, 1, {tint:e}); TweenLite.to(blmenu, 1, {tint:e}); TweenLite.to(scrollbar.ruler.center, 1, {tint:e}); } } }
Agora segue código que eu fiz para a mudança de swf:var carregar:Loader = new Loader(); var url:URLRequest = new URLRequest("teste.swf"); carregar.load(url); carregar.x = carregar.y = 0; teste.addEventListener(MouseEvent.CLICK, callNextFrame) function callNextFrame(e:MouseEvent):void { addChild(carregar) }
E sempre dá erro, aparece a mensagem de erro:
1046: Type was not found or was not a compile-time constant: URLRequest
1180: Call to a possibly undefined method URLRequest.
Alguém saberia me ajudar por favor ??????? :wacko:
valeu galera, aguardo respostas.
Té +
-
Ao longo da programação são vários on error resume next que se encontra, devo remover todos ?
-
Olá Bareta, obrigado pela força...
Aparece este erro:
Erro no Sistema!
N°. do erro:424
Descrição do erro:Object required
Se você estiver inserindo dados em sua loja NÃO use: aspas simples ('), barra (/) e parêntes (())
Voltar para página anterior
-
Galera,
Não consigo colocar um novo campo no cadastro do produto no sistema virtualstore. :unsure:
O campo seria de imagem, igual aos campos, imagem grande, imagem pequena.
Para quem não conhece este sistema, estes campso são de bt para anexar arquivo, aí o sistema faz o upload da img para a pasta certa.
Estou tentando colocar um novo campo deste, aluém pode me dizer o que estou fazendo de errado !? :blink:
valeu galera segue abaixo o código, espero que alguma alma caridosa consiga me ajudar, rs.
Segue:
Case "gravanovo"Response.Expires = 0
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
'variaveis
nome = Trim(UploadRequest.Item("nomeprod").Item("Value"))
categ = Trim(UploadRequest.Item("categ").Item("Value"))
peso = Trim(UploadRequest.Item("peso").Item("Value"))
precov = Trim(UploadRequest.Item("precv").Item("Value"))
precon = Trim(UploadRequest.Item("precn").Item("Value"))
parcelamento = Trim(UploadRequest.Item("parc").Item("Value"))
juros = Trim(UploadRequest.Item("juro").Item("Value"))
juropor = Trim(UploadRequest.Item("jurodia").Item("Value"))
fabricante = Trim(UploadRequest.Item("fabri").Item("Value"))
descricao = Trim(UploadRequest.Item("descri").Item("Value"))
estoq = Trim(UploadRequest.Item("estoq").Item("Value"))
figurg = Trim(UploadRequest.Item("figurag").Item("Value"))
figurp = Trim(UploadRequest.Item("figurap").Item("Value"))
'este é o novo campoinfnut = Trim(UploadRequest.Item("infnt").Item("Value"))
If parcelamento = "v" Then
juros = "0"
Else
juros = juros
End If
If nome = "" Or peso = "" Or precov = "" Or precon = "" Or parcelamento = "" Or juros = "" Or juropor = "" Or fabricante = "" Or descricao = "" Or estoq = "" Or figurg = "" Or figurp = "" Or infnut = "" Then'aqui o novo campo aparece também'não me encontrei para adaptar o novo campo na lista de errosIf parcelamento = "" Then
erro14 = "sim"
Else
erro14 = parcelamento
End If
If juropor = "" Then
erro13 = "sim"
Else
erro13 = juropor
End If
If categ = "" Then
erro10 = "sim"
Else
erro10 = categ
End If
If estoq = "" Then
erro11 = "sim"
Else
erro11 = estoq
End If
If figurg = "" Then
erro8 = "sim"
Else
erro8 = figurg
End If
If figurp = "" Then
erro9 = "sim"
Else
erro9 = figurp
End If
If nome = "" Then
erro1 = "sim"
Else
erro1 = nome
End If
If peso = "" Then
erro2 = "sim"
Else
erro2 = peso
End If
If precov = "" Then
erro3 = "sim"
Else
erro3 = precov
End If
If precon = "" Then
erro4 = "sim"
Else
erro4 = precon
End If
If fabricante = "" Then
erro5 = "sim"
Else
erro5 = fabricante
End If
If descricao = "" Then
erro6 = "sim"
Session("adm_descprod") = ""
Else
Session("adm_descprod") = descricao
End If
If juros = "" Then
erro12 = "sim"
Else
erro12 = juros
End If
Response.Redirect "?link=produtos&acao=inserir&erro14=" & erro14 & "&erro88=" & erro88 & "&erro99=" & erro99 & "&erro10=" & erro10 & "&erro11=" & erro11 & "&erro12=" & erro12 & "&erro13=" & erro13 & "&erro1=" & erro1 & "&erro2=" & erro2 & "&erro3=" & erro3 & "&erro4=" & erro4 & "&erro5=" & erro5 & "&erro6=" & erro6 & "&erro8=" & erro8 & "&erro9=" & erro9
End If
strString = descricao
strString = Codifica(strString)
descricao = ""
descricao = strString
Set selectfig = conexao.Execute("SELECT * FROM produtos WHERE imgra = '" & FileName & "';")
ContentType = UploadRequest.Item("figurag").Item("ContentType")
filepathname = UploadRequest.Item("figurag").Item("FileName")
FileName = Right(filepathname, Len(filepathname) - InStrRev(filepathname, "\"))
Set selectfig = conexao.Execute("SELECT * FROM produtos WHERE imgra = '" & FileName & "';")
Value = UploadRequest.Item("figurag").Item("Value")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
numero1 = instrrev(Request.servervariables("Path_Info"), "/")
var3 = left(Request.servervariables("Path_Info"),numero1)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(var3) & "\produtos\g_" & FileName)
For i = 1 To LenB(Value)
MyFile.Write Chr(AscB(MidB(Value, i, 1)))
Next
MyFile.Close
contentType2 = UploadRequest.Item("figurap").Item("ContentType")
filepathname2 = UploadRequest.Item("figurap").Item("FileName")
filename2 = Right(filepathname2, Len(filepathname2) - InStrRev(filepathname2, "\"))
value2 = UploadRequest.Item("figurap").Item("Value")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
numero2 = instrrev(Request.servervariables("Path_Info"), "/")
var32 = left(Request.servervariables("Path_Info"),numero2)
Set MyFile2 = ScriptObject.CreateTextFile(Server.mappath(var32) & "\produtos\p_" & filename2)
For i = 1 To LenB(value2)
MyFile2.Write Chr(AscB(MidB(value2, i, 1)))
Next
MyFile2.Close
contentType3 = UploadRequest.Item("infnt").Item("ContentType")'aqui é a programação para o novo campofilepathname3 = UploadRequest.Item("infnt").Item("FileName")
filename3 = Right(filepathname3, Len(filepathname3) - InStrRev(filepathname3, "\"))
value3 = UploadRequest.Item("infnt").Item("Value")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
numero3 = instrrev(Request.servervariables("Path_Info"), "/")
var33 = left(Request.servervariables("Path_Info"),numero3)
Set MyFile3 = ScriptObject.CreateTextFile(Server.mappath(var33) & "\produtos\n_" & filename3)
For i = 1 To LenB(value3)
MyFile3.Write Chr(AscB(MidB(value3, i, 1)))
Next
MyFile3.Close
aqui ele aparece tambémtextosql = "INSERT INTO produtos (nome, fabricante, detalhe, preço, precovelho, parcela" _
& ", juro, aomes, estoque, idsessao, data, peso, imgra, impeq, iminf, status) VALUES ('" & nome & "', " _
& "'" & fabricante & "', '" & descricao & "', '" & precon & "', '" & precov & "', '" & parcelamento & "'" _
& ", '" & juros & "', '" & juropor & "', '" & estoq & "', '" & categ & "', '" & dia & "/" & mez & "/" & Year(Date) & "'," _
& " '" & peso & "', 'g_" & FileName & "', 'p_" & filename2 & "', 'n_" & filename3 & "', 'não')"
Set gravaprod = conexao.Execute(textosql)
-
Oi Silvio, também estou trabalhando com o sistema virtuastore está acontecendo o mesmo comigo se eu conseguir solucionar te aviso.
Peço por genteleza que me avise também caso consiga.
Aproveito o tópico para deixar uma dúvida também, não sei se você está fazendo manutenção também mas lá vai:
Estou colocando um campo á mais no cadastro de produtos, um campo de imagem, igual imagem grande, imagem pequena, seria mais um jpg.
Não to conseguindo, irei postar o código em um novo tópico, caso já tenha passado por isso peço sua ajuda.
Segue link do tópico:
http://scriptbrasil.com.br/forum/index.php?showtopic=147119
Abçs
-
Bom galera baixei uma loja virtual que tem um arquivo chamado config.asp, para poder mudar a configuração, tipos de conexões etc.
Gostaria de saber qual linha devo alterar para a loja funcionar corretamente em um servidor IIS.
Já publiquei a loja na web : http://www.i9ideias.com.br/lj01 funciona corretamente, mas qd é para rodar local em IIS não funciona.
Segue abaixo o código da página config.asp espero q alguém possa me ajudar.
<%'#########################################################################################
'#----------------------------------------------------------------------------------------
'#########################################################################################
'#
'# CÓDIGO: VirtuaStore Versão 1.2 - Copyright 2001-2003 VirtuaWorks
'# URL: www.virtuastore.com.br / www.virtuaworks.com.br
'# E-MAIL: webmaster@virtuaworks.com.br
'# AUTORES: Otávio Dias(Desenvolvedor) / Jone Bandinelli(Desenvolvedor) / Daniel Kern(Revisão)
'#
'# Este programa é um software livre; você pode redistribuí-lo e/ou
'# modificá-lo sob os termos do GNU General Public License como
'# publicado pela Free Software Foundation.
'# É importante lembrar que qualquer alteração feita no programa
'# deve ser informada e enviada para os criadores, através de e-mail
'# ou da página de onde foi baixado o código.
'#
'# //-------------------------------------------------------------------------------------
'# // LEIA COM ATENÇÃO: O software VirtuaStore 1.2 deve conter as frases
'# // "Powered by VirtuaStore 1.2" ou "Software derivado de VirtuaStore 1.2" e
'# // o link para o site http://www.virtuastore.com.br no créditos da
'# // sua loja virtual para ser utilizado gratuitamente. Se o link e/ou uma das
'# // frases não estiver presentes ou visiveis este software deixará de ser
'# // considerado Open-source(gratuito) e o uso sem autorização terá
'# // penalidades judiciais de acordo com as leis de pirataria de software.
'# //--------------------------------------------------------------------------------------
'#
'# Este programa é distribuído com a esperança de que lhe seja útil,
'# porém SEM NENHUMA GARANTIA. Veja a GNU General Public License
'# abaixo (GNU Licença Pública Geral) para mais detalhes.
'#
'# Você deve receber a cópia da Licença GNU com este programa,
'# caso contrário escreva para
'# Free Software Foundation, Inc., 59 Temple Place, Suite 330,
'# Boston, MA 02111-1307 USA
'#
'# Para enviar suas dúvidas, sugestões e/ou contratar a VirtuaWorks
'# Internet Design entre em contato através do e-mail
'# contato@virtuaworks.com.br ou pelo endereço abaixo:
'# Rua Venâncio Aires, 1001 - Niterói - Canoas - RS - Brasil. Cep 92110-000.
'#
'# Para ajuda e suporte acesse: http://www.virtuastore.com.br
'#
'# BOM PROVEITO!
'# Equipe VirtuaStore
'# []'s
'#
'#########################################################################################
'#----------------------------------------------------------------------------------------
'#########################################################################################
'INÍCIO DO CÓDIGO
'----------------------------------------------------------------------------------------------------------------
'Este código está otimizado e roda tanto em Windows 2000/NT/XP/ME/98 quanto em servidores UNIX-LINUX com chilli!ASP
'CONFIGURAÇÕES GERAIS DA SUA LOJA
'Altere todos os dados que desejar
'====================================================
'###################################################################################
'## SELECIONE SEU BANCO DE DADOS E SEU TIPO DE CONEXÃO (Access, SQLServer ou MySQL)
'###################################################################################
'## Para selecionar a opção basta retirar o comentário que é representado por " ' " nas partes "'StringdeConexao" e "VersaoDb" e preencher com os dados corretos
'*********************************
'## Use 1 para MySql; 2 para Access e 3 para SQL Server
VersaoDb = 2
'## Se você usa Access escolha a versão e preencha abaixo
'------> MySQL usando o MyODBC
'StringdeConexao = "driver=MySQL;server=localhost;uid=root;pwd=;database=micronext"
'*********************************
'## Se você usa Access escolha a versão e preencha abaixo
'------> MS Access 2000 usando uma pasta virtual
StringdeConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/virtuastore.mdb")
'------> MS Access 2000 no Brinkster
'StringdeConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/nome_de_usuario/db/virtuastore.mdb")
'------> MS Access 2000
'StringdeConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\virtuastore\database\virtuastore.mdb"
'------> MS Access 97 usando uma pasta virtual
'StringdeConexao = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/virtuastore97.mdb")
'------> MS Access 97 no Brinkster
'StringdeConexao = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/nome_de_usuario/db/virtuastore97.mdb")
'------> MS Access 97
'StringdeConexao = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\virtuastore\database\virtuastore97.mdb"
'*********************************
'*********************************
'## Se você usa SQLServer escolha a versão e preencha abaixo
'------> MS SQL Server 6.x/7.x/2000 (Conexão OLEDB)
'StringdeConexao = "Provider=SQLOLEDB;Data Source=servidor;database=virtuastore;uid=sa;pwd=;"
'------> MS SQL Server 6.x/7.x/2000 (Conexão ODBC)
'StringdeConexao = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=VirtuaStore;Initial Catalog=virtuastore"
'*************************************
'*********************************
'## Se você usa DSN preencha abaixo:
'StringdeConexao = "NOME_DA_DSN_NAME"
'*************************************
'###################################################################################
'###################################################################################
'## ESCREVA A MOEDA QUE VAI SER UTILIZADA EM SUA LOJA
'###################################################################################
strLgMoeda = "R$" ' REAL - R$ - Brasil
strLgMoedax = "Reais" ' Nome da moeda no plural
'###################################################################################
'###################################################################################
'## INFORME O DIRETORIO DOS ARQUIVOS DE LINGUAGEM DA LOJA
'###################################################################################
'diretorio padrão a partir do wwwroot onde se encontra sua loja
dirlingua = "linguagens/portuguesbr"
%><!--#include file="linguagens/portuguesbr/linguagem.asp"--><%
'###################################################################################
'###################################################################################
'## CONFIGURAÇÃO DE FRETE
'###################################################################################
'ATENÇÃO: Leia o arquivo Leia-me.txt para saber como configurar
'o frete da loja no banco de dados e depois siga as instruções abaixo:
'----> Escreva o numero da coluna em que o estado está seguindo a ordem da sua tabela de fretes (tabela padrão dos correios)
'----> de acordo com os seguintes critérios:
'----> **: A coluna do seu estado é igual a 0 e as outras são 1,2 e assim respectivamente
'## o padrão aqui está configurado para a tabela do Rio Grande do Sul
estado_ac = 7
estado_al = 7
estado_ap = 9
estado_am = 9
estado_ba = 6
estado_ce = 9
estado_df = 4
estado_es = 4
estado_go = 5
estado_ma = 9
estado_mt = 5
estado_ms = 3
estado_mg = 4
estado_pa = 9
estado_pb = 8
estado_pr = 1
estado_pe = 8
estado_pi = 8
estado_rj = 3
estado_rn = 9
estado_rs = 0
estado_ro = 7
estado_rr = 9
estado_sc = 1
estado_sp = 2
estado_se = 7
estado_to = 6
'###################################################################################
'###################################################################################
'## CONFIGURAÇÕES GERAIS
'###################################################################################
'## Escreva o nome do administrador da loja para suporte via Administrador
Seu_nome = "Otávio Medeiros Dias"
'## Senha principal da loja
senhamaster = "123456"
'## Dados da loja
Nome_da_sua_loja = "VirtuaStore"
CNPJ_da_sua_empresa = "04.901.558/0001-07"
Razao_Social = "DAO Serviços de Informática LTDA."
Email_da_sua_loja = "virtuastore@virtuaworks.com.br"
Slogan_da_sua_loja = "Sua Loja Virtual na Web!"
Endereco_do_site = "www.virtuastore.com.br" 'ATENÇÃO: Escreva o endereço virtual da sua loja sem o Http://
Endereco_da_sua_loja = "Rua Venancio Aires, 1001"
Bairro_da_sua_loja = "Niterói"
Cidade_da_sua_loja = "Canoas"
Estado_da_sua_loja = "RS"
Pais_da_sua_loja = "Brasil"
Telefone_da_sua_loja = "(0xx51)475-7545"
'## Dados bancarios
Seu_banco = "Banco do Brasil"
Sua_agencia = "111111"
Sua_conta_corrente = "0000000-9"
Nome_do_cedente = "Otávio Dias"
'########## DADOS PARA CONFIGURAÇÃO DO BOLETO BANCÁRIO ##########
caminho_boleto = "boleto_caixa.asp" ' use este caminho para utilizar o boleto da Caixa Econômica Federal
'caminho_boleto = "boleto_itau.asp" ' use este caminho para utilizar o boleto do banco Itaú
'caminho_boleto = "boleto_bradesco.asp" ' use este caminho para utilizar o boleto do Bradesco
bol_banco = "104" 'código do banco
bol_dvbanco = "0" 'Digito verificador do banco
bol_agencia = "1584" 'agencia
bol_conta = "00100002993" 'conta
bol_dvconta = "6" 'digito verificador da conta
bol_carteira = "80" 'código da carteira
bol_letracarteira = "SR" 'sigla da carteira
bol_moeda = "9" 'tamanho da moeda
bol_especie = "R$" 'cifra da moeda
bol_codigocedente = "15847000000172" 'código do cedente
bol_cedente = "VirtuaStore E-Commerce Soluctions" 'nome do cedente
bol_dadoscedente = "VirtuaStore E-Commerce Soluctions<br>Rua Marechal Rondon, 211 CEP: 92120210 <br>Fone: 51 475-7545 <br>E-Mail: virtuastore@virtuastore.com.br <br>Site: www.virtuastore.com.br <br>" 'dados do cedente
'##################################################################
'## Confirurações de e-mail
Host_da_loja = "mail.virtuaworks.com.br" ' --> Se o componente usado for CDONTS deixe esse campo assim: "-"
'## Escolha o componente e desmarque o comentário
Componente_usado = "AspEmail"
'Componente_usado = "AspMail"
'Componente_usado = "AspQmail"
'Componente_usado = "CDONTS"
'## Config da Administração(administrador.asp)
Seu_Usuario_no_Administrador = "admin"
Sua_Senha_no_Administrador = "123456"
'## Fonte da loja
Fontes_da_loja = "tahoma,verdana,arial,helvetica"
'## Valor da mão proria para entrega do SEDEX
Preco_da_mao_propria = 2.20 ' ex. 2.20
'## Dias para entrega dos pedidos
Dias_para_entrega = 10 'Dez dias
'CORES DA SUA LOJA
'Altere todos os dados que desejar
'====================================================
'Cor do fundo na resolução 1024x768
Cor_de_fundo = "#eeeeee"
'Cor das linhas
Cor_das_linhas = "#cccccc"
'Cor da barra de menu e copyright
Cor_do_menu = "#a0a0a0"
'Cor principal da loja
Cor_principal = "#fcc701"
'Cor principal dos links
Cor_dos_links ="#000000"
'Cor secundaria dos links
Cor_dos_links_secundarios ="#808080"
'Cor do texto dos menus
Texto_dos_menus = "#ffffff"
'Cor do texto da loja
Texto_da_loja = "#000000"
'Cor da borda do carrinho de compras
Cor_da_borda_carrinho_de_compras = "#fcc701"
'====================================================
'####################################################################
'# não ALTERE ESSA PARTE, VOCÊ PODERÁ ESTRAGAR SUA LOJA
'####################################################################
'Inicia as variaveis da Aplicação
application("senhamaster") = senhamaster
application("razaoloja") = Razao_Social
application("nomeloja") = Nome_da_sua_loja
application("emailloja") = Email_da_sua_loja
application("slogan") = Slogan_da_sua_loja
application("urlloja") = Endereco_do_site
application("endereco11") = Endereco_da_sua_loja
application("bairro11") = Bairro_da_sua_loja
application("cidade11") = Cidade_da_sua_loja
application("estado11") = Estado_da_sua_loja
application("pais11") = Pais_da_sua_loja
application("fone11") = Telefone_da_sua_loja
application("bancopag") = Seu_banco
application("contapag") = Sua_conta_corrente
application("pagpara") = Nome_do_cedente
application("agpag") = Sua_agencia
application("fonte") = Fontes_da_loja
application("maopropria") = Preco_da_mao_propria
application("diasentrega") = Dias_para_entrega
application("corfundo") = Cor_de_fundo
application("cor1") = Cor_das_linhas
application("cor2") = Cor_do_menu
application("cor3") = Cor_principal
application("cor4") = Cor_dos_links
application("cor5") = Cor_dos_links_secundarios
application("fontebranca") = Texto_dos_menus
application("fontepreta") = Texto_da_loja
application("corborda") = Cor_da_borda_carrinho_de_compras
application("nomecontato") = Seu_nome
admin = Seu_Usuario_no_Administrador
nsenha = Sua_Senha_no_Administrador
application("HostLoja") = Host_da_loja
application("ComponenteLoja") = Componente_usado
'>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<
Server.ScriptTimeOut = 999
application("vsversao") = "1.2.1"
application("ultimaatualizacao") = "Domingo, 12 de Março de 2003 às 15:05:11"
set abredb = Server.CreateObject("ADODB.Connection")
abredb.Open(StringdeConexao)
'>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<
'Executa a função GLOBAL
set rsglobal = abredb.execute("SELECT * FROM compras Order by idcompra desc")
if rsglobal.eof then
Session("orderID") = ""
end if
rsglobal.close
set rsglobal = nothing
if Session("orderID") = "" then
set rs = abredb.execute("SELECT * FROM compras Order by idcompra desc")
if rs.eof then
Session("orderID") = 1
abredb.Execute("INSERT INTO compras (idcompra, datacompra, status) values ('" &session("orderID") & "', '" & date & "', 'Compra em Aberto')")
else
Session("orderID") = rs("idcompra") + 1
abredb.Execute("INSERT INTO compras (idcompra, datacompra, status) values (" &session("orderID") & ", '" & date & "','Compra em Aberto')")
end if
session.timeout = 999
else
end if
'####################################################################
%>
Espero q alguém possa me ajudar, valewsssssssssssss
-
Boa tarde galera.
To quebrando a cabeça pra personalizar o DANFE da nossa NF-e ( Nota Fiscal Eletrônica ), e não to conseguindo.
É o seguinte, eu só quero personalizar o DANFE, é como se fosse um relatório.
Eu já desmbembrei o programa da receita, o arquivo do DANFE é o EmitirDanfeGUI.java
Preciso de um programa q abra a intergace desta página para eu poder só alterar as posições dos campos.
Já tentei com Eclipse mas não consegui, não sei usar, baixei o JFrameBuilder mas ele diz q não suporta a versão do arquivo EmitirDanfeGUI.java. Não sei mais como resolver.
Já tentei de tudo na internet não encontro nada q mostre como personalizar o DANFE, só fala q é possível mas não mostra como o fazer.
Alguém pode me ajudar neste caso ? alguém já conseguiu personalizar o DANFE do programa emissor gratuito da receita?
Ajudem por favor !
Obrigado
-
Voltando ao erro da condição:
Descobri o que estava acontecendo de errado.
O campo da segunda condição é XML da nf-e.
Ou seja meu sistema é um sistema de acompanhamento de produção ou seja, a nota fiscal é o ultimo campo a ser preenchido.
Eu inocentemente não coloquei este campo no cadastro do pedido, coloquei apenas na página de edição.
Ou seja, quando cadastrava este campo xml ia com um valor padrão q não sei qual é, só sei a programação não entendia como vazio, quando pedia para editar este pedido e salvava, ele já entendia como vazio e funcionava.
A solução foi colocar este campo no cadastro do pedido para que seja preenchido ( mesmo q vazio ) no cadastro do pedido.
Agora a programação está perfeita e entende o campo como vazio.
Segue abaixo o código, espero q isto possa ajudar alguém ainda porque quebrei a cabeça:
1º condição
<%=rs_max("CodigoRastreamento")%> <%rs =rs_max("CodigoRastreamento") if rs="" then response.write"Aguardando" %> <%else response.write" <a href=#><img src=img/corre.jpg width=89 height=19 border=0 onClick=MM_openBrWindow('http://websro.correios.com.br/sro_bin/txect01$.startup?P_LINGUA=001&P_TIPO=001','','scrollbars=yes,width=550,height=400')></a></font></b></font>" end if %>
2º condição<% Dim rsl rsl=rs_max("xmlnf") if rsl="" then response.Write("Aguardando") else response.Write("<a href='http://www.begbrasil.com.br/xml/"&rsl&"'><img src='http://www.begbrasil.com.br/prod2/img/down_xml.jpg' border=0></a>") end if %>
Quem quiser conhecer o sistema é só acessar: http://www.begbrasil.com.br
Na página inicial clique em acompanhar a produção do seu pedido.
Teste
Usuário : scriptbrasil
código : 12059
Qualquer dúvida sobre este sistema, me comuniquem.
Obrigado pela ajuda ! :rolleyes:
-
você colocou errado... de uma olhada na sua sintaxe...
o certo é _blank
[]'s
no código da página coloquei certo, é que tive q redigir aqui por isso ficou assim, mas no meu código está correto.
Alguém Sabe Como Resolver Esse Erro...
em ASP
Postado
Estava com o mesmo problema, só acrescentei:
Funcionou