<% Option Explicit Response.Buffer = TRUE '------motesdagar.asp ------- '---uppdaterad 2009-01-22---- %> <% Dim RecSet, strSQL Dim artal, inget dbConnect Connection Set RecSet = Server.CreateObject("ADODB.Recordset") %> <% artal=left(now,4) inget=false PrintHeader "Styrelsemöten "& artal %> <% strSQL = "SELECT * from moten where typ='Styrelse' order by datum,tid" RecSet.Open strSQL, Connection, 1 , 3 Do until RecSet.EOF If RecSet("datum") >= left(DateAdd("d",-7,now),10) then inget=true fattas=fattas-2 %> <% End If RecSet.Movenext Loop %>

	Datum	Tid	Möte	Kommentar
	<%=RecSet("datum")%>	<%=RecSet("tid")%>	<%=RecSet("mote")%>	<%=RecSet("kommentar")%>

<% If inget=false then %>

<% End If %>

Inga styrelsemöten är för tillfället inbokade.

<% PrintFooter %>