Jump to content


cinraq's Content

There have been 66 items by cinraq (Search limited from 24/11/2019)



Ordernar por                Order  

#172540 Organização

Posted by cinraq on 21/08/2003, 08:51 in ASP

Na verdade ele está organizando assim porque o campo da tabela está em formato de texto, então ele reconhece apenas o primeiro número e o organiza por ordem do primeiro. Assim, ou você muda o campo da tabela, o que acho mais difícil, ou muda a instrução para :

ORDER BY clng(variável) DESC



#92941 Erro 80004005

Posted by cinraq on 06/05/2003, 10:24 in ASP

Se o código estiver correto a estrutura dos diretórios não iria influenciar em nada, mas fica difícil analisar assim, tente postar o código da página que faz a conexão com o bd aqui...

:D :D

tô di vorta, muito lentamente mas tô



#35788 Desafio para experts no assunto

Posted by cinraq on 03/02/2003, 00:34 in ASP

Bom, eu consegui ver o código dele, agora só estou esperando a resposta, huahuahua...........



#31926 Meus Favoritos

Posted by cinraq on 28/01/2003, 16:54 in HTML, CSS e Metodologias

pelo q eu entendi vc quer adicionar um site aos favoritos e mais tarde visitá-lo sem entrar na net...
existem vários programas para baixar websites... tente achar no Superdownloads e noBaixaki
se naum for isso, me corrija!!

Na verdade não é bem isso que estou procurando, quero salvar o conteúdo dos meus favoritos do cliente em algum lugar entendeu? Eu até encontrei alguma coisa, mas não estou conseguindo dar partida nisso, vejam o que eu encontrei:

// 'true' indica que os favoritos serão importados do server(o nome do arquivo é bookmark.html.
window.external.ImportExportFavorites(
     true,"http://www.seusite.com.br");

// 'false' indica que os favoritos serão exportados do server(o nome do arquivo é bookmark.html.
window.external.ImportExportFavorites(
     true,"http://www.seusite.com.br");



// Se a string que recebe o endereço estiver vazia uma caixa para procurar o arquivo bookmark.html é aberta
window.external.ImportExportFavorites(false, "");


A partir daí acho que tem uma solução, mas não estou conseguindo pensar, se alguém souber... :huh:



#31572 Favoritos

Posted by cinraq on 28/01/2003, 04:29 in ASP

Pessoal, até postei na seção DHTML,JavaScript, etc... Mas talvez em ASP/VBScript também dê pra fazer, bem... vamos lá, quero pegar o conteúdo dos favoritos do cliente, pra salvar eu dou um jeito, mas quero saber se alguém sabe como fazer para pegar, já vai ser uma ajuda e tanto. :o



#31550 Meus Favoritos

Posted by cinraq on 28/01/2003, 02:28 in HTML, CSS e Metodologias

Por exemplo... eu tenho em meus favoritos, http://www.wmonline.com.br e http://forum.wmonline.com.br, então uma função que pegue esse conteúdo e mande pra uma caixa de texto, ou algo parecido.



#31528 Meus Favoritos

Posted by cinraq on 28/01/2003, 01:55 in HTML, CSS e Metodologias

Pessoal, alguém sabe se dá pra pegar o conteúdo dos "meus favoritos" do cliente? Mesmo que exista uma caixa de diálogo pra confirmação, ou algo parecido... :o



#31509 Como uso tabelas?

Posted by cinraq on 28/01/2003, 01:23 in Dreamweaver

Cara, hoje eu fiz uma função em JavaScript para meu site, tá bem simples mas funciona com certeza, ela pega a definição de vídeo do cliente e depois coloca o layer "em seu devido lugar", dá uma olhada:

