Ir para conteúdo
Fórum Script Brasil

Rafael Spilki

Veteranos
  • Total de itens

    1.583
  • Registro em

  • Última visita

Posts postados por Rafael Spilki

  1. Acrescentando ao que o Bareta já colocou:

    -verificar se o campo do bd está formatado como data;

    -verificar qual tipo está configurado neste campo do bd, podendo estar com as opções: em branco, ou data abreviada... de outras formas pode não funcionar...

    []'s

  2. Grande Jonh... Poisé... não to conseguindo corrigir isso... mas enfim, as conexões são sempre fechadas... em todas as páginas em que preciso abrir a conexão eu as fecho logo em seguida, sempre assim que possível.

    Retorno: quanto aquele script de linhas vou te mandar um retorno até o final da semana sem falta!

    []'s

  3. Basta tirar o título de dentro do loop:

    %  
    Dim objRs, x, strquantidade, data  
    data = request.QueryString("data")  
    Set objRS = Server.CreateObject("Adodb.recordset")  
    call  Abreconexao  
    strquantidade = request.querystring("quantia")  
    session("quantia") = strquantidade  
    if session("quantia") = "" then  
      objrs.pagesize = 40  
    End if  
      objRs.open "Select * From galeria where data = '"&data&"' order by id" , Objconn, 3, 3  
     %>
    
    Coloca o titulo aqui!!!
    <%  
      while  NOT objRs.EOF  
    %>  
                                        
    <a href=<%=objrs("Foto")%> class="highslide" onclick="return hs.expand(this)"> <img src=<%=objrs("Minifoto")%> alt="AS"  
                    title="Clique sobre a imagem para amplia-la" /></a>    
                                            <div class="highslide-caption"> <%=objrs("Evento")%> </div>  
            <span style="line-height:25%; margin-top:0; margin-bottom:0;">  
            <%  
    if x mod 3 = 0 then  
      
    end if  
    x = x + 1  
    ObjRs.movenext  
    wend  
    %>

  4. É... mas olha só... em se tratando de e-mail não é só o seu computador e o server na parada não...

    Do server pra fora tb pode influenciar no funcionamento geral da coisa...

    Nos mantem informados aí do posicionamento do suporte...

    Isso aí é muito importante!

  5. Cara... quando funcionar não esqueça de colocar a solução...

    Agora entendi o seu erro...

    você estava setando a variável erradamente...

    Pela lógica você queria que se viesse do bd um registro com uma palavra específica dar o replace por outra né?

    Então... você tem que setar a variavel do bs antes do replace... e colocar isso em uma condicional do tipo:

    teste = rs("campobd")
    if teste = "palavra" then
    teste = "palavramodificada"
    end if
    
    
    strBody=replace(teste,"{{",chr(34)&"&")
    strBody=replace(strBody,"}}","&"chr(34))

    Minha sugestão seria essa... como você fez pra resolver?

    []'s Rafael Spilki

  6. peraí... não entendi... você disse que assim está funcionando perfeito:

    nome = "Funciona"
    strBody="Prezado(A)<p>"&nome&"</p>"
    call mandaremail(rememail,destemail,assunto,strBody)
    mais uma coisa... daonde vem "campo"
    strBody=replace(regs.Fields("campo"),"{{",chr(34)&"&")
    strBody=replace(strBody,"}}","&"chr(34))

    ?

    Confirma isso?

    Se sim, posta como você está imprimindo a variavle vinda do bd... porque certamente deve ser ai o problema!

    []'s

  7. Cara... pior é que pra mim só existem três coisas que poderiam influenciar isso:

    1) Capacidade de processamento do server;

    2) Banda do link de dados do server;

    3) Velocidade de conexão local à internet;

    Por isso que ainda não te dei retorno sobre aquele app de e-mails... porque fiz alguns testes por aqui e o server praticamente trava enquanto ta operando esse tipo de script... Não por conta do processamento, mas até mesmo por limitações de conexão de IIS e bandas...

    Teria uma quarta questão... estruturação de scripts... mas isso tenho certeza que não é o seu caso! ;)

    O melhor que fiz pra amenizar esse problema foi melhorando a velocidade de conexão...

    Cara... agora mudando de saco pra mala... da uma olhadinha nisso uma hora que tu tiver um tempinho:

    http://scriptbrasil.com.br/forum/index.php?showtopic=140342

    []'s

  8. Sim! É possível!

    Sim! É mais fácil do que parece!

    você deverá usar ASPPDF para fazer isso... procure no google a respeito...

    Com ASPPDF você vai conseguir gerar um pdf com as suas etiquetas o que vai garantir o bom funcionamento na hora de imprimir...

    qualquer dúvida posta aí!

    []'s

  9. você não fez o que foi dito não... se tivesse feito teria dado certo...

    Se deu erro na linha 121 cadê a linha? Derepente é outro erro nada a ver com o problema em questão...

    To com o Bareta... tá faltando atenção de sua parte!

    O que você quer é simples e tem a varrer exemplos disso no google...

    Além disso, penso já ter informações suficientes nesse tópico para responder sua dúvida...

    Dá uma lida com calma, pesquise no google, estude!

    []'s

  10. Pessoal, bom dia!

    Mês passado experimentei uma dificuldade com o IIS no DataCenter... que só foi resolvida com a alteração de servidor...

    Hj estou experimentando o mesmo problema localmente! Garanto que não tem nada de errado nos scripts...

    O que acontece é o seguinte:

    Quando uma página abre a conexão com o bd funciona tranquilo, mas logo depois se redireciono para outra página que precise abrir novamente conexão da esse erro aqui:

    Tipo de erro:

    Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

    [Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x514 Thread 0x610 DBC 0x760024 Jet' do Registro.

    Antes que me perguntem, já fiz sim o tema de casa! Já pesquisei a valer pelo google a fora... encontrei links interessantes, como esse aqui:

    http://support.microsoft.com/kb/315456/pt

    http://littleoak.wordpress.com/2009/02/17/...r-process-0x61/

    Já fiz inúmeros procedimentos para tentar solucionar essa bronca... inclusive já tentei reinstalar o IIS, mas nada ajudou... Ex.:

    - Já vi e revi as permissões do arquivo do bd e nas configurações do IIS;

    - já vi e revi as permissões da pasta TEMP;

    - Já vi e revi as permissões da conta usada no acesso à página à chave do Registro HKEY_LOCAL_MACHINE\SOFTWARE\ODBC.

    O que notei, é que algumas permissões, após reiniciar o windows ou até mesmo logo depois de aplicar voltam a posição antiga! porque será?

    Se aguardo algum tempo... uns 3 ou 5 minutos volta a funcionar perfeito... o erro só ocorre mesmo se abro/fecho abro/fecho a conexão com bd em sequencia...

    Alguém sabe alguma alguma informação que possa trocar para que eu possa acertar isso?

  11. Sim... porque ao invés de colocar apenas fora do loop você colocou após fechar o recordset e inclusive a conexão com o bd...

    tente assim:

    <%
    Set objCon = Server.CreateObject("ADODB.Connection")
    objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False"
    
    sql = "SELECT * FROM Noticias"
    
    set rs=objCon.Execute(sql)
    
    
    'if not rs.eof then
    <a target="_top" href="detalhes_noticias.asp?acao=V&id=<%=rs("id")%>"> Visitar link</a>
    'while not rs.eof%>
    
    
    
    <%
    'rs.movenext
    'wend
    'end if
    rs.close
    set rs=nothing
    
    %>

    []'s Rafael Spilki

  12. Cara... seu código está meio desorganizado... vou te dar a lógica... você organiza a coisa e depois posta aqui caso tenha dado algum erro:

    Pagina 1.asp

    inputs de login e senha com form mandando por POST para 2.asp
    Pagina 2.asp
    resgata variaveis
    login = request.form ("login")
    senha = request.form ("senha")
    
    Consulta ao bd e ve se existe
    
    if rs.eof then
    response.write "erro"
    else
    cria sessions...
    
    session("sessao") = true
    session("login") = login
    session("senha") = senha
    
    if err = 0 then
    response.redirect ("3.asp")
    3.asp
    <%
    login = request.cookies("login")
    
    IF sessao <> "True" then
    response.write "Deve se logar!"
    
    else
    response.write "Você está logado e sua sessão é válida, veja: seu login = "&session("login") & " e sua senha é = " & session("senha")
    End IF
    
    %>

    Faça isso... não use o dw... use o bloco de notas... ou se usar o dw não use os códigos prontos dele! Depois disso teste... não funcionando poste aqui seus códios da forma que ficaram e a mensagem de erro!

    []'s Rafael Spilki

  13. use o between... de uma pesquisadinha no google...

    é mais ou menos assim:

    where data BETWEEN #"&(datai)&"# and #"&(dataf)&"#

    não esqueca que se usarbd acess deverá abracar as variaveis datas com #(cerquilha)...

    qualquer. coisa posta aí...

    []'s Rafael Spilki

  14. Olha amigo... o jeito será gravar em sessions os dados anteriores a modificação... caso haja arrependimento você clica num link como "me arrependi" que encaminha para uma nova página e essa carrega um novo form colocando nos values dos inputs os valores que estão nas sessions....

    Muito diferente disso não tem como porque a questão é que asp é lado servidor e a sua dificuldade é no lado cliente... entende porque não dara muito certo da forma que estás tentando?

    []'s Rafael Spilki

  15. Grande Jonh! Já mandei a avaliação do torneio viu?

    Olha chê... a oferta é ótima... e seria idiotice não aceitar! Quem sabe me passei em algo!?!? Se puder manda mesmo! Sabe meu e-mail né? Prometo testar com muito carinho e postar aqui o resultado do teste! Mas confesso que não acredito muito! Fiz milhões de testes e tentativas diferentes... Mas cara... se eu conseguisse solucionar isso seria muuuuuuuito bom mesmo!

    Enfim, fico no teu aguardo meu amigo!

    []'s Rafael Spilki

×
×
  • Criar Novo...