Gafanhoto

Obrigado pela ajuda .. mas como mencionei acima, consegui resolvar da seguinte forma: <% Response.Charset="ISO-8859-1" %> Mas mesmo assim agradeço a ajuda!!!

Dá uma olhada aqui vê se te ajuda..... http://scriptbrasil.com.br/forum/index.php?showtopic=104947 Ali tem os código de include.....

Bah galera.... tá feia a coisa pro meu lado....he he he Eu fiz um sisteminha de notícias simples... Por enquanto eu to usando ASP x Access pra testar, mas já vou passar pra My SQL. O problema é que se eu insiro uma notícia assim: NOTÍCIA..... O arquivo tá comendo o acento: NOTCIA..... O erro tá acontecendo ao enviar os parametros do FORM. Eu to enviando como POST, mas o arquivo ASP recebe o parametro sem o acento, ou interpreta assim... O que fazer para não ter problemas com acentuação? Obs: não dá pra passar por query string, porque tenho um campo DESCRICAO.... ------------------------------------------------------------------------------------------------- CONSEGUI ------------------------------------------------------------------------------------------------- RESPOSTA: Coloquei o seguinte: <% Response.Charset="ISO-8859-1" %> No início do código.. funcionou na hora...

2 opções: não inclue o arquivo, mas sim coloca o código mesmo do arquivo dentro do seu arquivo principal, e passa os parâmetros diretamente. Ou então, se é algo que você pode abrir sozinho, usa response.redirect, que vai lhe redirecionar pro arquivo. Daí você pode passar os parâmetros normalmente. EX: <% response.redirect("pagina.asp?cat=2") %>

O arquivo tá na mesma pasta? Ou tá em uma pasta diferente ou sub-pastas? Dependendo de que pasta está, você tem que colocar o link assim: ../arquivo.asp ou ../../arquivo.asp ou pasta/arquivo.asp Ou se estiver na mesma pasta põe direto.. <!--#include file="arquivo.asp"--> você deve estar errando o caminho do arquivo, ou então não existe a categoria 2 no seu banco e tá retornando algum erro....

Galera.... Eu to com uma dúvida... Eu sei que através do ASPPDF eu consigo gerar arquivos em formato PDF a partir de um arquivo ASP. Mas, é possível ser feito o contrário? É possível que seja feito um arquivo ASP ou HTML lendo um arquivo PDF? Fico no aguardo. ;)

Até tenho... eu fazia isso para mandar os e-mails.... O problema é que a função não tá funcionando mais.... Achei muito estranho... LINK AQUI Eu pegava o resultado dessa função e fazia o ASP enviar o e-mail. VOU TENTAR USAR FSO E SE DER CERTO EU POSTO AQUI.... aí galera consegui com FSO..... To postando o código... agora eu pego o resultado, guardo numa variável e envio por e-mail... funciona 100%.... <% 'O parâmetro forReading é utilizado somente para leitura. Const forReading = 1, forWriting = 2, forAppending = 8 'Instância o objeto FSO. Set Fso = CreateObject("Scripting.FileSystemObject") 'O método GetFile retorna o arquivo existente. Set ObjFile = Fso.GetFile("c:\inetpub\wwwroot\site2\qSomos.asp") 'O método OpenAsTextStream abre o arquivo como sendo um fluxo de texto. Set objStream = ObjFile.OpenAsTextStream(forReading,false) 'Looping para varrer todas as linha do arquivo. While Not ObjStream.AtEndOfStream 'O método Readline lê uma linha de um arquivo Linha = Linha & ObjStream.Readline & "<br>" Wend 'Mostra o conteúdo. 'Response.write Linha %> <textarea cols="300" rows="20"> <%= linha %> </textarea> <% 'Fecha o arquivo. objStream.Close 'Destruíndo objetos Set Fso = nothing Set objStream = nothing %>

Na verdade o que eu reparei é que em alguns casos ( não especificamente o que eu citei como exemplo ) os caras resgatam o código fonte da página, armazenam em uma string e mandam por e-mail. Como eu faço pra armazenar o código-fonte da página em um campo do form?

Na verdade o que eu reparei é que os caras resgatam o código fonte da página, armazenam em uma string e mandam por e-mail. Como eu faço pra armazenar o código-fonte da página em um campo do form?

Preciso enviar a página atual por e-mail sem usar o Outlook. Já vi vários sites fazerem isso. É tipo aqueles botões : "ENVIAR ESTA PÁGINA POR E-MAIL" Alguém pode me ajudar?

Enviar a página inteira..... Tem como? Dêem uma olhada nesse site e enviem uma cotação teste pra ver.. É uma função em Java script, mas posso estar enganado. Talvez estejam usando java script só para validar os campos..... DÊEM UMA OLHADA.. CLIQUEM AQUI...