function layer(){
var tela_width,meulayer

//aqui estou pegando a definição do vídeo do cliente e atribuindo a uma variável
tela_width = screen.width

//aqui eu declaro qual o layer será modificado, onde está XXX vc coloca a id de seu layer
meulayer = document.getElementById('XXX')

//lembre-se que aqui somente está atribuido o valor horizontal do layer, caso você precise do valor vertical também o atributo é top no lugar de left
if(tela_width == 1024){
   meulayer.style.left = 855
} else if(tela_width == 1152){
   meulayer.style.left = 935
} else if(tela_width != 800 && tela_width != 640){
   alert("Suas definições de vídeo não permitem que essa página seja corretamente exibida. \n As melhores definições são: \n \t 640X480(pouca definição mas conteúdo intacto) \n \t 800X600(boa visualização) \n \t 1024X768(boa visualização) \n \t 1152X864(média visualização)")
} 

}

depois é só chamar a função em:
<body onLoad="layer()">



#31223 Hospedagem ASP/MS Access

Posted by cinraq on 27/01/2003, 16:10 in ASP

Também existe o iphotel, eu hospedo lá e nunca tive problemas.



#30256 Agora que Já Consegui o Pws

Posted by cinraq on 25/01/2003, 19:44 in ASP

Bom primeiramente, não adianta só querer pegar códigos prontos e colocar no seu site, nada é tão fácil assim. Você tem que estudar um pouquinho, recomendo que você leia umas apostilas, faça um curso (o webaula tem um curso online gratuito), vai ser sempre difícil você encontrar alguém disposto a montar alguma coisa pra você como um portal, oui um fórum, pra você gratuitamente.

Agora, quanto ao pws, pra saber mais como configurar e trabalhar com ele acesse: http://www.construin...instalando.shtm



#30119 FunçõEs Prontas

Posted by cinraq on 25/01/2003, 15:25 in Banco de Funções ASP

CÓDIGO PARA VER OS COMPONENTES INSTALADOS NO SERVIDOR:

arquivo componentes.asp
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(11)
Dim theComponentName(11)

' componentes
theComponent(0) = "ADODB.Connection"
theComponent(1) = "SoftArtisans.FileUp"
theComponent(2) = "AspHTTP.Conn"
theComponent(3) = "AspImage.Image"
theComponent(4) = "LastMod.FileObj"
theComponent(5) = "Scripting.FileSystemObject"
theComponent(6) = "SMTPsvg.Mailer"
theComponent(7) = "CDONTS.NewMail"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10) = "Persits.Upload.1"
theComponent(11) = "UnitedBinary.AutoImageSize"

' apelido do componente!
theComponentName(0) = "ADODB"
theComponentName(1) = "SA-FileUp"
theComponentName(2) = "AspHTTP"
theComponentName(3) = "AspImage"
theComponentName(4) = "LastMod"
theComponentName(5) = "FileSystemObject"
theComponentName(6) = "ASPMail"
theComponentName(7) = "CDONTS"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
'theComponentName(10) = "Persits Upload"
theComponentName(11) = "AutoImageSize"

Function IsObjInstalled(strClassString)
On Error Resume Next

IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<html>
<head>
<title>Componentes encontrados - www.asparena.eti.br </title>
</head>
<body>
<table>
<tr>
<td align="center"><b>Componentes 
instalados:</b></font></td>
</tr>
<tr>
<td> <font face="Arial" size="2">
<table border=1>
<% 
Dim i
For i=0 to UBound(theComponent)
If Not IsObjInstalled(theComponent(i)) Then

Else
Response.Write "<tr>" & vbCrLf
Response.Write "<td width=""100%"">" & vbCrLf
Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
Next 
on error goto 0
%>
</table>
</font> 
</td>
</tr>
</table>
</BODY>
</HTML>



#30116 Utilizar o JMail - URGENTE

Posted by cinraq on 25/01/2003, 15:21 in ASP

Esse erro significa que o seu servidor não tem esse componente instalado. Qual o host você está usando? Contate-o para verificar quais os componentes estão instalados.

Veja que neste tópico tem um código para testar quais os componentes estão instalados no servidor:
http://forum.wmonlin...=5&t=5214&st=0



#30113 Erro 405 http

Posted by cinraq on 25/01/2003, 15:19 in ASP

Cara, ele dá a linha que acontece o erro? copie e cole a página completa onde acontece o erro. Eu acho esses códigos gerados pelo dreamweaver muito estranhos, grandes demais, as vezes desnecessários, difíceis de entender completamente. Mas podemos tentar.



