bareta
-
Total de itens
6.231 -
Registro em
-
Última visita
Tudo que bareta postou
-
aqui ele: <% nome = "jose|paulo|william|wellington|giuliana" total = 3 Analistas = Split(questoes, "|") For k = 0 to Ubound(Analistas) response.Write(Analistas(k) & "<br>") Next response.Write("<br><b>Sorteio dos Analistas( ):</b><br><br>") y = 1 For i = 1 to total ArrayAnalista = Split(nome, "|") Randomize() AnalistaSorteado = Rnd() * UBound(ArrayAnalista) AnalistaSorteado = CInt(AnalistaSorteado) Response.Write y & " - " & ArrayAnalista(Cint(AnalistaSorteado)) & "<br>" If Cint(AnalistaSorteado) = 0 Then nome = Replace(nome, ArrayAnalista(Cint(AnalistaSorteado)) & "|", "") Else nome = Replace(nome, "|" & ArrayAnalista(Cint(AnalistaSorteado)), "") End If y = y + 1 Next %> agora a duvida é o seguinte pra pegar os dados do bd ficaria algo assim: nome =RecSet("campo") &"|" total = 3 Analistas = Split(questoes, "|")
-
ok vou tentar modificar aquilo e pesquisar... se eu achar coloco no tópico de funções...
-
do JMAIL não conheço...
-
e ai pessoal fiz um sistema que organiza pela data mais recente mais o problema é que ele pega o maior dia.. tipo 21/04/2004 fica antes de 05/05/2004....
-
se eu entendi ele pega o componente que você escolheu e passa para o sistema né? mais ai uma duvia e o JMAIL???
-
dark você tem um tuto com mais coisas sobre tabelas??? pesquisei mais não deu certo...
-
se entendi bem você alterou o nome das tabelas e a estrutura do banco de dados né???? então você vai ter que alterar as paginas que se conectam com o banco....
-
se o que o dark disse não funcionar (dificil) você pode colcar um campo do tipo hidden no seu form com a data....(pega por um select, ai na hora do upfate ela vai ficar igual tava)
-
manda um link ou um html com o flash...
-
cria o menu inteiro deixa um pedaço dele aparecendo ai nos outros quadros você colaca ele almentando e aparecendo o resto. ai quando clica ele anda. quando clicar de novo ele volta...
-
e isso que ta bem destacado.... hehehe ta ai fio....: <% @ 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>O q tem aqui?</title> </head> <body> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes instalados:</b></font></td> </tr> <tr> <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <% 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 %> </table> </font> </td> </tr> </table> </body> </html> coloca ele no seu local host..;..
-
http://www.google.com/add_url.html entra aqui e cadastra
-
exemplos prontos tambem são bm uteis nessas ocasiões, pois você pode ver como são outros sistemas...
-
faiz uma busca de codigos prontos em outros sites de codigos prontos..
-
pois é mais você tambem pode adicionar mais um parametro com o local pra onde deve ir....
-
acho que da pra usar um replace tambem......
-
você quer o fundo transparente??????e pra mudar do retangulo acho que não da não
-
hehe vlw.........
-
sua animação ficou meio sem recursos mas tem uma ideia legal, o site tambem ficou bem legal...
-
hehe vamu lá Fábio Bareta fabiobareta@hotmail.com
