Virker desværre ikke

Det vil være meget lettere at svare på hvad der er galt, hvis du lige skriver fejlmeddelelsen og peger på linien.


Det andet er let nok:

if not (rs.EOF or rs.BOF) then

Response.write"<td  width=100%  bgcolor=#E0F0E8><font face=Verdana size=1 color=#000000><p align=left>"&rs("kontor")&"</font></td>" 

else

response.Write "Der er ingen poster"

end if
        Conn.Close
    Set Conn = Nothing
%>

Fejlmeddelelse

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a000d'
Typer stemmer ikke overens: 'UgeTilDato'

Lidt uforståeligt, da det har virket i en anden forbindelse!

Hvad skal UgeTilDato(aar, uge, 1) forestille at være?

Jeg har prøvet dette her i stedet for, men det returnerer et tomt recordset selv om startdato=19-01-04 og slutdato=22-01-04. Når jeg udskriver sql'en får jeg

SELECT kontor FROM meddelelse WHERE startdato <= #19-01-04# AND slutdato >= #19-01-04#

og det skulle vel være ok.

<%   
       
        Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath ("/nyreservation/skoleweb.mdb")
    Conn.Open DSN
   
   
 
   
datoStr = Date


        strSQL = "SELECT kontor FROM meddelelse WHERE startdato <= #" & datoStr & "# AND slutdato >= #" & datoStr & "#"

set rs = Conn.Execute(strSQL)

if not (rs.EOF or rs.BOF) then

Response.write"<td  width=100%  bgcolor=#E0F0E8><font face=Verdana size=1 color=#000000><p align=left>"&rs("kontor")&"</font></td>" 
     
      else
      Response.write"<td  width=100%  bgcolor=#E0F0E8><font face=Verdana size=1 color=#000000><p align=left>Ingen meddelelser</font></td>" 

      end if
        Conn.Close
    Set Conn = Nothing
%>

Det er sært, for jeg lavede lige et hurtigt mock-up her, med felterne kontor(type:tekst), startdato(type:dato)(værdi:19-01-2004) og slutdato(type:dato)(værdi:22-01-2004), og det virkede fint.
Og du er sikker på, at startdato og slutdato er af datatypen?

Du behøver forresten ikke din variabel datoStr - dette her giver det samme:

strSQL = "SELECT kontor FROM meddelelse WHERE startdato <= Date() AND slutdato >= Date()"

"datatypen dato" skulle der jo så have stået.

Jo, startdato og slutdato er datofelter, men det virker altså ikke hos mig. Det gør derimod dit alternative forslag

strSQL = "SELECT kontor FROM meddelelse WHERE startdato <= Date() AND slutdato >= Date()"

så du har løst mit problem :) Takker - send lige set svar!

set=et

Det var da heldigt :)