pues pongo como me decis u_goldman pero no me hace nada.
Mi codigo:
<%
response.write "<table width='850' border='2' bordercolor='' align='center' cellpadding='0' cellspacing='0'>"
response.write "<tr this.style.background='red' onmouseout = this.style.background='white'>"
response.write "<td bgcolor='#CC9999' width='86' align='center'>Superficie</td>"
response.write "<td bgcolor='#CC9999' width='98' align='center'>Precio</td>"
response.write "</tr>"
response.write "<tr this.style.background='red' onmouseout = this.style.background='white'>"
Set com = Server.CreateObject("ADODB.Connection")
'com.ConnectionString="DSN=registrate"
Com.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("registrate.mdb")&";"
'com.Open
anuncio = "select top 16 * from anuncio ORDER BY ID DESC"
set resultado = com.execute (anuncio)
do while not resultado.EOF
response.write "<tr this.style.background='red' onmouseout = this.style.background='white'>"
response.write "<td bgcolor='#E2C7C7' align='center'>"&resultado("Metros")&"</td>"
response.write "<td bgcolor='#E2C7C7' align='center'>"&resultado("Precio")&"€</td>"
response.write "</tr>"
resultado.movenext
loop
response.write "</table>"
%>