#30070 FunçõEs Prontas

Posted by cinraq on 25/01/2003, 14:08 in Banco de Funções ASP

UPLOAD DE ARQUIVOS EM ASP.NET, FUNCIONA NO BRINKSTER.

O brinkster não possui componentes para upload de arquivo mas tem uma solução é em Asp.Net, com esse código que vou passar, só outra coisa, como a única pasta que tem permissão de gravação é a db, somente lá funcionará esse código, mas dentro dessa pasta você também pode criar outros diretórios que vão possuir também permissão de gravação.

arquivo upload.aspx
<script language="VB" runat="server">

	Sub Upload( Sender As Object, e As System.EventArgs )

  Dim sPath as String
  Dim sFile as String
  Dim colFiles As System.Web.HttpFileCollection   
  Dim i As System.Int32

    sPath = Server.MapPath(".")
      If Right(sPath, 1) <> "\" then sPath = sPath & "\"

    msg.Text=""
    colFiles = System.Web.HttpContext.Current.Request.Files 
    
   Try

  For i = 0 To colFiles.Count - 1 

    sFile = System.IO.Path.GetFileName( colFiles(i).FileName )         
   If sFile <> "" then 	 
    colFiles(i).SaveAs( sPath & sFile )
    msg.Text = msg.Text & "<br>" & sFile & " - <font color=red>Salvo</font>"
   End If

  Next

  Catch Ex as Exception
    msg.Text = msg.Text & "<br>???? " & sFile & " ??,?????: " & Ex.Message

   End Try

   If msg.Text = "" then msg.Text = "<br> - Salvo"

	End Sub

</script>
<html>
<head>
<title>Multiple File Upload Example</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>

      <form enctype="multipart/form-data" runat=server>
          
  <table border="0" cellspacing="0" cellpadding="4" style='border:1 solid #4358BE'>
    <tr>
      <td style='border-bottom:1 solid #4358BE;background-color:#7a96df;color:white'><b>????</b></td>
    </tr>
    <tr>
   <td><input id="file1" type=file runat=server><br>
    <input id="file2" type=file runat=server><br>
    <input id="file3" type=file runat=server><br>
    
      </td>
	</tr>
    <tr>
      <td align=right><asp:button id=Uploadbtn Text="Enviar" OnClick="Upload" width="70px" height="20px" runat=server/></td>
    </tr>
  </table>
  
<asp:label id="msg"  Font-Bold="True" runat=server/>

     </form>

   </body>
</html>

Você pode acrescentar quantos campos quiser, só modificar o id do campo: <input id="file3" type=file runat=server>, por exemplo file4, file5, etc...

não se esqueçam a extensão de Asp.Net é .aspx, portanto o arquivo tem que ser salvo como upload.aspx, ou outronome.aspx, ok???



#30059 FunçõEs Prontas

Posted by cinraq on 25/01/2003, 13:55 in Banco de Funções ASP

USUÁRIOS ONLINE

CÓDIGO POSTADO POR O_Chacal
Ae eu lembro que tinha umas pessoas tentando achar um codigo que mostrava quais users estao online...pois bem...este que eu fiz faz isso e sem o global.asa..ai vai o codigo..

O banco de dados:
Você deve ter um tabela com os dados dos cadastrados em seu site...
Crie uma tabela chamada online com os campos
hora - texto
ip - texto
user - texto

A página:
Na pagina em que faz o login do user adicione uma Session que loga o login do usuario. Aqui irei usar como se fosse a session login.

<% Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("online")
Conexao.Open ConStr 

agora=Time()
ip=Request.ServerVariables("REMOTE_ADDR")

If Session("login") = "" Then
user=""
Else
user=Session("login")
End If

Sql="INSERT INTO online VALUES ('"&agora&"','"&ip&"','"&user&"')"
Conexao.Execute(Sql)

Sql="DELETE * FROM online WHERE hora < Time()-60 "
Conexao.Execute(Sql)