Preciso enviar a página atual por e-mail sem usar o Outlook. Já vi um site fazer isso em java script. É tipo aqueles botões : "ENVIAR ESTA PÁGINA POR E-MAIL" Alguém pode me ajudar?

MUITO OBRIGADO! FUNCIONOU NA HORA....... VALEU A AJUDA!!!!!! :lol: :lol: :lol: :lol:

Galera é o seguinte..... Eu tenho um form, mas não tenho como saber o nome dos campos. Posso até refazer, mas é um form imenso. Para evitar esse trabalho, eu gostaria de saber ( desculpem se for ignorância ) se é possível resgatar os valores dos campos sem saber o nome das variáveis do form? :blink: :blink: :blink:

O meu servidor não me dá nenhuma ferramenta, e também não me dá possibilidade de usar o Enterprise Manager nem Query Analyser. Mas me dá o SQL Server de graça, só pago a hospedagem. Posta uma CREATE TABLE pra mim testar por aqui, porque as CREATE TABLE que uso em outros bancos no SQL Server não ta funcionando. Tá conectado no banco tudo normal, mas criar novas tabelas, procedures e views eu não consigo, só fazendo DUMP, mas daí eu mato toda minha base online.

Galera, é muito simples, mas eu to levando uma surra... Tenho uma base SQl Server online, em meu servidor de hospedagem. Eles não me oferecem nada pra administrar o banco. Eu preciso criar as tabelas na mão mesmo. A conexão está funcionando corretamente. Como eu crio as tabelas? Alguém que tem experiência com isso pode postar um código pra me ajudar? Pra cirar as views também. Porque eu sempre criei tudo pelo Enterprise Manager, ou então pelo Query Analyzer. Mas por uma página na web eu nunca fiz nada. :huh:

Funciona muito bem também!! Valeu!!!!

SIMPLES, RÁPIDO E FUNCIONAL!!!! Funcionou 100% .... Obrigado pela força!!!! :lol:

Galera, é o seguinte... Vamos pegar como exemplo um select tranquilo e fácil... SELECT * FROM PRODUTOS Quero apresentar 3 produtos por linha, e que depois ele pule pra próxima linha da tabela. Sei que é usando FOR, mas já testei os exemplos da net e nenhum funcionou no meu caso. Alguém aí pode me ajudar? Parece algo tão simples, mas eu NUNCA consegui fazer. :unsure:

está uso o CSS então, daí quem iria imprimir seria o arquivo CSS ? Não a minha página, mas sim uma igual em CSS? Ou o CSS vai só disparar o PRINT? Falo isso porque to usando uma linguagem dinâmica, e não teria como eu fazer um LOOP ou alguma cosa parecida em um arquivo CSS.

Galera.. parece absurdo, mas eu to levando a maior surra ao imprimir um documento. Imagine que na folha tem duas tabelas, com as colunas intercalando as cores Laranja e Cinza. O que tá acontecendo é que na impressão, não saem as tabelas, por mais que eu coloque tinta colorida, otimizada, e tudo mais. Tentei em vários outros micros, pra ver se o problema era na impressora, mas aconteceu a mesma coisa. Tem alguma coisa que eu possa fazer ou algum truque que eu não saiba? :blink:

