<% ort=replace(Request("ort"),"_"," ") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "ae19_nms" sql = "SELECT * FROM termine where datum >= date() and ort = '" & ort & "'" &_ " order by datum, beginn" Set RS = Conn.Execute(sql) %> Termine
Veranstalter

<%=ort%> <%if not RS.EOF then%> <%else%> keine Termine vorhanden <%end if%> <% date_temp="" Do While Not RS.EOF %> <% 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%>