drori hansen igén igen

Kan nogen fixe den her koncertkalender. Den bliver ved med at vise en forkert koncert under "next gig". Jeg tror den sorterer efter ugedag og ikke fter dato!

Her er koden, hvis det kan hjælpe. Ellers tilelr jeg gerne en FTP op

    <TD WIDTH="135" BGCOLOR="#3399FF" BACKGROUND="giffer/teasers/bagg_nxt_gig.gif"><FONT FACE="VERDANA,ARIAL,HELVETICA" SIZE="1"><B>
    <%
   
    'Response.write day(now())

   
    strMrdNr = month(now())
   
    if day(now()) < 10 then
    strdaynow = day(now())
    strDagSort = 0+strdaynow
    else
    strDagSort = day(now())
    end if
   
    strYearNow = year(now())
   
    select case strMrdNr
    case "1"
    strMrdNavn = "januar"
    case "2"
    strMrdNavn = "februar"
    case "3"
    strMrdNavn = "marts"
    case "4"
    strMrdNavn = "april"
    case "5"
    strMrdNavn = "maj"
    case "6"
    strMrdNavn = "juni"
    case "7"
    strMrdNavn = "juli"
    case "8"
    strMrdNavn = "august"
    case "9"
    strMrdNavn = "september"
    case "10"
    strMrdNavn = "oktober"
    case "11"
    strMrdNavn = "november"
    case "12"
    strMrdNavn = "december"
   
    end select
   
   
   
   
    Set objRec = Server.CreateObject ("ADODB.Recordset")
   
            'now open it
           
           
            objRec.Open "SELECT * FROM koncert WHERE mrd = '"& strMrdNavn & "' AND aar = '"& strYearNow &"' ORDER BY kdato >'" & strDagSort &"'", strconnect, 3 
   







   
   
   
    %>
   
    <%if (objRec.eof or objRec.bof) then

    strMrdNr = strMrdNr + 1
   
    select case strMrdNr
    case "1"
    strMrdNavn = "januar"
    case "2"
    strMrdNavn = "februar"
    case "3"
    strMrdNavn = "marts"
    case "4"
    strMrdNavn = "april"
    case "5"
    strMrdNavn = "maj"
    case "6"
    strMrdNavn = "juni"
    case "7"
    strMrdNavn = "juli"
    case "8"
    strMrdNavn = "august"
    case "9"
    strMrdNavn = "september"
    case "10"
    strMrdNavn = "oktober"
    case "11"
    strMrdNavn = "november"
    case "12"
    strMrdNavn = "december"
    end select
   
    objRec.Close
    'Set objRec = Nothing
    objRec.Open "SELECT * FROM koncert WHERE mrd = '"& strMrdNavn & "' AND aar = '"& strYearNow &"' ORDER BY kdato >'" & strDagSort &"'", strconnect, 3

end if

%>
    <%
    dim varDato, varMrd, varTid, varSted, varBy, varTelefon, varKdato
   
    'varEditor = objRec("editor")
    varDato = objRec("dato")
    'varDag = objRec("dag")
    varMrd = objRec("mrd")
    varTid = objRec("tid")
    varSted = objRec("sted")
    'varAdresse = objRec("adresse")
    varBy = objRec("by")
    varTelefon = objRec("telefon")
    varKdato = objRec("kdato")
    'varAar = objRec("aar")
   
   
    'now close and clean up
    'objRec.Close
    'Set objRec = Nothing
   
    %>
    <FONT FACE="VERDANA,ARIAL,HELVETICA" SIZE="1">
    <%=varKdato%>&nbsp;<%=varMrd%> kl. <%=varTid%><br>
    <FONT COLOR="WHITE"><%=varSted %></FONT> <%=varBy %><br>
    <%=varTelefon%>
   
    <%objRec.Close
    %></B></FONT>
   
   
    </FONT></TD>
</TR>
</TABLE>

Med venlig hilsen Skakke