Marianne

Amigos, bom dia. Tenho uma query e banco de dados Access e não esta funionando TOP com Order By DATA (Se colocar ID Funciona) Se eu coloco assim RETORNA TODOS REGISTROS IGNORANDO O TOP Select Top 5 Id,Data,Texto FROM Publica Order By Data Desc Se eu coloco assim FUNIONA O TOP Select Top 5 Id,Data,Texto FROM Publica Order By Id Desc

Olá Amigos, Post Resolvido com louvor ! Consegui ! Estou postando aqui como fiz e deu 100% certo ! Fiz gravar as 2, pequena e grande, deletar a foto provisoria e até inverter largura e altura para caso esteja enviando fotos verticais Beijocas a todos e espero q ajude alguém este post '======REVOLVIDO=========== Response.Buffer = true on error resume next Req_PubId = Request.QueryString("id") Dim extensao Set Upload = Server.CreateObject("Dundas.Upload.2") 'estipula o tamanho máximo do arquivo 'Upload.MaxFileSize = 1048576 Upload.UseVirtualDir = False Upload.UseUniqueNames = False Upload.SaveToMemory IdProduto = IdRecuperado Dim i i=0 for each UploadedFile in Upload.Files i=i+1 extensao = right(Upload.GetFileName(UploadedFile.Originalpath),3) 'Response.Write "extensao = " &Upload.GetFileName(UploadedFile.Originalpath)& "<br>" 'Response.End() IF NOT lcase(extensao) = "jpg" then Response.write("<script>alert('Este tipo de arquivo não é permitido\n Envie fotos com extensão .jpg');</script>") Response.write("<script>window.history.go(-1);</script>") Else arquivo = "FOTO" & "." & extensao IF REQUEST.ServerVariables("REMOTE_ADDR") = "127.0.0.1" THEN UploadedFile.SaveAs "C:\Inetpub\wwwroot\site\fotos\prov\" & arquivo ELSE UploadedFile.SaveAs "E:\vhosts\site.com.br\httpdocs\fotos\prov\" & arquivo END IF End IF next ' ===== FAZER OS REDOMENCIONAMENTOS DAS IMAGENS For xQtdFotos = 1 to 2 IF xQtdFotos = 1 then DirFoto = "Tb" Else DirFoto = "Big" End IF Set Jpeg = Server.CreateObject("Persits.Jpeg") IF REQUEST.ServerVariables("REMOTE_ADDR") = "127.0.0.1" THEN Jpeg.Open "C:\Inetpub\wwwroot\site\fotos\prov\"&arquivo ELSE Jpeg.Open "E:\vhosts\site.com.br\httpdocs\fotos\prov\"&arquivo END IF OriginalLargura = Jpeg.OriginalWidth OriginalAltura = Jpeg.OriginalHeight IF xQtdFotos = 1 then Largura = 198 Altura = 149 Else Largura = 400 Altura = 300 End IF IF OriginalAltura > OriginalLargura then larguraOK = altura alturaOK = largura Else larguraOK = largura alturaOK = altura End IF Jpeg.Width = larguraOK Jpeg.Height = alturaOK IF REQUEST.ServerVariables("REMOTE_ADDR") = "127.0.0.1" THEN Jpeg.Save "C:\Inetpub\wwwroot\site\fotos\"&DirFoto&"\"&arquivo ELSE Jpeg.Save "E:\vhosts\site.com.br\httpdocs\fotos\"&DirFoto&"\"&arquivo END IF Jpeg.close Next ' ===== FAZER OS REDOMENCIONAMENTOS DAS IMAGENS '=======APAGAR IMAGEM ORIGINAL================================= Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Caminho = Server.MapPath("..\fotos\prov\"&arquivo&"") If objFSO.FileExists(Caminho) Then objFSO.DeleteFile(Caminho) End IF set objFSO = Nothing '=======APAGAR IMAGEM ORIGINAL================================= Response.write("<script>alert('Foto enviada com sucesso !');</script>") Response.write("<script>window.location='publicacao.asp';</script>") '==========================

