<% pos=0 step=20 if Request("p")>"" then pos=Request("p") land=replace(Request("bundesland"),"_"," ") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "ae19_nms" sql = "SELECT * FROM termine where datum >= date() and bundesland = '" & land & "'" &_ " order by datum, beginn" Set RS = Conn.Execute(sql) %> Termine
Bundesland

<%=land%> <%if not RS.EOF then%> <%else%>

keine Termine vorhanden <%end if%> <% m_index=pos if Pos>0 then RS.Move(pos) date_temp="" Do While Not RS.EOF if m_index=pos+step then Exit Do m_index=m_index+1 %> <% if date_Temp<>RS(1) then%> <% End if %> <% date_temp = RS(1) RS.MoveNext Loop RS.Close Conn.Close %>
<%= FormatDateTime(RS(1),vbLongDate)%>
<% if RS("beginn")>"" then %> <%=FormatDateTime(RS("beginn"),vbShortTime)%> <%end if%>  <%=RS("thema")%>   <% if RS("ende")>"" then %>
bis  <%=FormatDateTime(RS("ende"),vbShortTime)%>  <% End if%> 		<%if RS("ort")>"" then %> <%=RS("ort")%> <%else%>  <%end if%>
<%if m_index-step-1>0 then%> Zurück  <%end if%> <%if m_index  Weiter <%end if%>