har kopplat mot en fråga i access där if satsen i filtret säger OK om datumen inte finns, men hur kopplar man det mot en fråga och en tabell (redcalendar) där jag skiver dagar som inte är bokbara? Dvs julafton, nyår m.m
tabellen innehåller datumformat som 2006-12-24 samt kolumner med day, month och year.
hur fixar man det??
------------------------------------------------------------------------------------------

<code>
sSQL = "SELECT qua_idate, DAY, Month, Year FROM qry_calendar WHERE year = " & year(dDate) & _
" AND month = " & month(dDate)


DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "\include\main_db.mdb;"


Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open DB_CONNECTIONSTRING

set objRecordset = CreateObject("ADODB.Recordset")
objRecordset.Open sSQL, objConnection, adOpenStatic

Do While iCurrent <= iDIM

'-- open the table row --
If iPosition = 1 Then
Response.Write(vbTab & "<tr>" & vbCrLf)
End If

'-- Write the date and subject --

Dim thedate ' skriver aktuellt datum att ta med till bokning vst1
thedate = "vstYear=" & Year(ddate) & "&vstmonth=" & month(ddate) & "&vstday=" & iCurrent & "&vstdate=" & Year(dDate) & "-" & Month(dDate) & "-" & icurrent

Response.Write(vbTab & vbTab & "<td align=left valign=top height=50><b>" & iCurrent & "</b>")

Dim redday 'alla dagar före idag är röda
redday = (DateDiff("d",month(dDate) & "/" & icurrent & "/" & year(dDate),Date))

if redday > -Daysinadvance AND iPosition < 6 Then 'spärrar bokning 10 dagar fram i tiden
response.Write ("<br><img src=images/fullt.gif border=0>")
else
if iPosition = 6 Then 'rödmarkerar lördag
Response.write("<br>")
response.Write ("&nbsp;")
elseif iPosition = 7 Then ' rödmarkerar söndagar
Response.write("<br>")
response.Write ("&nbsp;")
else

' Filter frågan??? ett filter som kollar om datumet finns i tabellen redcalendar, om datumet
' finns där så - är det fullt
' formaten i tabellen redcalendar har kolumnerna, redidate(2006-12-24) redday(24) redmonth(12) redyear(2006)

objRecordset.Filter = "Day = #" & iCurrent & "#"
If objRecordset.EOF Then
Response.Write("ledigt")
Else
typeOfEvent = objRecordset.Fields("qua_idate")
if cInt(typeofevent) < cInt(QuantityPerDay) Then
response.Write("ledigt")
else
response.Write ("fullt")
end if

end if
end if
end if

</code>