Hvordan fjerner jeg denne fejl?

Fejlen er som følger. Og en del af koden er som følger, I må lige skrive hvis I skal se yderligere kode. Der benyttes en Access DB.

Pft.

/ Brian:

Active Server Pages error 'ASP 0241'

CreateObject Exception

/bv-main/spiritus.asp

The CreateObject of '(null)' caused exception C0000005.

Active Server Pages error 'ASP 0241'

CreateObject Exception

/bv-main/spiritus.asp

The CreateObject of '(null)' caused exception C0000005.

Server object error 'ASP 0177 : c0000005'

Server.CreateObject Failed

D:\WWW\BISGAARD-VIN.DK_63T92U5BZZ\PUBLIC_HTML\BV-MAIN\../dbconn.asp, line 2

c0000005


******************************************************

<%
' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From nyheder Where Id = " & Request.Querystring("Id")
Set rs = Conn.Execute(strSQL)

If (rs("antal")) = 0 then

' Skriv nyhed data
   
Response.write "<br><div class=artikeloverskrift>" & replace(replace(rs("overskrift"),"''","'"),vbCrLf,"<br>") & "</div><br>"
Response.write "<div id=""billedenyhedliste""><img border=1 src=""/pics/upload/" & rs("FILE1") & """ width=""140"" height=""60""></div>"
Response.write "<div class=artikel>"& replace(replace(rs("beskrivelse"),"''","'"),vbCrLf,"<br>") & "</div>"
Response.write "<div class=nyhednetopnu>" & "Netop nu " & " " & replace(replace(rs("stkakt"),"''","'"),vbCrLf,"<br>") & " " & FormatNumber(replace(replace(rs("pris"),"''","'"),vbCrLf,"<br>"),2) & " dkk." & "</div>"

Else

' Skriver nyhed/tilbud
     

Response.write "<br><div class=artikeloverskrift>" & replace(replace(rs("overskrift"),"''","'"),vbCrLf,"<br>") & "</div><br>"
Response.write "<div id=""billedenyhedliste""><img border=1 src=""/pics/upload/" & rs("FILE1") & """ width=""140"" height=""60""></div>"
Response.write "<div class=artikel>"& replace(replace(rs("beskrivelse"),"''","'"),vbCrLf,"<br>") & "</div>"
Response.write "<div class=artikel><br>" & "Førpris " & FormatNumber(replace(replace(rs("foerpris"),"''","'"),vbCrLf,"<br>"),2) & " dkk." & "</div>"
Response.write "<div class=nyhednetopnu>" & "Netop nu " & replace(replace(rs("antal"),"''","'"),vbCrLf,"<br>") & " " & replace(replace(rs("stkakt"),"''","'"),vbCrLf,"<br>") & " " & "kun " & FormatNumber(replace(replace(rs("pris"),"''","'"),vbCrLf,"<br>"),2) & " dkk." & "</div>"

End If

Conn.Close
Set Conn = Nothing

%>