Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
  • Total de itens

    2.500
  • Registro em

  • Última visita

Tudo que cyberalexxx postou

  1. cyberalexxx

    Máx Caracteres

    Resolvi testar isso e consegui passar 2021 caracteres. Segue abaixo o script que eu fiz para testar isso: <script language='VBScript'> function qtdade() for x = 1 to document.formulario.limite.value variavel=variavel & "1" next document.formulario.teste.value=variavel end function </script> <% response.write "<form method='get' name='formulario' action='" & request.servervariables("script_name") & "'>" response.write "Qtdade para teste:<input name = 'limite' type='text' value='1' Onblur='qtdade()'>" response.write "<input readonly='true' name = 'teste' type='text' value='" & variavel & "'>" response.write "<input type='submit' value='testar' name='botao'>" response.write "</form>" if request("botao") = "testar" then response.write "tamanho da string: " & len(request("teste")) end if %>
  2. cyberalexxx

    Máx Caracteres

    Normalmente se fala de no máximo até 255 caracteres, mais já li uma vez que o limite seria de 1KB.
  3. cyberalexxx

    Datas E Bd - Dúvidas

    beleza!!! To fechando o tópico!!!
  4. cyberalexxx

    Problemas Com Enquetes

    explica melhor a estrutura de suas tabelas.
  5. cyberalexxx

    Erro!

    beleza!! Tópico Fechado!! Caso tenha mais alguma duvida, mande PM para alguém da moderação que o tópico é aberto novamente.
  6. Este codigo vai pegar 4 registros pular o primeiro e exibir os tres restantes. <% sqlstmt = "SELECT top 4 * FROM noticias ORDER BY data, id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, Dados, 1, 1 x=0 Do while not Rs.Eof if x > 0 then fotel = rs("foto") date1 = rs("data") id = rs("ID") name1 = rs("titulo") link = "<a href='view.asp?id=" & id & "'>" & name1 & "</a>" description = date1 end if x=x+1 %><font size="1"> </font> <tr> <td width="36"> <% if rs("foto") = "N" then %><font size="1"> </font> <font size="1"> <% else %> <% end if %> <font size="1"> </font> <tr> <td width="187"> <% if rs("foto") = "N" then %><font size="1"> </font> <font size="1"> <% else %> <% end if %></font></b><p><b><font face="verdana" size="1" color="#800000"> <%=description%></font></b><font size="1"> <% =link %> <%Rs.MoveNext loop%> <br>
  7. cyberalexxx

    Erro!

    Esta certo sim!!
  8. cyberalexxx

    Datas E Bd - Dúvidas

    Uma coisa muito comum que percebo é o seguinte: O SQL só fala ingles e o Access fala português, já tive problemas com faixa de datas e consegui solucionar assim: anoi=year(Request.Form("DATA1")) mesi=month(Request.Form("DATA1")) diai=day(Request.Form("DATA1")) anof=year(Request.Form("DATA2")) mesf=month(Request.Form("DATA2")) diaf=day(Request.Form("DATA2")) Session.LCID=1033 ComandoSQL = "SELECT * FROM OS WHERE DATA BETWEEN #" & DateSerial(anoi,mesi,diai) & "# and #" & DateSerial(anof,mesf,diaf) & "# ORDER BY DATA ASC" Set bd = Conexao.Execute(ComandoSQL) Session.LCID=1046
  9. cyberalexxx

    Erro!

    antes de abrir o recordset de um response.write na variavel sql pra ver c ela esta sendo montada da forma desejada, se mesmo assim tiver duvidas poste o resultado aki.
  10. Neste exemplo as tags html não seriam ignoradas???
  11. Um exemplo de conexão que eu uso: set objconn = Server.CreateObject("ADODB.Connection") objconn.Open "Driver={mySQL}; Server=localhost; Port=3306; Option=0; Socket=; Stmt=; Database=lcom; Uid=cyberalexxx; Pwd=xxxxxxx;" voce instalou o Driver ODBC do Mysql???
  12. cyberalexxx

    Data

    melhor no inicio do script
  13. cyberalexxx

    Data

    Session.LCID=1046
  14. cyberalexxx

    Noticias Com Fotos

    pra fazer isso teria que analisar todo o sistema. pois certamente para uma mudança dessa seria necessário alterar varios scripts do sistema.
  15. cyberalexxx

    Mais Cracteres Em Access

    qual o tipo do campo?? se for texto troque para memorando
  16. Olha aki um exemplo, testa que fiz agora e to sem IIS pra testar. <% texto="teste 123 teste 123 teste" tamanho = len(texto) response.write "Tamanho da string: " & tamanho & "<br>" for i = 1 to tamanho if Isnumeric(mid(texto,i,1)) = true then numeros = numeros & mid(texto,i,1) end if next response.write "Numeros da String: " & numeros %> Que a força esteja com voce!!
  17. masi dai vai ocorrer aquele problema que eu tinha citado, ele só vai exibir o segundo nome que está na variavel nome1 se ele não encontrar nenhum registro que está em nome entende ?? quando na verdade ele teria que exibir todos os registros que tenham esses coisa nomes !! Quando lhe indiquei o UNION nem testei o uso do OR, mais agora resolvi testar e funcionou normalmente. Ps: Não testei via script apenas digitei o select no MySQL Query Browser
  18. beleza!! Eu tinha invertido os cromossomos []'s
  19. foi caca minha, olha aki: <% function Datas(x) if not x = "" Then y=split(x,"/") Dia = y(0) Mes = y(1) Ano = y(2) If Len(Dia) = 1 Then Dia = "0" & Dia If Len(Mes) = 1 Then Mes = "0" & Mes Datas = Ano & mes & dia end if end function vardata = Datas(Request.Form("opera_busca")) response.Write(vardata) response.End() %>
  20. <% function Datas(x) if not x = "" Then y=split(x,"/") Dia = x(0) Mes = x(1) Ano = x(2) If Len(Dia) = 1 Then Dia = "0" & Dia If Len(Mes) = 1 Then Mes = "0" & Mes Datas = Ano & mes & dia end if end function vardata = Datas(Request.Form("opera_busca")) response.Write(vardata) response.End() %>
  21. cyberalexxx

    Tratamento De Valores

    voce já deu um response.write nas variaveis peso e altura pra ver c os valores estão corretos?? Outra coisa: troque a linha : if instr(rs("altura"),".") = 1 then por: if instr(rs("altura"),".") > 0 then
  22. cyberalexxx

    Tratamento De Valores

    poste o seu script. destaque a linha do erro. e mostre o erro que esta dando.
  23. cyberalexxx

    Tratamento De Valores

    voce separou bem a equação com parenteses?? tipo: (((peso/100)/(altura/100))*(altura/100))
×
×
  • Criar Novo...