<% set conexao = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("coluna/dados/coluna1.mdb")
conexao.open constr
set rs = conexao.execute("select * from mensagens order by id desc")
if rs.eof then
response.Write("Nenhuma Mensagem Nova!")
else
%>
<%do while not rs.eof%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="top">
<p style="margin-top: 0; margin-bottom: 0">
<center><b><font size=1><%=rs("titulo")%></b></font><br><br></center>
<a href = coluna/imagens/<%=rs("imagem")%>>
<img src = coluna/imagens/<%=rs("imagem")%> width="150" height="112" align="left"></a>
<font size="1"><%=rs("mensagem")%></font><br><br></center></p>
</td>
</tr>
</table>
<%rs.movenext
loop%>
<%end if%>
Como fazer?
Agradeço a todos, até mais.