Amigos, Tentei de todas formas pegando posts no forum e adaptar em meu codigo um redimencionamento porem sem sucesso. alguém pode me ajudar? 1. Tenho este código que funiona perfeito para upload 2. Ele não redimenciona a imagem para gravar. 3. Quero que ele faça o upload da imagem e grave 2 tipos 4. A primeira foto teria que ter o tamanho maximo de 450px (altura ou largura) 5. A segunda foto teria que ter o tamanho maximo de 140px (altura ou largura) > Para usa-la como Thumb Falei em tamanho maximo porque pode ser que receba fotos horizontais ou verticais Olhe meu codigo que gostaria de adaptar: Obrigada mesmo :>) Response.Buffer = true on error resume next Dim extensao Set Upload = Server.CreateObject("Dundas.Upload.2") Upload.UseVirtualDir = False Upload.UseUniqueNames = False Upload.SaveToMemory Dim i i=0 for each UploadedFile in Upload.Files i=i+1 extensao = right(Upload.GetFileName(UploadedFile.Originalpath),3) IF NOT lcase(extensao) = "jpg" then Response.write("&lt;script>alert('Este tipo de arquivo não é permitido\n Envie fotos com extensão .jpg');</script>") Response.write("&lt;script>window.history.go(-1);</script>") Else IdRecuperado = 10 arquivo = IdRecuperado & "." & extensao UploadedFile.SaveAs "E:\vhosts\sitenovo.com.br\httpdocs\fotos\" & arquivo Response.write("&lt;script>alert('Foto enviada com sucesso !');</script>") Response.write("&lt;script>window.location='publicacao.asp';</script>") End IF next

Amigos, Tenho um código em ASP que grava em um XML - Está funcionando beleza só que o estranho é que grava sem pular linha, tudo em uma linha so. Olhem so abaixo Ele grava assim: <images><pic><image>fotos/</image><thumbnail>fotos/</thumbnail><caption>Registro Fixo inserir2.asp</caption></pic><pic><image>fotos/1.jpg</image><thumbnail>fotos/1.jpg</thumbnail><caption>Registro Fixo inserir2.asp</caption></pic></images> Quero que gravasse com melhor organização, assim: <images> <pic> <image>fotos/</image> <thumbnail>fotos/</thumbnail> <caption>Registro Fixo inserir2.asp</caption> </pic> <pic> </images> MEU CODIGO QUE GRAVA foto = "1.jpg" Dim Image, Thumbnail, Caption Image = foto Thumbnail = foto Caption = "Registro Fixo inserir2.asp" Banco = Server.MapPath("images.xml") Set DocMT = Server.CreateObject("Microsoft.XMLDOM") ' Criando Objeto DocMT.Load(Banco) Set RaizXML = DocMT.documentElement Set CriarReg = DocMT.createElement("pic") RaizXML.appendChild(CriarReg) ' Funcção para criar objetos dentro do XML Function AlimentarXML(NomeElemento, NomeVariavel) Set Campo = DocMT.createElement(""&NomeElemento&"") Campo.Text = NomeVariavel CriarReg.appendChild(Campo) ' Linha de criação de Objetos End Function Call AlimentarXML("image", Image) Call AlimentarXML("thumbnail", Thumbnail) Call AlimentarXML("caption", Caption) DocMT.Save(Banco) Response.write("&lt;script>alert('Imagem enviada com sucesso !\nA Visualização já está disponível');location='index.asp'</script>") Set DocMT = Nothing Obrigadadinha queridos!

Jothaz ! resolvi meu problema de Outra forma :D Ohando uma dica de outro post mudei meu campo ao invés de separacao por virgura por (1),(2),(5) Assim posso usar o like sem problemas ! :D Obrigadinha meu amiguinho !

