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

    Lixo Eletronico

    Além do email do remetenta você deve também colocar um nome de remetente, ex: email.from = "blabla@blabla.com.br <Dino da Silva Sauro>"
  2. Eu uso constantemente e não vejo problemas geralmente uso também 3 includes 2 referentes a layout e 1 de conexão. Acredito que seja apenas uma requisição, voce chama a pagina asp e servidor anexa os includes, processa e devolve o html.
  3. tem um Wend sobrando no seu código (está em vermelho):
  4. cyberalexxx

    Numero

    numero = 1 response.write right("000"&numero,3)
  5. cyberalexxx

    PaginaÇÃo

    da uma olhada nisso aqui: numero = 1 response.write right("000"&numero,3) Tendeu??
  6. Não entendi porque usar uma função, não da pra fazer simplesmente assim (utilizando parte do codigo da andreia_sp)
  7. cyberalexxx

    Arquivo Txt

    Olha neste post aqui que tem um exemplo que eu fiz: http://scriptbrasil.com.br/forum/index.php...ndpost&p=292110
  8. cyberalexxx

    Asp Upload

    O ASPUpload é um componente pago, pelo erro apresentado o numero serial da licença é inválido ou pode se tratar de uma versão de avaliação expirada.
  9. Paginação é simples de fazer, da uma olhada nesse tutorial que eu sempre recomendo: http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais
  10. cyberalexxx

    Erro Update

    de um response.write na variavel sql antes de executa-la para ver se a instrução SQL esta montada corretamente. se mesmo assim tiver duvidas poste a instrução SQL pra gente dar uma olhada.
  11. cyberalexxx

    Ultimo Registro

    vou postar um esqueleto de código v c te ajuda: Sql = "Select sum(pontos) as total, nome from teste group by nome order by total desc" set rs = suaconexao.execute(sql) if not rs.eof then valormaximo=rs("total") rs.MoveLast valorminimo=rs("total") rs.MoveFirst end if Do while not rs.eof response.write rs("nome") & " - " & rs("total") & " pontos" if Cint(rs("total")) = Cint(valormaximo) then response.write "<img scr='trofeu.gif'/>" & "<br>" elseif Cint(rs("total")) = Cint(valorminimo) then response.write "<img scr='lanterna.gif'/>" & "<br>" else respose.write "<br>" end if rs.movenext loop
  12. cyberalexxx

    Ultimo Registro

    Vai ter figura para todo mundo ou só para o primeiro e pro último??
  13. cyberalexxx

    Ultimo Registro

    Descubra o numero de registros do recordset: rs_soma.RecordCount a cada registro lido adicione um valor a uma variavel exemplo: registro = 0 do while not rs_soma.eof registro = registro + 1 rs_soma.movenext loop verifique se o numero do registro é igual ao ultimo, se for insira a imagem if rs_soma.RecordCount = registro then response.write "<img src='blablabla.gif'/>' end if
  14. cyberalexxx

    Global.asa

    Tow com a impressão de que esse componente não está instalado naquele servidor... Realmente tudo indica que o componente não esta instalado, quando ao global.asa ele não é obrigatório.
  15. cyberalexxx

    Somar..

    Tenta usar Cdbl(variavel) para converter a string para numero tot_desc = Cdbl(uni_ult_med) + Cdbl(agf_med) + Cdbl(tim_med) + Cdbl(event_med) + Cdbl(dive_med)
  16. acho que aqui é a mesma duvida, da uma olha na lógica que eu postei pra ver c te ajuda http://scriptbrasil.com.br/forum/index.php...ndpost&p=353678
  17. cyberalexxx

    PaginaÇÃo

    Lógica: <% Response.write "<table>" response.write "<tr>" response.write "<td>" for x = 1 to 9 response.write x if x mod 3 = 0 then response.write "</td><td>" else response.write "<br>" end if next response.write "</td>" response.write "</tr>" response.write "</table>" %>
  18. cyberalexxx

    Cyberalexxx

    Tem uma pagina de busca que eu fiz com paginação em Mysql da uma olhada: <style type='text/css'> a:link, a:visited, a:active { text-decoration: underline; color: #000 } a:hover { color: #465584; text-decoration:underline } tr { background-color: #E4EAF2; font-color: #465584; font-family:Arial; font-size:12 } .erro { color: red; font-size:14; font-family:verdana; font-weight:bold } .titulo { color: blue; font-size:10; font-family:verdana; font-weight:bold } .sub { color: red; font-size:10; font-family:verdana; font-weight:bold } .barra { color: black; font-size:10; font-family:verdana; font-weight:bold } </style> <% 'titulo do sistema response.write"<p class='titulo'>Biblia Online - Versão de Demonstração<br>" response.write"Banco de Dados MySql<br>" response.write"<a href='pesquisa.asp'>[pagina principal]</a></p>" 'recuperando dados de pagina if request.QueryString("pagina") = "" then pagina=1 else pagina = Request.QueryString("pagina") end if session("palavra") = Trim(request("palavra")) if session("palavra") = "" then response.write "<p class='erro'>Nenhum critério de busca foi informado</p>" response.end end if rodape=false 'informando o numero de registros por pagina tam_pagina = 20 'cria conexão com o Banco de Dados set objconn = Server.CreateObject("ADODB.Connection") objconn.Open "Driver={mySQL}; Server=localhost; Port=3306; Option=0; Socket=; Stmt=; Database=biblia; Uid=root; Pwd=xxxxxxx;" SET objRS = Server.CreateObject("ADODB.Recordset") SET Cont = Server.CreateObject("ADODB.Recordset") '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 'abre o recordset e verifica se existem registros cont.Open session("sqlc"),objconn If Cint(Cont.Fields(0)) = 0 Then Response.Write("<p class='erro'>Nenhum registro foi encontrado</p>") response.end else quant_reg = Cint(Cont.Fields(0)) end if 'calcula o numero de paginas if quant_reg > tam_pagina then total_paginas = quant_reg/tam_pagina if (cint(total_paginas)*tam_pagina) < quant_reg then total_paginas = total_paginas+1 end if else total_paginas = 1 end if 'função que mostra a barra de navegação function barra() if rodape=false then Response.Write("<p class='sub'>Foram encontrados " & quant_reg & " registros") Response.Write("<br>Mostrando página" & pagina & " de " & FormatNumber(total_paginas,0) & "" & "<br>") else response.write "<p class='sub'>" end if If CInt(pagina) > 1 Then Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?cont=s&palavra=" & request("palavra") & "&pagina=" & pagina-1 & "'>Anterior</a>"&" "&"</b>") Else Response.Write("<class='barra'>Anterior ") End If inicio=Cint(pagina)-9 fim=Cint(pagina) + 9 for i = inicio to fim if i <> CInt(pagina) and i > 0 and i <= total_paginas then response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?cont=s&palavra=" & request("palavra") & "&pagina=" & i & "'>" & i & "</a> ") elseif i=Cint(pagina) then response.write " [<b>" & pagina & "</b>] " end if next If CInt(pagina) < total_paginas Then Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?cont=s&palavra=" & request("palavra") & "&pagina=" & pagina+1 & "'>Próxima</a></b></FONT></center>") Else Response.Write("Próxima<br><br>") End If if rodape=true then response.end end if end function barra() 'nostra barra de navegação 'posiciona o cursor na pagina desejada e abre o recordset if pagina = 1 then Inicio = 0 else Inicio=((Cint(pagina)-1)*Cint(tam_pagina)) end if sql = session("SQL") & " LIMIT " & Cint(Inicio) & "," & Cint(tam_pagina) objRS.Open SQL,objconn 'mostra os dados response.write "<br><table>" i=0 Do While Not objRS.EOF resultado=objRs.fields("texto") for x = 0 to Ubound(busca) color="<font color=blue>"&busca(x)&"</font>" resultado=replace(resultado,""&Lcase(busca(x))&"",""&color&"") busca4=Ucase(left(busca(x),1)) b=Lcase(right(busca(x),len(busca(x))-1)) busca2=busca4&b color="<font color=blue>"&busca2&"</font>" resultado=replace(resultado,""&busca2&"","<b>"&color&"</b>") next response.write "<tr><td><a href='" & "result.asp?livro=" & objRS.fields("Livro") & "&cap=" & objRS.fields("Capitulo") & "&ver='>" & objRS.fields("Livro") & "," & objRS.fields("Capitulo") & "," & objRS.fields("Versiculo") & "</td><td>" & resultado & "</tr>" objRS.MoveNext i=i+1 Loop%> </table> <% rodape=true barra() 'exibe barra de navegação 'fecha e destroi conexões objRS.Close : objconn.Close Set RS = Nothing : Set objconn = Nothing SQLC.close : set SQLC = nothing %>
  19. cyberalexxx

    Data

    No primeiro Session.LCID voce colocou o valor de 1046 mais o correto é 1033, primeiro voce monta a instrução SQL no formato americano, depois voce muda para o formato brasileiro para exibir os dados
  20. cyberalexxx

    Data

    Caso você utilize access vou deixar aqui um exemplo que evita problemas em busca entre datas: 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
  21. cyberalexxx

    Ajuda Com Sistema De Busca

    O primeiro passo é aprender a fazer uma paginação, aqui vai um bom tutorial: http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais
  22. supondo que voce queira somar os totais de cada usuário voce faria assim: Select sum(valor) as total, usuario, codigo from debitos group by usuario
  23. cyberalexxx

    Validação

    qual o método de upload (com ou sem componente)?? Se for com componente, qual??
  24. cyberalexxx

    Sab/dom

    tenta assim: <% Data_inicial = Cdate("05/05/2006") Data_final = Cdate("05/06/2006") dias = (data_final - data_inicial) + 1 data = data_inicial dias_uteis = 0 sabados = 0 domingos = 0 for x = 1 to dias if weekday(data) = 7 then sabados = sabados + 1 end if if weekday(data) = 1 then domingos = domingos + 1 end if data = data + 1 next response.write "Total de Dias entre o período: " & dias & "<br>" response.write "Numero de Sábados: " & sabados & "<br>" response.write "Numero de Domingos: " & domingos & "<br>" response.write "Numero de dias uteis: " & dias - sabados - domingos %>
  25. cyberalexxx

    Função

    Javascript!! Quer que eu mova pra lá???
×
×
  • Criar Novo...