Sql = "SELECT DISTINCT ip FROM online"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conexao, 3, 3 
If rs.EOF Then %>
Nenhum usuario está online!
<% else %>
Existem <%=rs.recordcount%> online<BR>
<% Sql1 = "SELECT DISTINCT ip FROM online WHERE user <> '' "
Set RS1 = Server.CreateObject("ADODB.Recordset")
RS1.open Sql1,Conexao, 3, 3 %>
Sendo <%=rs1.recordcount%> membros e 
<%Sql2 = "SELECT DISTINCT ip FROM online WHERE user = '' "
Set RS2 = Server.CreateObject("ADODB.Recordset")
RS2.open Sql2,Conexao, 3, 3 %>
<%=rs2.recordcount%> visitantes.<BR>
<% Sql="Select * from online"
Set rs3=Conexao.Execute(Sql)
If rs1.EOF then %>
<% else %>
Os membros online são: 
<% While Not rs1.EOF %>
<%=rs3("user")%>, 
<% rs1.MoveNext
Wend 
End If 
End If %>


------------------
EH so isso.....se pode dar umas mlehoradas e tal..espero ter ajudado..qualquer duvida perguntem..



#30055 FunçõEs Prontas

Posted by cinraq on 25/01/2003, 13:51 in Banco de Funções ASP

CÓDIGO PARA SALVAR ARQUIVOS .DOC OU .XLS

CÓDIGO POSTADO POR yaru
Gente eu estava passeando por uns links qdo descobri, que alguem havia achado a solução para salvar arquivos como os doc, pdf e xls apenas com um script em asp!


bom o artigo tá ai!


<%
'Avisamos que o modelo do arquivo será para download
response.AddHeader "Content-Type","application/x-zip-compressed"

'Identificamos o nome que queremos para o arquivo de destino
'mude o Filename para o nome que você deseja !
response.AddHeader "Content-Disposition","attachment; filename=DemonsASPFX.XLS"
Response.Flush

Response.Buffer = True
Const adTypeBinary = 1
Dim strFilePath

'O ADODB Stream foi utilizado para lermos o arquivo em formato
'binário, o FileSystemObject não permite leituras binárias e 
'se fosse convertido para texto poderíamos danificar o arquivo.
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary

'Informe aqui o caminho completo do arquivo no servidor,
'se você não souber o caminho completo, mude o "E:\Home..." por
'Server.MapPath("Nome_Do_Arquivo")
objStream.LoadFromFile "E:\Home\FatorX\Web\FXWeb\ASP\Download\DemonsASPFX.xls"

Response.BinaryWrite objStream.Read

objStream.Close
Set objStream = Nothing
Response.Flush
%>



#30054 FunçõEs Prontas

Posted by cinraq on 25/01/2003, 13:46 in Banco de Funções ASP

CODIGO PARA VER CARACTERES

CÓDIGO POSTADO POR Tarkan
Interessante... ;)
Um amigo meu pediu ontem pra eu fazer um code pra ele, que listasse letras de A até Z, para um site de letras de músicas.
É + - isso que estão postando.
Segue o código para quem precisar:

letra = "A"

while letra <> chr(asc("Z")+1)
	response.write "<a href=coco.asp?artista=" & letra & ">" & letra & "</a>&nbsp;&nbsp;"
	letra = chr(asc(letra)+1)
wend

:D



#30048 FunçõEs Prontas

Posted by cinraq on 25/01/2003, 13:37 in Banco de Funções ASP

CÓDIGO PARA VER CARACTERES

CÓDIGO POSTADO POR Firehalk

Ae pessoal,

é basico o codigo, mas é útil, para quem não sabe por exemplo que caractere é o 35, e assim por diante.. Ele lista todos os caracteres possiveis e indica o numero de cada um deles. Fiz isso por necessidade própria, mas quem quiser, aí está:

<%
For x=1 to 255
response.write "<font size=""2"" face=""verdana"">Caractere  " & x & " = <b>  " & chr(x) & "</b></font><br>"
next
%>

Abraços



#30044 FunçõEs Prontas

Posted by cinraq on 25/01/2003, 13:34 in Banco de Funções ASP

FUNÇÃO PARA VALIDAR E-MAIL.
Esta função além de validar se tem "@" e "." também verifica se possui alguns caracteres inválidos, do tipo "/" "\" e outros.

