Vis kun hvis dato er under

if DateDiff("s", date, RS("VisesTil")) < 0 then

Prøv det - og tjek også at de to datoer har det samme format.

Nu gik den fra at vise alt, til at vise intet?

datoerne har samme format

Hvis du ikke er klar over det, kan jeg fortælle dig, at følgende giver tidsforskellen mellem de to datoer i sekunder.

DateDiff("s", date, RS("VisesTil"))

Prøv at udskrive denne værdi med Response.Write

Så må jeg jo gøre noget andet galt

Kan du se, hvad der galt her?


<%
session.Lcid=1030
set ObjConn = Server.CreateObject ("ADODB.Connection")
strConnDriver="Driver={Microsoft Access Driver (*.mdb)};"
strConnPath="DBQ=" & Server.MapPath ("./db/TheDb.mdb")
objConn.Open strConnDriver & strConnPath
set RS = Server.CreateObject ("ADODB.RecordSet")

strSQL = "SELECT * from Visning Order By Prioritet"

RS.Open strSQL, objConn, 3, 1

If date > RS("VisesFra") AND date < RS("VisesTil") Then
Do Until RS.EOF
%>
    <tr>
        <td>
            <table border="0" cellspacing="0" Cellpadding="0" align="center">
            <tr>
                    <td align="center"><a href='./<%=RS("Link")%>'><%=RS("TopLinie")%> - Til: <%=RS("VisesTil")%> -I dag: <%=Date%></a></td>
                </tr>

                <tr>
                    <td><a href='./<%=RS("Link")%>'><img src='./Admin/Sites/Imgs/<%=RS("Img")%>' border='0'></a></td>
                </tr>

                <tr>
                    <td align="center"><a href='./<%=RS("Link")%>'><%=RS("BundLinie")%></a></td>
                </tr>
            </table>
        </td>
    </tr>

    <tr>
        <td>
            <br>&nbsp;
        </td>
    </tr>
<%
RS.MoveNext
Loop
Else
%>
    <tr>
        <td>&nbsp; <!--Her skulle der have været forside ting--></td>
    </tr>
<%
End if
RS.Close
objConn.Close
set RS = nothing
set objConn = nothing
%>

Prøv lige at udskrive følgende.

Response.Write date & "<br>" & RS("VisesTil") & "<br>" & DateDiff("s", date, RS("VisesTil"))

- og vis mig, hvad du får.

01-12-2003
01-01-2004
267840001-12-2003
23-12-2002
-2963520001-12-2003
01-01-2004
267840001-12-2003
30-11-2003
-86400

Det er kun tre linier, der udskrives. Hvor kommer de sidste fra?

loop

Okay - prøv lige at indsætte et ekstra liniskift. Så er det lettere at overskue.

Response.Write date & "<br>" & RS("VisesTil") & "<br>" & DateDiff("s", date, RS("VisesTil")) & "<br>"

Indsatte to <br>'s

01-12-2003
01-01-2004
2678400

01-12-2003
23-12-2002
-29635200

01-12-2003
01-01-2004
2678400

01-12-2003
30-11-2003
-86400

Det ser meget rigtigt ud. Hvis RS("VisesTil") ligger før datoen i dag, får du en negativ forskel i sekunder. Derfor burde dette også give dig, hvad du ønsker.

if DateDiff("s", date, RS("VisesTil")) < 0 then

Hvis ikke - så må fejlen ligge et helt andet sted.

Det var osse det, jeg fandt frem til?

Jeg prøver lige forfra.

Tak for hjælpen

Okay - håber du finder ud af det :)