Colunas

[paulojorge3l 0]

Olá Pessoal estou tentando listar apenas os 4 ultimos registro do banco de dados e colocar eles em duas colunas 2 e 2 mais quando mando listar com o código abaixo ele vai no banco e traz tudo oq está cadastrado alguem pode me ajudar valew

 

SQL

<%Response.expires = 0Response.Buffer=TrueSet conn = Server.CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("banco.mdb")regs = 4 'Aqui seto quantos registros por paginaif pag = "" Then   pag = 1end ifset rs = createobject("adodb.recordset")set rs.activeconnection = connrs.cursortype = 3 'Definimos o cursor a ser utilizadors.pagesize = regssql = "select * from noticia <> 9 order by rnd(Int(Now()*[id_noticia])-Now()*[id_noticia])"rs.open sqlif rs.eof or rs.bof then   response.write ""else   rs.absolutepage = pag   contador = 0						   %>

Pagina

 

<table width=70 height="75" border=0 align="center" cellpadding="2" cellspacing="1" bordercolor="#000000">  <tr>	<% Dim contador   contador = 1   maxcol = 2	'<------------------ numero de registros por colunasdo while not rs.eof%>	<%  	if contador <= maxcol then %>	<td width="70" align="center" valign="middle"> <table width="0" border="1" cellpadding="0" cellspacing="0" bordercolor="#333333">	  <tr>		<td><%=Rs("teste")%></td>	  </tr>	</table>	  </td>	<% 	  contador = contador + 1 	else %>  </tr>  <tr>	<td align="center" valign="middle"> <table width="0" border="1" cellpadding="0" cellspacing="0" bordercolor="#333333">	  <tr>		<td><%=Rs("teste")%></td>	  </tr>	</table>	  </td>	<% 	  contador = 2 	end if   rs.movenext loop 'completa as colunas do while contador <= maxcol %>	<td width="8"> </td>	<%  contador = contador + 1 loop %>  </tr></table>

[jrcardozo 4]

visite o tópico duvidas frequentes, tem exatamente o que deseja

[paulojorge3l 0]

Oi Jonathan Tudo se resolveu com um select top 4 * valew pela ajuda e atenção