CÓDIGO POSTADO POR Tarkan
<%
Sub chkmail(variavel)
Dim VAcha, XAcha

VAcha = 0
variavel = trim(variavel)

'***** Verifica se encontrou o valor
VAcha = InStr(1, variavel, "X") 
VAcha = VAcha + InStr(1, variavel, "/")
VAcha = VAcha + InStr(1, variavel, "\")
VAcha = VAcha + InStr(1, variavel, ",", 0)
VAcha = (VAcha + InStr(variavel, "@."))
VAcha = (VAcha + InStr(variavel, ".@"))
VAcha = (VAcha + InStr(variavel, ".."))
VAcha = (VAcha + InStr(variavel, " "))
VAcha = (VAcha + InStr(variavel, "*"))
VAcha = (VAcha + InStr(variavel, CHR(34)))
VAcha = (VAcha + InStr(variavel, CHR(60)))
VAcha = (VAcha + InStr(variavel, CHR(62)))
VAcha = (VAcha + InStr(variavel, ";"))
VAcha = (VAcha + InStr(variavel, ")"))
VAcha = (VAcha + InStr(variavel, "("))
VAcha = (VAcha + InStr(variavel, ":")) 

'***** Encontra na última posição 
XAcha = InStr(Len(variavel),variavel, "@")
If XAcha = Len(variavel) Then 
VAcha = VAcha + XAcha
End If

'***** Encontra na primeira posição 
XAcha = InStr(variavel, "@")
If XAcha = 1 Then
VAcha = VAcha + XAcha
End If

'***** Verifica se existe @ 
XAcha = InStr(variavel, "@")
If XAcha = 0 Then
VAcha = VAcha + 1
End If

'***** Verifica se existe . 
XAcha = InStr(variavel, ".")
If XAcha = 0 Then
VAcha = VAcha + 1
End If

'***** Resultado 
If vAcha = 0 Then
variavel="0" 'valido
Else
variavel="1" 'inválido
End If
End Sub
%>



#30027 FunçõEs Prontas

Posted by cinraq on 25/01/2003, 13:05 in Banco de Funções ASP

FUNÇÃO PARA VALIDAR E-MAIL

<%
'FUNÇÃO QUE VALIDA O EMAIL
Function Valida_Email(strEmail)

Dim bIsValid

bIsValid = True

If Len(strEmail) < 5 Then

bIsValid = False

Else

If Instr(1, strEmail, " ") <> 0 Then

bIsValid = False

Else

If InStr(1, strEmail, "@", 1) < 2 Then

bIsValid = False

Else

If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then

bIsValid = False

End If

End If

End If

End If

Valida_Email = bIsValid

End Function

para fazer a verificação

if Valida_Email(nomedastrigdeemail) = true then
response.write "email válido"
else
response.write "e-mail inválido"
end if



#30024 FunçõEs Prontas

Posted by cinraq on 25/01/2003, 13:01 in Banco de Funções ASP

Esta seção se destina somente a postagem de códigos e funções em ASP, ASP.Net e VBScript. Se você tem alguma função que você ache interessante poste aqui para que todos tenham acesso a ela. E se você está procurando uma função procure aqui antes de postar no fórum, pois todos os tópicos abertos pedindo funções que estejam aqui serão fechados e direcionados para cá.

Estou abrindo este tópico porque às vezes em uma mesma semana existem mais de um post igual, perguntando se alguém tem aquela tal função pra isso, e pra aquilo, e a medida que os posts vão avançando elas vão ficando esquecidas e jogadas para o final do fórum até terem que ser apagadas para não sobrecarregar o banco de dados. Então espero que este tópico sirva de referência para todos, porque pra mim seria, com certeza.

Somente algumas regrinhas que peço que sejam cumpridas:
1 - Não poste aqui dúvidas
Caso tenha alguma dúvida sobre erro ou como utilizar o código abra um tópico para isso, isso para que não sobrecarregue mais ainda esta seção. Apenas comentários do postador do código serão aceitas dentro do próprio post, comentando como utilizar e comentários adicionais. E até a nota que dão para o código.
2 - Não adicione anexos nesta seção.
De forma nenhuma, caso tenha algo para dowload que complete o código, do tipo, algum banco de dados, ou outro arquivo, coloque apenas um link para ele.

Mas lembrem-se, este tópico não é para adicionar lojas virtuais, foruns, ou portais em ASP, e sim somente códigos ou funções específicas, do tipo, validação de e-mail, upload, etc. Ok? Até mais então, e qualquer dúvida me contatem.

P.S.: Estarei acrescentando umas funções postadas por outros usuários, com seus respectivos nomes, caso o postador queira adicioná-las como se fosse um post seu me avise que apagarei o meu post.


Para uma melhor organização do tópico

INDÍCE:

- Função para validar e-mail
- Função para validar e-mail '2'
- Código para ver caracteres
- Código para ver caracteres '2'
- Código para salvar arquivos .DOC e .XLS
- Usuários ON - LINE
- Up Load de arquivos em ASP.NET
- Componentes instalados no servidor
- Ver variáveis CGI
- Passar Sobre nome para frente do nome
- Mostrar apenas um pedaço de um texto ( ... )
- Verificação "real" de e-mail
- Listar tabelas de um banco de dados
- Validar CPF
- Tirar aspas simples
- Ver hora em dois paises
- Caracteres da tabela ACS
- Iniciando em ASP.NET
- Formulário postback integrando atecnologia ASP.NET
- Formatar Moedas
- Banner rotativo usando session
- Conexão Base de dados Oracle
- Inserir dados no DB
- Calcular idade
- Pegar data de uma string
- Retirar acentos e aspas
- Criptografar
- Filtro de BADWORDS
- Mostrar nome da imagem
- Select - insere e update do asp
- Calcula idade '2'
- Criptografia '2'
- Validar CNPJ

Este é o indice com todas as funções deste tópico, para achar algo com mais facilmente, digite 'CTRL + F' e digite uma palavra para a busca.



#29906 Validação de E-Mail

Posted by cinraq on 25/01/2003, 00:30 in ASP

hehe... posso me meter?
Segue um código legal também:

Esse seu é legal mesmo, já que verifica se o endereço tem outros caracteres inválidos também, tipo * / \ e outros, legal!!!!



#29885 Validação de E-Mail

Posted by cinraq on 25/01/2003, 00:09 in ASP

Bom como você queria um que fosse em ASP, tem um aki também, vou postar só como referência, já que você já conseguiu utilizar este outro:

<%
'FUNÇÃO QUE VALIDA O EMAIL
Function Valida_Email(strEmail)

Dim bIsValid

bIsValid = True

If Len(strEmail) < 5 Then

bIsValid = False

Else

If Instr(1, strEmail, " ") <> 0 Then

bIsValid = False

Else

If InStr(1, strEmail, "@", 1) < 2 Then

bIsValid = False

Else

If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then

bIsValid = False

End If

End If

End If

End If

Valida_Email = bIsValid

End Function

para fazer a verificação

if Valida_Email(nomedastrigdeemail) = true then
response.write "email válido"
else
response.write "e-mail inválido"
end if



#29878 Erru por favor me ajudem

Posted by cinraq on 25/01/2003, 00:03 in ASP

O erro está realmente no arquivo conexao.inc, mas a solução é mais simples do que parece, está faltando nesse arquivo fechar o código asp com seu delimitador %>, ou seja você abriu o código com <% e não fechou com %>, e exatamente na linha 1 desse código.



#29610 Criacao de equipe

Posted by cinraq on 24/01/2003, 12:56 in ASP

e ai Chacal, o negocio e o seguinte, fiz ja akilo que tinha te mostrado, mas como estou no trabalho agora, e o lance ta em casa, assim que chegar la te mando por mail ok? O projeto ta meio parado porque falta so o pontape inicial, quando todo mundo comecar a ver como esta vai acrescentando opinioes e codigos, assim o negocio vai pra frente

(ps.: peco desculpas pela falta de acentuacao, mas meu teclado do trabalho e americano e nao tem nem til, bom, que tem tem, ~ mas ele nao pega nas vogais, hehe. E nao tem como configurar)




IPB Skin By Virteq