WHERE i access database

Nej hvis det er en PeriodeStart og PeriodeSlut er af typen Date/Time skal der # omkring i SQL sætningen. Samt Access skal havde datoen i yyyy-mm-dd eller mm-dd-yyyy via SQL og ikke i DK format. Ved DK format vil den bytte rundt på dag og månede.

Så prøv:

strDagsDato =  Year(Date) & "-" & Month(Date) & "-" & Day(Date)

RstObj.Open "Select * From Bannere WHERE [Kategori] = 'Topbannere' " & "AND [PeriodeStart] <= #"&strDagsDato&"# AND [PeriodeSlut] >= #"&strDagsDato&"#"

men når du bruge Date som dato kan du ligeså godt bruge Access egen Date funtion så din SQL bliver (uden # omkring):

RstObj.Open "Select * From Bannere WHERE [Kategori] = 'Topbannere' AND  [PeriodeStart] <= Date() AND [PeriodeSlut] >= Date()"

eagleeye: jeg får en fejl ved begge dine forslag

ADODB.Recordset error '800a0e7d'
The connection cannot be used to perform this operation. It is either closed or invalid in this context.

Hvordan ser "hele" koden ud?
Der manlger en connection eller connectionstring i den viste linje eks:

RstObj.Open "Select * From Bannere WHERE [Kategori] = 'Topbannere' " & "AND [PeriodeStart] <= #"&strDagsDato&"# AND [PeriodeSlut] >= #"&strDagsDato&"#", Conn, 1

<%
Dim ConnObj
Set ConnObj = Server.Createobject("ADODB.Connection")
Set RstObj = Server.CreateObject("ADODB.Recordset")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\udvikling\portal.danskewww.dk\docs\data\database.mdb; password=123abc"
ConnObj.Open strDSN
%>

<%
strDagsDato = Day(Date) & "-" & Month(Date) & "-" & Year(Date)

Set RstObj = Server.CreateObject("ADODB.RecordSet")
RstObj.Open "Select * From Bannere WHERE [Kategori] = 'Topbannere' " & "AND [PeriodeStart] <= "&strDagsDato&" AND [PeriodeSlut] >= "&strDagsDato&" "

Do While Not Fundet
    RstObj.MoveFirst
    Randomize
    RstObj.Move(int(RstObj.RecordCount * rnd))
    If Not RstObj.EOF And Not RstObj.BOF Then
        Fundet = True
    End If
Loop
%>

ok så din Connectione hedder ConnObj så prøv at rette:

RstObj.Open "Select * From Bannere WHERE [Kategori] = 'Topbannere' " & "AND [PeriodeStart] <= "&strDagsDato&" AND [PeriodeSlut] >= "&strDagsDato&" "


Til:

RstObj.Open "Select * From Bannere WHERE [Kategori] = 'Topbannere' " & "AND [PeriodeStart] <= #"&strDagsDato&"# AND [PeriodeSlut] >= #"&strDagsDato&"#", ConnObj, 1

Du er f*me en guttermand! - det drøner bare der ud af nu!

Takker! - smid lige et svar

Ok et svar :)