Visning af data opdelt efter Måneder & vis fra aktuelle måned

Du kan lave en ORDER BY dato når du trækker ud:

sql = "select * from tabelnavn order by dato"


Hvis du vil se denne måned og frem kan det være i stil med dette:

sql = "select * from tabelnavn where month(dato)>=month(Date()) AND year(dato)>=year(Date()) order by dato"

ok - men så skal man lave 12 forskellige select statements ikke- er det korrekt forstået?

Al data som er måneden nu og frem skal st nedefter hinanden, men med en adskillelse af
JANUAR
data
FEBRUAR
data
Marts
Data
osv

Det ikke nødvendig du kan skrive det ud sådan her:

sql = "select * from tabelnavn order by dato"
Set rs = Conn.Execute(SQL)
tmp=""
do while not rs.EOF
  if tmp <> month(rs("dato")) then
    tmp = month(rs("dato")
    Response.Write MonthName(tmp) & "<br>"
  end if
  response.Write rs("Aktiviteter") & "<br>"
  rs.Movenext
loop

eagleeye -> jeg tror jeg mangler at ændre noget så det virker , jeg får heletiden fejl, jeg har hele siden her, med dit script i koden:

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="table1">
    <tr>
        <td bgcolor="#0066CC"><font face="Verdana">Dato</font></td>
        <td bgcolor="#0066CC"><font face="Verdana">Aktivitet</font></td>
        <td bgcolor="#0066CC"><font face="Verdana">Sted</font></td>
        <td bgcolor="#0066CC"><font face="Verdana">Deltagere</font></td>
        <td bgcolor="#0066CC"><font face="Verdana">Ansvarlig</font></td>
        <td bgcolor="#0066CC"><font face="Verdana">Gruppe</font></td>
        <td bgcolor="#0066CC"><font face="Verdana">type</font></td>
    </tr>
<%
Set oDB = Server.CreateObject("ADODB.connection")
  oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/Akt.mdb")
    Set oRS = oDB.execute("SELECT * FROM [Aktiviteter] ORDER BY Dato ")

    'sql = "SELECT * FROM Aktiviteter ORDER BY Dato"
    'Set 0RS = Conn.Execute(SQL)
    tmp=""
    do while not rs.EOF
      if tmp <> month(ors("dato")) then
        tmp = month(ors("dato")
        Response.Write MonthName(tmp) & "<br>"
      end if
      response.Write ors("Aktiviteter") & "<br>"
      rs.Movenext
    loop
        'do while not oRS.EOF
%>

    <tr>
        <td><font face="Verdana"><%= oRS("Dato") %></font></td>
        <td><font face="Verdana"><%= oRS("Aktivitet") %></font></td>
        <td><font face="Verdana"><%= oRS("Sted") %></font></td>
        <td><font face="Verdana"><%= oRS("Deltagere") %></font></td>
        <td><font face="Verdana"><%= oRS("Ansvarlig") %></font></td>
<%
'Set oDB = Server.CreateObject("ADODB.connection")
  'oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/Akt.mdb")
    Set oRR = oDB.execute("SELECT * FROM [Grupper] ")
    %>
    <td><font face="Verdana">
        <% IF oRS("Gruppe") = 1 Then response.write "Billeddiagnostik" %>
        <% if oRS("Gruppe") = 2 Then response.write "Dental" %>
        <% if oRS("Gruppe") = 3 Then response.write "Kirurgi" %>
        <% if oRS("Gruppe") = 4 Then response.write "Urologi" %></font>
    </td>
<%
'Set oDB = Server.CreateObject("ADODB.connection")
'oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/Akt.mdb")
    Set oRR = oDB.execute("SELECT * FROM [Typerne] ")
%>
    <td><font face="Verdana">
        <% IF oRS("Type") = 1 Then response.write "Aktivitet" %>
        <% if oRS("Type") = 2 Then response.write "Udsendelse" %></font>

    </td>
</tr>
    <%
      oRS.Movenext
      Loop
      oDB.Close
      set oRS = Nothing
    %>
<tr>
    <td colspan="7">
    <hr noshade style="border-left-style: dashed; border-left-width: 3px; border-right-style: dashed; border-right-width: 1px; border-top-style: dashed; border-top-width: 1px" color="#0066CC" size="1">
    </td>
</tr>
</table>

Prøv at lave dette:

Set oDB = Server.CreateObject("ADODB.connection")
  oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/Akt.mdb")
    Set oRS = oDB.execute("SELECT * FROM [Aktiviteter] ORDER BY Dato ")

    'sql = "SELECT * FROM Aktiviteter ORDER BY Dato"
    'Set 0RS = Conn.Execute(SQL)
    tmp=""
    do while not rs.EOF
      if tmp <> month(ors("dato")) then
        tmp = month(ors("dato")
        Response.Write MonthName(tmp) & "<br>"
      end if
      response.Write ors("Aktiviteter") & "<br>"
      rs.Movenext
    loop
        'do while not oRS.EOF


om til dette:


Set oDB = Server.CreateObject("ADODB.connection")
  oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/Akt.mdb")
    Set oRS = oDB.execute("SELECT * FROM [Aktiviteter] ORDER BY Dato ")

    'sql = "SELECT * FROM Aktiviteter ORDER BY Dato"
    'Set 0RS = Conn.Execute(SQL)
    tmp=""
    do while not oRS.EOF
      if tmp <> month(oRS("dato")) then
        tmp = month(oRS("dato")
        Response.Write "<tr><td colspan=""7"">" & MonthName(tmp) & "</td>/tr>"
      end if
        'do while not oRS.EOF

Du er jo genial - tusind tak det virker kanon :o)

lige et hurtigt spørgsmål, kan denne også vise fremad og ikke tilbage eller viser denne alle måneder som er tastet ind?

og husk lige at give et svar så får du points

Den viser alle måneder som er i databasen.

Hvis du vil havde fra denne måned og frem så kan du prøve den anden SQL jeg viste, som bruger dato-funktioner i databasen til at udfælde posterne i denne måend og frem:

SQL = "select * from Aktiviteter where month(dato)>=month(Date()) AND year(dato)>=year(Date()) order by dato"

tak for hjælpen