Sumar lecturas

[AlZuwaga]

algo así, aunque tal vez con algún que otro error por no haberlo comprobado (pero debería funcionar):



<%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("../../db/noticias.mdb"))
sql = "SELECT * FROM noticias WHERE id=" & Request.QueryString("id")
set result = Con.Execute(sql)

sqlUPDATE = "UPDATE noticias SET lecturas = lecturas + 1 WHERE id=" & Request.QueryString("id")
Con.Execute(sqlUPDATE)
%>


<%=result("titulo")%>
<%=result("autor")%>
<%=result("lecturas")%>