Hej jag har ett mysterium här

typ jag har gjort ett litet nyhetscript i asp. Men det verkar som iss inte stöder någonting.
vad kan det vara för fel?

Här är fel mddelandet:
<code>

Körningsfel i Microsoft VBScript fel '800a01b6'
Objektet stöder inte egenskapen eller metoden.: 'Open'

/timring/Default.asp, rad 34

</code>

Här är rad 34 i default.asp:

<code>

29<%
30 'Hämtar nyheter från tabellen tblNyhet i databasen
31 Dim objRsNyhet, strSQLNyhet
32 strSQLNyhet = "SELECT * FROM tblNyhet"
33 objRsNyhet = Server.CreateObject("ADODB.Recordset")
34 objRsNyhet.Open strSQLNyhet, objConn
35 Do While Not objRsNyhet.EOF
36 Response.Write objRsNyhet("fdDatum")
37 objRsNyhet.MoveNext
38 Loop
39
40 'Stänger uppkopplingen objRsNyhet
41 objRsNyhet.Close
42 Set objRsNyhet = Nothing
43%>

</code>

Vad kan det vara för fel? Tacksam för alla svar jag får.
/Emil

så här kanske:


<code>
29<%
30 'Hämtar nyheter från tabellen tblNyhet i databasen
31 Dim objRsNyhet, strSQLNyhet
32 Set objConn = Server.CreateObject("ADODB.Connection")
33 objConn.Open "dsn=???"
34 strSQLNyhet = "SELECT * FROM tblNyhet"
35 set objRsNyhet = objConn.Execute(strSQLNyhet)

36 Do While Not objRsNyhet.EOF
37 Response.Write objRsNyhet("fdDatum")
38 objRsNyhet.MoveNext
39 Loop
40 'Stänger uppkopplingen objRsNyhet
41 objRsNyhet.Close
42 objConn.CLose
43 Set objConn= Nothing
44%>
</code>

Du har glömt Set:
<code>
'Hämtar nyheter från tabellen tblNyhet i databasen
Dim objRsNyhet, strSQLNyhet
strSQLNyhet = "SELECT * FROM tblNyhet"
Set objRsNyhet = Server.CreateObject("ADODB.Recordset")
objRsNyhet.Open strSQLNyhet, objConn
Do Until objRsNyhet.EOF
Response.Write objRsNyhet("fdDatum")
objRsNyhet.MoveNext
Loop

'Stänger uppkopplingen objRsNyhet
objRsNyhet.Close
Set objRsNyhet = Nothing
%>
</code>

Tack ska du ha. Det var Set som fattades.
Vad skulle jag gjort utan er som har svarat. Jag tackar och bockar.

Mvh Emil