liste kun denne måned

i dette år?

Prøv med dette:

rs.Source = "SELECT *  FROM kontakt  WHERE Month(dato) = Month(date()) AND Year(dato) = Year(Date()) ORDER BY dato, navn ASC"

doc.asp?dato=1 returnere nu ingenting?

jeg udskriver på denne måde:

<table border="0" class="tabelny">
    <tr>
      <%
    if request("dato")<> "alle" then
        if request("dato")<> "" then dato = Cint(request("dato")) else dato = Month(Now())
    else
        dato = 0
    end if
    for i = 1 to 12
    If Cint(dato) = i then
    %>
      <td><b><%=MonthName(i)%></b>&nbsp;&nbsp;</td>
      <%
    else
    %>
      <td><a href="doc.asp?dato=<%=i%>">[ <%=Left(MonthName(i), 3)%> ]</a>&nbsp;&nbsp;</td>
      <%
    end if
    next
   
    if dato = 0 then%>
      <td><b> Alle </b></td>
    <%else%>
      <td><a href="doc.asp?dato=alle">[ Alle ]</a></td>
    <%end if%>
    </tr>
  </table>

Med dette udskriver jeg alle datoer så jeg kan udvælge en liste efter måned.

Hvis du overføre nummeret på månede så kan du gøre:



rs.Source = "SELECT *  FROM kontakt  WHERE Month(dato) = " & Request("dato") & "  ORDER BY dato, navn ASC"

Men så mangler året..

sorry at forstyrre igen men den melder:
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Month(dato) = AND Year(dato) = 2003'.

/doc.asp, line 21


min SQL

<%
Dim rs__y
rs__y = "2003"
If (Request.QueryString("y") <> "") Then
  rs__y = Request.QueryString("y")
End If
%>
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_db_STRING
rs.Source = "SELECT * FROM kontakt WHERE Month(dato) = " & Request("dato") & " AND Year(dato) = " + Replace(rs__y, "'", "''") + "  ORDER BY dato, navn ASC"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>

HAR DU TID TIL AT HJÆLPE EAGLEEYE?

takker