Ok, hagámosla fácil y corta. Usá éste código (te marco en bold los cambios):
Código:
<%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("noticias.mdb"))
sql = "SELECT * FROM Noticias WHERE id=" & Request.QueryString("id") & ""
'Ejecuta un sentencia SQL de consulta
'Recorre todas las filas del resultado
set result = Con.Execute(sql)
%>
<html>
<head>
<title>ACTUALIDAD MUNICIPAL</title>
</head>
<body>
<div align="center"><center>
<table border="1" cellspacing="0" width="98%" bordercolorlight="#666666" bordercolor="#FFFFFF">
<tr><td width="100%">
<div align="center">
<table border="0" cellpadding="2" cellspacing="0" width="99%" height="26">
<tr><td width="100%" bgcolor="#336699" height="22">
<div align="center">
<table border="0" width="100%" cellpadding="0" height="11">
<tr><td width="61%" height="9"><font size="3" face="Trebuchet MS" font color="#FFCC00"><%=result("Fecha")%> - <%=result("titulo")%></font></font></td></center>
<td width="39%" height="9"><p align="right"><font color="#FFFFFF" size="2" face="Trebuchet MS"><%=result("autor")%>, Host: <%=result("Ip")%></font></p>
</td></tr></table></div></td></tr></table></div>
<center>
<div align="center">
<table border="0" cellpadding="0" cellspacing="1" width="98%">
<tr><td width="100%" height="20"><font color="#000080" size="3" face="Trebuchet MS"><%=Replace(result("noticia"), VBCrLf, "<br>")%></font></td></tr>
</table></div></center>
</body>
El signo "=", según cómo y donde se use, sirve tanto para asignación, comparación y, además, es una abreviatura del response.write ese al que yo hacía referencia en mi anterior mensaje.