Intentá reemplazar el inicio de tu código por este:
Código:
<%
id = Request.QueryString("id")
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./asdf.mdb")
sql = "SELECT * FROM noticias WHERE id="&id&""
Rs.Open sql, oConn, 1, 1
SQLSumarVisitas = "UPDATE noticias SET visitas= visitas + 1 WHERE Id=" & Id
oConn.Execute(SQLSumarVisitas)
' acá sigué todo tu código