O código que eu to usando é esse: -------------------------------------- <% ' textoP = Request.Form("SearchText") Const fsoForReading = 1 Dim objFile, objFolder, objSubFolder, objTextStream Dim bolCase dim strSearch dim tStart, tLen dim Cnt Dim strExt, strFile, strContent, strRoot, strTag, strTitle Dim lCount function ExcludeRoot(strPath, strRootPath) dim strReal strReal=server.mappath(strRootPath) if strPath="" then ExcludeRoot=strRootPath elseif strRootPath="" then ExcludeRoot=strPath elseif instr(1,strPath,strReal,1)=0 then ExcludeRoot="" else ExcludeRoot=mid(strPath,instr(1,strPath,strReal,1)+len(strReal)+1) end if end function function GetDescription(S) '//retrieves page description from <Meta Name="Description"> tag // dim tStart, tLen, tDesc tDesc=instr(1,(S),"name=""description""",1) if tDesc>0 then tStart=instr(tDesc+13,S,"content=",1) if tStart>0 then tLen=instr(tStart+9,S,">",1)-tStart-10 GetDescription=mid(S,tStart+9,tLen) if instr(GetDescription,"<") then GetDescription="" end if end if end function '// Code starts here // response.expires=-1 strFile = ".htm .html .txt" '// type the extensions you wish to search for // strRoot = "..\clt\" '//change this to your root directory // strTag = "<!--no search" '//put this tag into the pages you wish to exclude from search: <!--no search--> (or change as you wish) // lCount=0 '//reset counter// '// Get the user's input // strSearch = Request.Form("SearchText") '// the search string // If Request.Form("Case") = "on" Then bolCase = 0 Else bolCase = 1 '// case sensitive or not // reqNumber = cint(Request.Form("rResults")) 'max number of results to be shown // '// create objects // Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strRoot)) '// Start searching // if strSearch<>"" then schSubFol(objFolder) '//search the root folder // For Each objSubFolder in objFolder.SubFolders '// search any subfolders // if InStr(1,objSubFolder.Name,"_vti_",1)=0 then '// skip system dirs created by Front Page // schSubFol(objSubFolder) if lCount>reqNumber then exit for '// if reached max number of results then stop // end if Next end if If lCnt=0 then Response.Write ("----------------") else Response.Write ("<B>----------------</B>") '//clean up // Set objFolder = Nothing Set objFSO = Nothing '// THAT'S IT // '// HERE THE ACTUAL SEARCH IS BEING PERFORMED // Function schSubFol(objFolder) '// return 1 if search is succesful, 0 otherwise // schSubFol=0 For Each objFile in objFolder.Files If Response.IsClientConnected Then tStart=InstrRev(objFile.Name, ".",-1,1) '// find the last dot // if tStart<>0 then strExt=mid(objFile.Name,tStart) else strExt="no ext" '// get the extension // if Instr(1, strFile, strExt, 1)<>0 then '// check the extension // Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading, False) If not (objTextStream.AtEndOfStream) then '// check if file is empty // strContent = objTextStream.ReadAll '//read file contents // If InStr(1, strContent, strTag, 1)=0 Then '// skip pages containing 'exclude' directive If InStr(1, strContent, strSearch, bolCase) Then '// find an occurence of the search string // tStart=InStr(1, strContent, "<TITLE>", 1) if tStart>0 then '// Tag <title> is found // tLen=InStr(1, strContent, "</TITLE>", 1) -tStart-7 strTitle = Mid(strContent, tStart+ 7, tLen) if instr(strTitle,"<") or instr(strTitle,">") then strTitle="" '// in case there is an error in the page HTML End if if strTitle="" then strTitle = "Sem título" sDesc=GetDescription(strContent) '// retrieve document description if available // if sDesc="" then sDesc="..." lCount = lCount + 1 '//increase counter// '// write the results to the result page // Response.Write "<p><dir><B><I>"& cstr(lCount) &"</I></B> - <A HREF=" & excluderoot(objFile.Path,strRoot) & "?palavra="& textoP &" target=_blank><font color=black>" & strTitle & "</A></i></b><BR>" Response.write("<dir><font size='2'><br></font></dir>") Response.Write "</FONT></I></dir></p>" schSubFol = 1 End If '//search string End if '//exclude check End if '// file check // objTextStream.Close End If '// extension check // End If '//client connected check if lCount>reqNumber then exit for '//check if max number of records achieved Next strContent="" '// release some memory just in case // Set objTextStream = Nothing '//destroy object// End Function %> ------------------------------------------------------ Ps: Desculpa, mas o CODEBOX não tá funcionando no fórum... O que tá acontecendo é o seguinte: Vamos supor que eu digite a palavra PIS. Eu quero que coincida a palvra inteira, mas ao invés disse ele está como se fosse o LIKE. Ex: Eu digito PIS, ele acha PISo salarial, PISei num tomate, essas coisas.. Não sei o que alterar no código....

Poderia ser feito um TUTO do início ao fim de FSO, na parte de criação, edição, e exclusão de arquivos, pastas, etc... Ia ser muito bom... Outra idéia é fazer um TUTO sobre o uso de ASP com Flash, como integrar os dois. Só achei artigos em inglês sobre isso, mas são meio complicados. Até hoje não achei nada que falasse como organizar um LOOP do ASP dentro do Flash.

Problema resolvido Bareta.... Valeu a força. Pode fechar o tópico!!!! Valeu!!!!!!!

aí galera, desculpa, to ressuscitando o tópico, até respondi pela 3ª vez seguida ( não sei se estou infringido alguma regra do fórum ), mas eu to pesquisando e procurando na NET a semanas e não consigo achar nada concreto que fale sobre edição de arquivos HTML usando FSO, ou o que for....... Não precisa nem ser ASP mais, se tiver alguma outra coisa eu to topando, menos PHP. Se alguém tiver alguma experiência com FSO, principalmente na parte de edição de arquivos, bah, to precisando de ajuda!!! To topando até fazer do zero um novo sistema. Eu to conseguindo ler o arquivo e tudo, mas não consigo colocar o resultado ( o arquivo lido através do FSO ) dentro do VALUE de um INPUT...