<% m_date = Date m = Month(m_Date) m_von = Day(m_Date) Select Case m Case 2 m_bis="28" Case 4 m_bis="30" Case 6 m_bis="30" Case 9 m_bis="30" Case 11 m_bis="30" Case Else m_bis="31" End Select %>

Zeitraum

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "ae19_nms" Set RS = Conn.Execute("SELECT Distinct ort FROM termine where datum >= date()") %> Veranstalter <% Do While Not RS.EOF if RS("ort")>"" then %> <%= RS("ort")%> <% End IF RS.MoveNext Loop RS.Close Conn.Close %>

neuen Termin eingeben