Samme problem

Hej igen..

Min kode ser sådan ud:

<%
Idag= Date
uge = dateadd("d", 5, idag)
strSQL = "SELECT * FROM Husk WHERE Udførelsesdato BETWEEN #" & Idag & "# AND #" & Uge & "#"
'strSQL = "SELECT * FROM Husk WHERE Udførelsesdato >= #" & Idag & "# AND Udførelsesdato <= #" & Uge & "#"
set rs = Conn.execute(strSQL)
'----------------------------------------------------------
'Hvis Begining of file eller End of File og rultatet er tomt
If rs.BOF Or rs.EOF Then
      strError = "FEJL : Der er ingen data"
End If
'---------------------------------------------
' Gennemløb Recordset (rs) med en løkke
Do
'----------------------------------------------------

Response.Write "Indført af: <B>" & rs("Indførtaf") & "</B><br>"
'----------------------------------------------------
Response.Write "<B>HUSK: "& rs("Udførelsesdato") & "</B><br>"
Response.Write "<B>Beskrivelse:</B><br>"
Response.Write rs("Beskrivelse") & "<br>"
'-------------------------------------
Response.Write "<A href=slet.asp>slet opgave</A><br>"   
Response.Write "--------------------------------<P><P>"

  ' Gå til næste Record i rs
  rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
Conn.Close
Set connection = Nothing
%>

Jeg får meddelelsen igen selvom det virkede før.. Jeg har indsat tabellens data fra en anden side via Response.Form("feltnavn")Nogle af felterne er lavet som lister til at vælge ud fra.. men Response.Form("feltnavn") skulle da give samme sætning..
Dog har jeg en mistanke til denne..
Den foregående side ser således ud:

<%
' Databaseforbindelse - oprettes
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/oplysninger.mdb")
Conn.Open DSN
Udato= Request.Form("select2") & "-" & Request.Form("select3") & "-" & Request.Form("select4")

strSQL = "Insert into Husk (Beskrivelse,Udførelsesdato,Indførtaf) values('" & Request.Form("textfield")& "','" & Udato & "','" & Request.Form("select") & "')"
Conn.Execute(strSQL)
'Response.Write Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
Response.Redirect "defaultny.asp"
%>

Kan det have noget at gøre med denne sætning at gøre der bliver sat ind i access??

Udato= Request.Form("select2") & "-" & Request.Form("select3") & "-" & Request.Form("select4")
resultatet bliver jo så: 1-5-2003