bareta

já testo no localhost ai... essas @@@@@ na frente da pasta é suspeita de erros...

não não se colocar num iframe, toda vez que este for chamado vai repetir o código. existe duas formas que no fim podem virar uma só... usando cookies.. if request.cookies("cont")<>0 then .... aqui add +1 no contador response.cookies("cont")=0 end if basicamente ao gravar a visita grava um cookie (poderia ser session) que é vericado sempre antes de aumentar o contador a outra é você gerar um campo página para gravar a pagina atual.. ai o contador terá de cadastrar varias linhas no banco e para exibir o total apenas fazer a soma de todos os campos.... um exemplo pronto: http://www.portalmaracaju.com.br/cg_geradores (ta off porque esqueci de paga,, jaja ta de volta)

basicamente você pode colocar em um link dentro de um iframe, quando clica abre no quadradinho ao lado... ou use ajax ou xmlhttp para puxar o código fonte da pagina

mastigadinho <% '------------------------------------------------ Public Function BinaryToString(xBinary) Dim Binary Dim RS, LBinary If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary Const adLongVarChar = 201 Set RS = CreateObject("ADODB.Recordset") LBinary = LenB(Binary) If LBinary>0 Then RS.Fields.Append "mBinary", adLongVarChar, LBinary RS.Open RS.AddNew RS("mBinary").AppendChunk Binary RS.Update BinaryToString = RS("mBinary") Else BinaryToString = "" End If Set RS = Nothing End Function Public Function MultiByteToBinary(MultiByte) Dim RS, LMultiByte, Binary Const adLongVarBinary = 205 Set RS = CreateObject("ADODB.Recordset") LMultiByte = LenB(MultiByte) If LMultiByte>0 Then RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte RS.Open RS.AddNew RS("mBinary").AppendChunk MultiByte & ChrB(0) RS.Update Binary = RS("mBinary").GetChunk(LMultiByte) End If Set RS = Nothing MultiByteToBinary = Binary End Function '------------------------------------------------ 'Declaração das variáveis Dim objXmlHttp Dim Url Dim Conteudo 'Inicialização do objeto Set objXmlHttp = Server.CreateObject("MSXML2.XMLHTTP") 'Url do Site Url = "http://rss.terra.com.br/0,,EI4795,00.xml" 'Resgatando os dados da URL via HTTP objXMLHttp.Open "GET", Url, False objXMLHttp.Send 'Utilizando a função "BinaryToString" não haverá mais problemas com acentos. Conteudo = BinaryToString(objXmlHttp.ResponseBody) Response.ContentType = "text/xml" Response.Write Conteudo 'Destruição do objeto Set objXmlHttp = Server.CreateObject("MSXML2.XMLHTTP") %>

poe o endereço ai quero ve também..... o q uso deu pau no IE7 e viro uma b***.... hehehe.. passei mta raiva pra arruma...

movendo

use xmlhttp, para capturar o arquivo.

explica direito o que você quer, e como funciona essa coisa

seguinte o IIS fica no cd do xp profissional... vá em adicionar e remover programas / programas do windows... na lista vai ter internet information services.... marque a opção e vá avançando...

CDONTS foi substituido pelo CDOSYS, em alguns lugares você conseguye enviar ainda ... mais recomendo não perder tempo fazendo envio com cdonts

esse ´eo q tenho em uso aqui sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = replace(sBasePath,"artigos_novo.asp","FCKeditor/") Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Height="400" oFCKeditor.Value =conteudo oFCKeditor.Create "conteudo"

verifique a documentação do componente http://www.aspemail.com/manual_01.html

hsaihsauisuhaiSH... quase no mesmo minuto....

hehehe... nada que 4 horas quebrando cabeça + 4 litros de terere e + alguns cigarros não façam funcionar...kkkk o jeito é escrever testar e ir modificando...

para achar se uma data existe ou não use: If IsDate(ano & "-" & mes & "-" & 31) Then

use na tabela da noticia um campo do tipo sim / não chamado ativo... no insert você coloca true para ativo e false para inativo... ou na ordem -1 e 0

eu faria algo do tipo tbl: idiomas (id - idioma - base [sim / não]) tbl: palavras_base (id - palavra) tbl: palavras (id - id_base - palavra - idioma_id) bom ai já entendeu a relação delas né... na hora de inserir a palavra sempre adicione um espaço no final ai por exemplo tenho tbl idiomas 1 - pt/br - true 2 - en - false tbl palavras_base 1 - cabelo 2 - mulher tbl palavras 1 - 1 - hair - 2 2 - 2 - woman - 2 ao se fazer o select buscando por um campo: sql="select * from palavras_base where palavra='cabelo'" se a palavra fosse cabelo exibiria resultados em idioma_base [pega do banco] cabelo resultados em idioma 2 sql="select * from palavras where idioma_id="&id_outro idioma&" and id_base="&id da palavra encontrada no primeiro select

eu tinha um monte de função que fiz aqui em cima disso... agora não acho mais... mais pelo q me lembro tipo que substituir a , pelo . usando os replaces do rafael ficaria: valor=50.000,00 total = Replace(Replace(valor,".",""),",",".") são dois replaces o 1 muda ponto por virgula: ficaria 50,000,00 depois do segundo: ficaria 50.000.00 para inverter tem q usar outra gambiarra... 'numero q vamos trabalhar valor=50,000.65 'mudar ponto por virgula total = Replace(valor,".","virgula") 'mudar virgula por ponto total = Replace(total,",","ponto") 'agora poe os sinais total = Replace(valor,"virgula",",") total = Replace(valor,"ponto",".") 'q resulta total=50.000,65 tendeu

não creio muito nesse negócio de sql server porque esses erros do asp se referem a um monte de erros diferente sde mesmo código... experimente fazer o seguinte... vá modificando sua dll e verificando... acredito ser nela o erro..

use a busca do fórum... http://scriptbrasil.com.br/forum/index.php?showtopic=69208

legal gostei dessa idéia.. sql="SELECT nome, setor FROM aniversariantes WHERE DateDiff ('m', dtaniversario, "&Date&" ) = 0"

funfou??? se não verifique o local do arquivo

o.0 http://www.portalmaracaju.com.br/cg_geradores/ usuarios online contador de visitas mural de recados formmail

notepad, frontpage, dreamweaver... qualquer coisa que edite html na verdade qualquer coisa que se escreva e salve,faz aquele form... e um form normal com um estilo.css e nada mais...

utilize FSO para listagem dos arquivos desta pasta.