Conheça o Autor<meta http-equiv="Content-Language" content="pt-br"> <% '----------------------------------------------------------------------- '----------------------Script desenvolvido por ------------------------- '----------------------Heber Almeida------------------------------------ '----------------------heber@mail.com----------------------------------- '----------------------www.heberonline.com.br--------------------------- '----------------------------------------------------------------------- Dim sorteado(5) Randomize For i = 0 To 5 sort = Int(Rnd * 49) + 1 For j = 0 To i If sort = sorteado(j) Then sort = Int(Rnd * 49) + 1:j=0 Next sorteado(i) = sort Next n1 = 5 Do While n1 > 0 For i = 0 To n1 If sorteado(i) > n2 Then n2 = sorteado(i): ll = i Next sorteado(ll) = sorteado(n1) sorteado(n1) = n2 n1 = n1 - 1 n2 = 0 Loop resim="imagens/" & sorteado(i) & ".gif" %> <title>Loto</title> <div align="center"> <center> <table border="2" cellpadding="4" cellspacing="4" style="border-collapse: collapse" bordercolor="#009999" width="32%" id="AutoNumber1" bgcolor="#FFFCF9" height="255"> <tr> <td width="100%" colspan="2" bgcolor="#A8EAEA" height="22" bordercolor="#009999"> <p align="center"><b><font face="Verdana" size="2">Resultado</font></b></td> </tr> <tr> <td width="50%" height="138"> <p align="center"><b><font size="2" face="Tahoma" color="#C0C0C0"><br> </font></b><img border="0" src="imagens/<%=sorteado(0)%>.gif"> <img border="0" src="imagens/<%=sorteado(1)%>.gif"> <img border="0" src="imagens/<%=sorteado(2)%>.gif"></p> <p align="center"><img border="0" src="imagens/<%=sorteado(3)%>.gif"> <img border="0" src="imagens/<%=sorteado(4)%>.gif"> <img border="0" src="imagens/<%=sorteado(5)%>.gif"></p> </td> </tr> </table> </center> </div> <p style="margin-top: 0; margin-bottom: 0"> </p> <div align="center"> <center> <table width="209" cellpadding="0" cellspacing="0" border="1" height="7" bgcolor="#EEF1FA" style="border-collapse: collapse" bordercolor="#C0C0C0"> <tr> <font face="verdana" style="font-style:verdana ;"> <td bgcolor="#EEF1FA" onmouseover="this.style.backgroundColor='#FFFFCC';" onmouseout="this.style.backgroundColor='#EEF1FA';" height="20" width="209"> <p align="center" style="margin-top: 0; margin-bottom: 0"><b> <font face="Verdana" size="1" color="#FF0000"><u> <font color="#FF0000"> <a style="text-decoration: none" href="loto.asp"> <font color="#009999">S o r t e a r !</font></a></font></u></font></b></td> </tr> </table> </center> </div></font> <p align="center" style="margin-top: 0; margin-bottom: 0"><br> <b><font face="Verdana" size="1" color="#FF0000"> <a href="http://www.heberonline.com.br"> <font color="#000000">www.heberonline.com.br</font></a></font><font face="Verdana" size="1"><br> </b></p>
Comente