banner system problem

Hej!!

Jeg har denne kode:

<base target="_blank">
<%Function Formatdate1(theDate)
Formatdate1 = month(thedate) &"-"& day(thedate) & "-" & year(thedate)
End Function%>
<%dato = Formatdate1(date())%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("peppinosdb/dbdb.mdb")
Conn.Open DSN

set rs = Server.CreateObject("ADODB.Recordset")

strRS = "SELECT * from Banner125 where start <= dato and slut >= dato"
rs.Open strRS, Conn, 1, 3 'linje 15
if rs.eof then%>
Ikke flere banner
<%else
randomize
linie = int(rs.RecordCount * rnd)

rs.MoveFirst
rs.Move(linie)
%>
<a href="bannerklik.asp?id=<%=rs("id")%>"><img border="0" src="<%=rs("billed")%>"></a>
<%
rs("vist") = rs("vist") + 1
rs.update

if rs("visninger") <= rs("vist") then

set rs = conn.execute("update banner125 set vis = false where id = "& rs("id") &"")
end if
end if
%>

men når det er jeg prøver den får jeg den her fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/peppino.dk1/banner.asp, line 15

hvad er der galt??

/peppino