Oi Jotaz ! Obrigada pela antenção. Então realmente funcionou dentro do ACCESS mas colocando no código não encontrei um meio de funcionar sem erro :( Olhá só como estou chamando dentro do Código tentando pegar apenas os que possuem dentro do campo o "1": SELECT CategoriaID AS IdContem FROM Loja WHERE (((InStr(","+CategoriaID +",",",1,"))>0)) Dei o nome de IdContem o campo o qual recuperaria os que possuem o 1 no campo Erro: Tipo de erro: Microsoft VBScript compilation (0x800A0401) Expected end of statement categoria.asp, line 31, column 67 SqlCategView = "SELECT CategoriaID AS IdContem FROM Loja WHERE (((InStr(","+CategoriaID +",",",1,"))>0))"

Oi Jotaz, Obrigada pela atenção mesmo, estou enrolada :( Então... estou programando em ASP.. não funciona assim né :( Ai.. qse estou chorando porque busca errado os dados do banco Access Obrigadinha novamente

Qual seria o resultado que você espera utilizando com base os dados acima. Pelo que entedi o ID 1,3 e 5 tem a CategoriaId = 1! É isso? Gerei um exemplo que pode dar um luz: declare @Lojas table (ID int, Nome varchar(50), CategoriaId varchar(50)) insert into @Lojas (ID, Nome,CategoriaId ) values (1,'Zé Maira','1,4,5') insert into @Lojas (ID, Nome,CategoriaId ) values (2,'Meira Jr','2,3,4') insert into @Lojas (ID, Nome,CategoriaId ) values (3,'Antonio','1,11,4') insert into @Lojas (ID, Nome,CategoriaId ) values (4,'Maria','10,3,5') insert into @Lojas (ID, Nome,CategoriaId ) values (5,'Joaozinho','1,2,3') declare @aux table (ID int, Nome varchar(50), CategoriaId varchar(50)) insert into @aux (ID, Nome,CategoriaId ) Select ID, Nome, ',' + CategoriaId + ',' from @Lojas where CategoriaId like ('1%') select * from @aux where charindex(',1,',CategoriaId) > 0 Favor responder os questionamentos para continuidade da soulção do post. qualquer duvida é só postar! Oi Amigo, é isso mesmo mas só tive o mesmo problema :( Assim usei no meu Select: ReqCatId = 1 Select Id,Nome,CategoriaId ,Endereco ',' + CategoriaId + ',' from Loja where Status = 1 AND CategoriaId like ('"&ReqCatId&"%') order by Nome Asc Problema é que na tabela existe um registro que possui a categoria 14 ou 15 ou 16 assim = 8,3,5,14,13 Não tem a categoria 1 mas como a categoria 13 começa com 1 ele mostra o registro> Me ajudem por favor :((

e esta fazendo referência a este select, posto por você: portanto, visto isto, mantenho a minha resposta... Valhe destacar ainda que você editou seu post depois que postei minha resposta... e é preciso entender ainda que não ganho nada lhe ajudando Marianne, simplesmente ajudo por gostar de ajudar... Sempre leio com atençao as dúvidas de todos e respondo as dúvidas que sei... Certamente você esperava derepente algo pronto, ou mastigado... esse não é o objetivo deste fórum, até onde eu sei... Não gostou da minha resposta? Ora, é um forum aberto com uma equipe super inteligente... se postei algo errado certamente outra pessoa irá me corrigir, na tentativa de lhe ajudar... mas no meu entendimento, o mínimo que se deve fazer para receber alguma ajuda é ser simpático... Se você postasse algo dizendo, acho que me expressei mau, ou telvés não tenha me feito entender, ou talvés ainda, acho que você não entendeu muito bem minha dúvida, pois meu problema é exatamente assim:... certamente ajudaria muito mais do que dar um bump no seu post, criticando quem lhe ajudou... Já ajudei inúmeras pessoas aqui, tenho certeza disso, mas não vou conseguir agradar a todos nunca! Reveja seu posicionamento e a forma como descreveu sua dúvida que eu tento lhe ajudar, mas da forma que esta agora "ultima edição 11/09/08 as 14:17" certamente deixa margens para interpretação, portanto não vou me arriscar a dar algum palpite que possa ser infundado! []'s Rafael Spilki Bla Bla Bla.. Vá pentear macaco Galvão Bueno e escrever um livro de poesias e lamentações. A Alteração que fiz foi somente no titulo pra verem que "uma pessoa" postou uma resposta mas não tinha resolvido minha duvida Só você não entendeu a pergunta

Amigo, se perceber não tem logica a resposta pois não achará o campo unico, há varios Is sepados por virgula Leia por favor a pergunda

Pessoal, tenho 2 tabelas Categorias ============== ID Categoria 1 Roupas 2 Calçados 3 Meias 4 Esporte 5 Masculinas 10 Feminina 11 Infantil ============== Lojas ============== ID Nome CategoriaId 1 Zé Maira 1,4,5 2 Meira Jr 2,3,4 3 Antonio 1,11,4 4 Maria 10,3,5 5 Joaozinho 1,2,3 ================= Para poder listar somente as lojas que estao dentro da categoria usei assim o Select Puchando apenas as lojas q tenham a categoria 1 Select * from Lojas where CategoriaId Like '%1%' PROBLEMA ..: Ele mostra as lojas de Id = 1,3 e 5 SENDO QUE PEDI APENAS OS QUE TEM A CATEGORIA 1 Como fazer para dar um Like e pegar apenas o 1 e não o 11 ou 111 buscando no campo? Obrigado !

Andre, tente assim : strLivros = " UPDATE Livros SET " strLivros = strLivros & "CodLivro = " & varCodLivro strLivros = strLivros & ", categoria = " & varCategoria strLivros = strLivros & ", Titulo = " & varTitulo strLivros = strLivros & ", Autor = " & varAutor de continuidade na sua programacao desta forma

MUITO MUITO MUITO OBRIGADAAAAAAAAAAAAA BJOS BHJOS BJOS

Olhe la no codigo, estou mudando : <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <meta http-equiv="Content-Type" content="text/html; charset=utf-16" /> <meta http-equiv="Content-Type" content="text/html; charset=8859-1" /> E entra assim quando insiro áéú áéú

Pessoal, sempre trabalhei com ASP e BD ACCESS e semrpe quando gravei os dados gravava com os acentos e quando recuperava já vinham com eles, nunca tive problemas AGORA.. Estou tentando fazer um Insert mas grava no banco caracteres assim: Tôtá Imóvel (estoutá Imovel) já tentei de tudo com metatags, Server.HTMLEncod etc E nada ! Será que algo errado que não consigo saber com meu pc ? iis? me ajudem por favor <<< AMIGOS ! = Pensei que poderia ser o banco de dados mas ´~ao era.. demorei um P tempo pra fazer o banco em MySql e nada.. mesmo no MySql Continua gravando codificado no banco de dados.. :( >>> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>TenhoImoveis.com</title> <link href="css/estilos.css" rel="stylesheet" type="text/css" /> </head> <body> Dim rs Sql = "INSERT INTO IMO (Nome, Dados, Email, Site, Status) VALUES ('"&v_imobiliaria&"' , '"&v_dados&"' , '"&v_email&"','"&v_site&"',"&v_status&")" Acess.Execute(Sql)

Tenho uma Query que funciona bem com as datas porem quando acrescento uma outra clausula com AND não da resultado algum Sql = SELECT Dados.Id, Dados.Nome, Dados.Telefone, Dados.LocDataCheckIN, Dados.LocDataCheckOut, Dados.Status as StatusReserva FROM Dados INNER JOIN Moto ON Dados.LocVeiculo = Moto.id_moto WHERE (Dados.Status = 1) AND (Dados.LocDataCheckIN BETWEEN #2/16/2008# And #5/20/2008#) OR (Dados.LocDataCheckOUT BETWEEN #2/16/2008# And #5/20/2008#) Nesta parte "WHERE (Dados.Status = 1) AND" não da resultado algum Acaba exibindo certo as datas que pedi porem mostra os registros com Status=0 também Porque esta acontecendo isso.. porque não mostra apenas os cvom Status = 1 como pedi na query? Obrigada

OBRIGADA!!!!!!!!!!!

Amigos, Eu sempre hospedei mesu sites em hostings que tinham a configuração Ingles, datas MM/DD/AA. Agora estou hospedando na Locaweb e o servidor fica com o padrão Brasileiro e não é possivel muda-lo conforme já conversei com o suporte! Toda minha programação que gravo em banco de dados esta Now() e como o SQLServer e Access que tenho obedecem o default MM/DD/AA agora terei que mudar todo meu codigo para que recupere o Now() que é DD/MM/AA e transformar em MM/DD/AA para pode gravar nos meus bancos. Como posso fazer isso amigos.. Converter o Now() que é 25/12/2008 Para: 12/25/2008 Que fique em formato Date para poder gravar nos bancos SQLServer e Access Obrigada

Resolvi buscando em outros foruns Pra quem precisar esta aqui a solução e ainda deixo o cod que faz o update na tabela Dim extensao Set Upload = Server.CreateObject("Dundas.Upload.2") Upload.UseVirtualDir = False Upload.UseUniqueNames = False Upload.SaveToMemory Dim i i=0 for each UploadedFile in Upload.Files i=i+1 extensao = right(Upload.GetFileName(UploadedFile.Originalpath),3) IF NOT lcase(extensao) = "jpg" then Response.write("<script>alert('Este tipo de arquivo não é permitido\n Envie fotos com extensão .jpg');</script>") Else arquivo = foto & "_" & i & "." & extensao UploadedFile.SaveAs "E:\home\site.com\wwwroot\fotos\" & arquivo 'FAZER UPDATE PARA ATIVAR A FOTO QUE ESTA SENDO ENVIADA Sql = "UPDATE FOTOSARQUIVO SET FOTO = 1 WHERE ID = 22" con.Execute(Sql) Response.write("<script>alert('Foto enviada com sucesso !');</script>") End IF next

|Viu so , nme tinha lido meu post\ Obrigado desta vez :)

DESCULPE, MAS ASSIM NAOA JUDA NADA.. ONDE STA O SAVE AS ??????? POR FAVOR GANHAR POST é FACIL AJUDAR é LEGAL :( Por favor, quem pode ajudar-me Tenho este codigo e preciso apenas renomear o arquivo que estou fazendo o upload.. Este meu codigo funciona perfeitamente mas sava com o nome q vem direto e quero renomea-o para ex.: "teste.jpg" Set objUpload = server.CreateObject("Dundas.Upload.2") objUpload.MaxFileSize = 50 objUpload.UseUniqueNames = false Set objNextFile = objUpload.GetNextFile() caminho = "E:\home\sitedesite.com\wwwroot\fotos" objNextFile.Save caminho Set objUpload = Nothing

Este codigo abaixo funciona mas não consigo mudar o nome do arquivo que esta sendo feito o upload So preciso disso e não um codigo novo q também não tem Save As Se alguém souber agradeço mesmo uma ajuda ! Abaixo funciona mas preciso mudar o nome do arquivo que esta sendo feito o upload Set objUpload = server.CreateObject("Dundas.Upload.2") objUpload.MaxFileSize = 50 objUpload.UseUniqueNames = false Set objNextFile = objUpload.GetNextFile() caminho = "E:\home\sitedesite.com\wwwroot\fotos" objNextFile.Save caminho Set objUpload = Nothing

Amigos. Tenho uma query que funciona, não da erro porem traz resoltados errado s:( Me ajudem por favor ! Tenho no Banco de dados registrado varios "check ins' e varios "check outs" em colunas separadas: Posso recuperar em um select exemplo da tabela dados: RS das 2 colunas: CheckIN / CheckOUT 1. 01/30/2008 08:00:00 AM / 01/30/2008 21:00:00 PM 2. 02/01/2008 08:00:00 AM / 05/15/2008 21:00:00 PM 3. 06/10/2008 08:00:00 AM / 07/25/2008 21:00:00 PM 4. 08/05/2008 08:00:00 AM / 10/25/2008 21:00:00 PM o que não estou conseguindo fazer: quero um select que consulte um perido e veja se não há nenhuma reserva já feita exemplo quero saber se há reserva para o periodo: 06/01/2008 10:00:00 ~ 06/15/2008 18:00:00 que no caso teria que não dar eof pois há reserva que cruza com estes dados ( como pode ver o 3 item do rs) trentei fazer um between mas não dava certo não, dai tentei separado e também nada :( me ajudem pel amor de deus :( SELECT Id,CheckIN,CheckOUT FROM Dados WHERE (CheckIN BETWEEN #" & INdatain & "# and #" & INdataout & "#) ORDER BY CheckIN ASC ai não conseguiria porque so estou pegando de 1 coluna o check in estou usando access. obrigado mesmo gente

não estava todos dados, custava ter colocado os dados aqui ao invés de fechar meu post ? Aqui vai novamente :(:(:( =========================== Meu form ============== HTML <form method="post" enctype="multipart/form-data" action="send.asp" name="form1"> <tr> <td height="32" class="vdna_pr_11">T&iacute;tulo:</td> <td><input name="titulo" type="text" class="vdna_pr_11" id="titulo" size="59" maxlength="150"/></td> </tr> <tr> <td height="32" class="vdna_pr_11">Texto:</td> <td><textarea name="texto" cols="46" rows="4" class="vdna_pr_11" id="texto"></textarea></td> </tr> <tr> <td height="32"><span class="vdna_pr_11">Imagem:</span></td> <td><input name="File" type="file" class="vdna_pr_11" size="25"></td> </tr> </form> Arquivo SEND.ASP ================ SQL Set Upload = Server.CreateObject("Persits.Upload") Count = Upload.Save("E:\home\sitedamary.com\wwwroot\fotos") Response.Write Count & " arquivo(s) salvo(s) !!!" sSqlNv1 = "UPDATE etc etc etc" FUNCIONA PERFEITAMENTE POREM ELE ENVIA O ARQUIVO QUE SELECIONEI NO FORM E GRAVA PRECISO ALTERAR O NOME DO ARQUIVO ANTES DE GRAVAR.. OBRIGADA !!

Pessoal, fiz um upload com Persits Upload e deu certinho porem não achei em lugar nenhum como alterar o nome do arquivo antes de salvar na minha pasta dentro do servidor Funcuina perfeitamente mas grava com o nome original e eu quero mudalo ! Amiguinhos ajuden-me Please ! Set Upload = Server.CreateObject("Persits.Upload") Count = Upload.Save("E:\home\sitedoamary.com\wwwroot\fotos") Response.Write Count & " arquivo(s) salvo(s) !!!"