Bem vindo
Voce meu irmão, voce minha irmã. Voce meu amigo, voce minha amiga. Voce de perto e a voce de longe. Este site tem por objetivo fazer as pessoas mais amigas, mais unidas e mais felizes. Abri este espaço para troca de ideias e opiniões. Pessoas desta cidade, deste Estado, deste País ou fora dele poderão passar o tempo se divertindo. Voce é muito importante para que isso se torne realidade. Espero que goste deste lugar. No FORUM voce poderá participar dando suas opiniões.
No CHAT voce poderá fazer amigos e conhecer cada vez mais as pessoas. Nas ENQUETES voce terá sempre novas opções para conhecermos os seu gosto. Esperamos que goste de nossos ARTIGOS, onde poderá deixar seu comentário. Temos também as localizações de nossas igrejas em Corumbá-MS. E na sala de HUMOR voce lerá sempre uma piada nova. E para agradar voce criaremos mais tarde novas paginas.
Então esperamos que goste do site, volte quantas vezes desejar, e indique o site para os amigos, vizinhos, parentes, etc. etc. etc...
No CHAT voce poderá fazer amigos e conhecer cada vez mais as pessoas. Nas ENQUETES voce terá sempre novas opções para conhecermos os seu gosto. Esperamos que goste de nossos ARTIGOS, onde poderá deixar seu comentário. Temos também as localizações de nossas igrejas em Corumbá-MS. E na sala de HUMOR voce lerá sempre uma piada nova. E para agradar voce criaremos mais tarde novas paginas.
Então esperamos que goste do site, volte quantas vezes desejar, e indique o site para os amigos, vizinhos, parentes, etc. etc. etc...
Minha mão em tua mão.
Uma vez pela noite mui triste ma achava,
Num intenso e terrível negror,
E ao sentir-me tão só eu clamei: ó Pai,
Não escondas Teu rosto de amor.
Minha mão em Tua mão
Quero Ter ao seguir
Daqui ao distante lar.
Vem me guiar com Teu amor,
Sempre junto de Ti, Senhor.
Poderei, qual um rei, habitar um palácio,
Ter poder e riquezas na mão,
Mas mui triste serei se estiver a sós,
Em angústia e cruel solidão.
(Hino 493 - Hinário Adventista)
<%
'-----------------------------------------------------
'Procedimento: doTagClouds(ByVal Id, ByVal Tags, ByVal Link)
'Sinopse: Gera a area das Tags Clouds com até 5 níveis de peso
'Parametro:
' Id = Id da área das tags
' Tags = Lista das tags separadas por ","
' no seguinte formato: Tag=Peso,Tag2=Peso, ...
' Link = Link para a tag (utilize [TAG] no link
' para substituir pela tag)
'Autor: Gabriel Fróes (www.codigofonte.com.br)
'Data: 20/08/2008
'-----------------------------------------------------
Sub doTagClouds(ByVal Id, ByVal Tags, ByVal Link)
Dim arrTags
Dim Cont
Dim Tag
Dim Peso
If Not Tags = "" Then
Response.Write "Nubem de Tags - Tag Clouds com ASP
<%
'Exemplo de chamada do procedimento
Dim asTags
Dim Link
asTags = "Programação=1,Asp=2,PHP=3,HTML=4,Programação=5,Asp=1,PHP=1,HTML=3,Programação=5,Asp=4,PHP=2,HTML=4,Programação=5,Asp=1,PHP=2,HTML=3,Wikipedia=1,Asp=2,PHP=3,HTML=4,JavaScript=5,Asp=1,PHP=2,HTML=3,Programação=1,Asp=2,PHP=3,HTML=4,Programação=5,Asp=1,PHP=2,HTML=3"
Link = "http://www.codigofonte.com.br/tags/[TAG]"
Call doTagClouds("tags", asTags, Link)
%>
"
arrTags = Split(Tags, ",")
For Cont = 0 To Ubound(arrTags)
Tag = Split(arrTags(Cont), "=")(0)
Peso = Split(arrTags(Cont), "=")(1)
Response.Write "" & Tag & " "
Next
Response.Write "
"
End If
End Sub
%>
Click to set custom HTML
