skal vise 2 måneder af gangen.

Jeg har dette script som viser en måned af gangen af udtræk.

Nu vil jeg gerne have at den skal vise 2 måneder af gangen.

Hvem kan hjælpe ??

<%
  SQL = "SELECT * FROM kalender WHERE tybe='arrangement' AND "
  if isDate(dtmDate) then
    SQL = SQL & "Month(dato)='" & Month(dtmDate) & "' AND Year(dato)='" & Year(dtmDate) & "' order by dato"
  else
    SQL = SQL & "Month(dato)=Month(Date()) AND Year(dato)=Year(Date()) order by dato"
  end if 
  Set Query = Conn.Execute(SQL)
if Query.EOF then %>