Ordenando arrays - Bubble Sort ASP

Este algoritmo de ordenação de array é provavelmente o mais conhecido e também o mais eficaz

<%
Dim arrValue
arrValue = Array(12,24,51,24,15,35,15,65,418)

Function BubbleSort(arrInt)
for i = UBound(arrInt) - 1 To 0 Step -1
for j= 0 to i
if arrInt(j)>arrInt(j+1) then
temp = arrInt(j+1)
arrInt(j+1) = arrInt(j)
arrInt(j) = temp
end if
next
next
BubbleSort = arrInt
end function

response.write Join(BubbleSort(arrValue),",")
%>

Postado por www.leolima77.com.br

Reformulação Leolima77.com.br

Essa semana resolvi mudar o meu site(www.leolima77.com.br). Troquei o sistema todo para uma ferramenta ASP.NET fantástica(blogengine.net).

Ficou como um blog para facilitar a atualização e sendo ASP.NET facilita a manutenção também

Vejam como ficou www.leolima77.com.br

abs

Função para Validar CNPJ em ASP

Tive dificuldades para validar um formulário com CNPJ esses dias, portanto segue uma função que faz o trabalho retornando TRUE ou FALSE

OBS: O código não é meu, fiz algumas correçoes e adaptações, créditos para o autor que não sei quem é =(

<%

function ValidaCNPJ(cnpj)

     Dim RecebeCNPJ, Numero(14), soma, resultado1, resultado2

     if cnpj > 14 then

          cnpj = right(cnpj, 14)

     end if



     RecebeCNPJ = cnpj

     s = ""

     for x = 1 to len(RecebeCNPJ)

          ch = mid(RecebeCNPJ,x,1)

          if asc(ch) >= 48 and asc(ch) <= 57 then

               s = s & ch

          end if

     next

     RecebeCNPJ = s

     if len(RecebeCNPJ) <> 14 then

           CnpjErro = false

     else

          if RecebeCNPJ = "00000000000000" then

               CnpjErro = false

          else



               Numero(1) = Cint(Mid(RecebeCNPJ,1,1))

               Numero(2) = Cint(Mid(RecebeCNPJ,2,1))

               Numero(3) = Cint(Mid(RecebeCNPJ,3,1))

               Numero(4) = Cint(Mid(RecebeCNPJ,4,1))

               Numero(5) = Cint(Mid(RecebeCNPJ,5,1))

               Numero(6) = CInt(Mid(RecebeCNPJ,6,1))

               Numero(7) = Cint(Mid(RecebeCNPJ,7,1))

               Numero(8) = Cint(Mid(RecebeCNPJ,8,1))

               Numero(9) = Cint(Mid(RecebeCNPJ,9,1))

               Numero(10) = Cint(Mid(RecebeCNPJ,10,1))

               Numero(11) = Cint(Mid(RecebeCNPJ,11,1))

               Numero(12) = Cint(Mid(RecebeCNPJ,12,1))

               Numero(13) = Cint(Mid(RecebeCNPJ,13,1))

               Numero(14) = Cint(Mid(RecebeCNPJ,14,1))



               soma = Numero(1) * 5 + Numero(2) * 4 + Numero(3) * 3 + Numero(4) * 2 + Numero(5) * 9 + Numero(6) * 8 + Numero(7) * 7 + Numero(8) * 6 + Numero(9) * 5 + Numero(10) * 4 + Numero(11) * 3 + Numero(12) * 2

               soma = soma -(11 * (int(soma / 11)))



               if soma = 0 or soma = 1 then

                    resultado1 = 0

               else

                    resultado1 = 11 - soma

               end if



               if resultado1 = Numero(13) then

                    soma = Numero(1) * 6 + Numero(2) * 5 + Numero(3) * 4 + Numero(4) * 3 + Numero(5) * 2 + Numero(6) * 9 + Numero(7) * 8 + Numero(8) * 7 + Numero(9) * 6 + Numero(10) * 5 + Numero(11) * 4 + Numero(12) * 3 + Numero(13) * 2

                    soma = soma - (11 * (int(soma/11)))



                    if soma = 0 or soma = 1 then

                         resultado2 = 0

                    else

                         resultado2 = 11 - soma

                    end if



                    if resultado2 = Numero(14) then

                         CnpjErro = true

                    else

                         CnpjErro = false

                    end if

               else

                    CnpjErro = false

               end if

          end if

     end if

ValidaCNPJ = CnpjErro

end function

%>

Para utilizar essa função faça o seguinte:

if ValidaCNPJ(request.form("campoCNPJ")) = true then
    response.write("CNPJ Válido")
else
    response.write("CNPJ inválido")
end if

abs

Topo no linkk

Fui dar uma olhada no linkk um dia desses e tive uma surpresa boa:



Tava na home e era a primeira da página

A primeira vez a gente nunca esquece! rs

abs

Olimpiadas 2008 - Video DGABC YouTube

Mais um projeto ASP.NET e tableless que desenvolvi

http://home.dgabc.com.br/canais/olimpiadas/2008/

Estou usando nesse site um esquema diferente de URL Amigavel, não sei se funcionará nos buscadores, vamos ver, se der certo posto como se faz!

Quem tiver algum comentário ou sugestão manda ae!

Uma outro projeto muito legal foi a seção de vídeo do Diário do Grande ABC (http://video.dgabc.com.br), onde é feito o upload do vídeo internamente, gerada a imagem via "FFMPEG" e enviado para o servidor streaming terceirizado.
O sistema deixa o usúario a vontade para enviar um arquivo de video ou cadastrar do youtube mesmo, como não temos uma alta demanda ainda, temos que alternar entre as 2 opções.
Desenvolvi o player em flash ("ohhhhhhhh...rs")...flash não é minha praia ainda, estou engatinhando porem de vez em quando sai alguma coisa funcional =P

Se tiverem sugestões mandem tambem

abs