Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
  • Total de itens

    2.500
  • Registro em

  • Última visita

Posts postados por cyberalexxx

  1. Sera que não são os caracteres japas nesta variavel:

    ElseIF Instr(Guest_Soft,"unix") or Instr(Guest_Soft,"linux") or Instr(Guest_Soft,"SunOS") or Instr(Guest_Soft,"BSD") Then
     Guest_OS="类Unix操作系统"
    

  2. agora não me lembro de uma forma agil de fazer isso, que tal fazer usando o método gambi:

    for x=1 to 10 ' avançando 10 registros
       RercordSet.MoveNext
    next
    do while not RecordSet.Eof
       'mostrar os dados
       RecordSet.MoveNext
    loop
    

    Ps.: Metodo Gambi = Gambiarra

  3. voce tem que impedir q o navegador armazene o conteuda da pagina em cache, olha aki um exemplo

    Response.Expiresabsolute = Now() - 2
    Response.AddHeader "pragma","no-cache"
    Response.AddHeader "cache-control","private"
    Response.CacheControl = "no-cache"
    

  4. Tae.. Ajude-me, Obrigadão..

    SELECT CODIGO,DT_VENC,ASSUNTO,CONTATO,VALOR,STATUS,DT_EMISSAO FROM pagrec WHERE LOGIN='murta' AND EXCLUIDO='N' AND DT_VENC BETWEEN '2005-3-1' AND '2005-18-3' AND STATUS='P' ORDER BY(DT_VENC) ASC LIMIT 0,50

  5. Acabei de simular uma query igual a q voce quer em muita tabela minha e funfou na boa!! Meu BD é 4.1, veja um exemplo que funcionou comigo:

    SELECT * FROM op where banco = 341 and data = (select max(data) from op)

  6. 'separa palavras (busca com varias palavras) e cria as instruções SQL
    dim busca, onde, pesq, sql
    busca=split(request.form("chave"),chr(32))
    dim onde
    for x = 0 to Ubound(busca)
      if x > 0 then
         onde=onde + " and "
      end if
      pesq=busca(x) 
      onde=onde+"texto like '%" & pesq & "%'"
    next
      sql = "select * from tabela where " & onde & " order by campo"
    

  7. faça uma comparação com o dado do banco se for pra marcar o checkbox é só colocar um checked:

    fica mais ou menos assim:

    response.write"<input type='checkbox' name='nome' value="
    if condição=marcar then ' aki voce testa o campo 
       response.write"'ON' checked>"
    else
       response.write"'off'>"
    end if
    

  8. Olha aki um exemplo de parte de um sistema de busca que eu fiz esses dias:

    'separa palavras (busca com varias palavras) e cria as instruções SQL
    busca=split(session("palavra"),chr(32))
    dim onde
    if request("cont")<>"s" then
    for x = 0 to Ubound(busca)
       if x > 0 then
          onde=onde + " and "
       end if
       pesq=busca(x) 
       pesq = ""&pesq&""
       onde=onde+"texto like '%" & pesq & "%'"
    next
       session("sql") = "select * from texto where " & onde & " order by cdigo"
       session("sqlc") ="select count(texto) from texto where " & onde & " order by cdigo"
    end if

  9. tenta assim:´

    SET RS = Server.CreateObject("AdoDB.RecordSet")
    
    Sql = "Select Top 1 * From Bebe Order by Codigo Desc" 
    Rs.Open Sql,conexao
    ultimo = Rs.fields("codigo")
    
    StrListatesteBebe = "UPDATE Bebe SET "
    StrListatesteBebe = StrListatesteBebe & "foto = '" & foto & "' where Codigo=" & ultimo 
    Conexao.execute(StrListatesteBebe)
    

×
×
  • Criar Novo...