<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_StrConnection_STRING Recordset2.Source = "SELECT CodigoNoticia, TituloNoticia, DataNoticia FROM Noticia ORDER BY DataNoticia DESC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 4 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %> GRAMACHO RACING

 
 
<% While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 Recordset2.MoveNext() Wend %>
 
 
 

Para colocar o papel de parede em seu computador siga os seguintes passos:

1) Clique no tamanho mais apropriado para a tela de seu computador.

2) Uma nova janela se abrirá com o papel de parede. Então, clique com o botão direito de seu mouse e escolha a opção definir como papel de parede.


  
     
 
 
   

Breve disponibilizaremos novos wallpapers!

  
<% Recordset2.Close() Set Recordset2 = Nothing %>