Cosa c'è di sbagliato in questo codice:

codice:
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
Server.MapPath("../../fpdb/news.mdb")
%>

<%
sSQL="SELECT * FROM News_ order by ID ASC;"
objRS.Open sSQL, objConn, 3, 3
%>

<%Do while not objRS.Eof
  ID=objRS("ID")
  titolo=objRS("titolo")
  news=objRS("news")
%>
<%=objRS("titolo")%>



<%=objRS("news")%>
<%
objRS.movenext
Loop
%>
<%
objRS.Close
%>
Microsoft VBScript runtime
error '800a01a8'
Object required: '', line 39 :master: