Hvad er der galt her ???

<%
Dim strpath, strDSN, cn, rs, ArtSQL

'*** Åbne connection
strPath = server.Mappath("Artikler.mdb")
strDSN = "provider = microsoft.jet.OLEDB.4.0; Data Source =" & strPath
set cn = server.createobject("ADODB.Connection")
cn.open strDSN

If artikel = "" then
If artikelID = "" then

ArtSQL = "SELECT Artikel.forfatter, Artikel.title, Artikel.info, Artikel.dato, Artikel.emne FROM Artikel ORDER BY Artikel.dato DESC;"

Set rs = cn.Execute(ArtSQL) <-- Dette er linie 15

 

Do While Not rs.EOF

  Response.write "Her ses " & Info & ""

rs.MoveNext
Loop

else

ArtSQL = "SELECT Artikel.forfatter, Artikel.title, Artikel.info, Artikel.dato, Artikel.Emne FROM Artikel WHERE (((Artikel.ID)=" & ArtikelID & "));"

Set rs = cn.Execute(ArtSQL)



Do While Not rs.EOF



rs.MoveNext
Loop

End if

else

Art3SQL = "SELECT Artikel.forfatter, Artikel.title, Artikel.info, Artikel.dato, IDConfig.Emne, IDConfig.EmneID FROM  IDConfig INNER JOIN Artikel ON IDConfig.Emne = Artikel.Emne WHERE (((IDConfig.EmneID)=" & Artikel & ")) ORDER BY Artikel.dato DESC;"

Set rs = cn.Execute(Art3SQL)



Do While Not rs.EOF



rs.MoveNext
Loop

  '*** her skal spicifike artikler udvælges, by dato desk
End if

'*** Vi lukker til sidst vores database forbindelse...
cn.Close
Set cn = Nothing
%>

--------------------------------------------------------

den retunere :

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/infoC/aspjens/Artikel.inc, line 15

--------------------------------------------------------
Jeg har stiret mig blind på det, og kan ikke lige finde fejlen...