I changed some stuff, but now i have another error, that i can't figure out. please help!?

Microsoft VBScript runtime error '800a01a8'

Object required: '[string: "Provider=Microsoft.J"]'

/testing/index.asp, line 8

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<%
Dim news_recordset
Dim news_recordset_numRows
Dim objCon

Set objCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
            Server.MapPath("/testing/News.mdb")
Set news_recordset = Server.CreateObject("ADODB.Recordset")
news_recordset.Source = "SELECT tdcdate, tdcmessage FROM news_messages ORDER BY tdcdate DESC"
news_recordset.ActiveConnection = objCon
news_recordset.CursorLocation = 2
news_recordset.CursorType = 0
news_recordset.LockType = 1
news_recordset.Open()

news_recordset_numRows = 0
%>

Hi there,

You can't use Set to assign a string to a variable. You should use Set for Objects only. So I guess you need something like this:

Dim objConn
Dim connString
Set objConn = Server.CreateObject("ADODB.Connection")
connString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
            Server.MapPath("/testing/News.mdb")
objConn.Open connString

HtH,

Imar
---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.