<% Dim PartyDB, PartySQL, datCurrent 'datCurrent = Month(Now) & Day(Now) & Year(Now) Dag = Day(Now) Maand = Month(Now) Jaar = Year(Now) Set PartyDB = Server.CreateObject("ADODB.Connection") PartyDB.Open "HippiesFromHell" PartyTodaySQL = "Select PartyDate, Subject, ID, Place from Party where PartyDate = #" & Maand & "/" & Dag & "/" & Jaar & "# ORDER BY PartyDate ASC" PartySQL = "Select PartyDate, Subject, ID, Place from Party where PartyDate > #" & Maand & "/" & Dag & "/" & Jaar & "# ORDER BY PartyDate ASC" Set PartyTodayRS = PartyDB.Execute (PartyTodaySQL) Set PartyRS = partyDB.Execute (PartySQL) %> The Dynamic HFH Party List!



<% If Not PartyTodayRS.EOF then %>

There's a party today !!!

<% Do While Not PartyTodayRS.EOF %> <% PartyTodayRS.MoveNext Loop %>
Date: Title: Where:
<%= Day(PartyTodayRS("PartyDate"))&"-"&Month(PartyTodayRS("PartyDate"))&"-"&Year(PartyTodayRS("PartyDate")) %> <%=PartyTodayRS("Subject")%> "><%=PartyTodayRS("Place")%>




<% End If %>

<% Do While Not PartyRS.EOF %> <% PartyRS.MoveNext Loop %>

Parties that are coming:
Date: Title: Where:
<%= Day(PartyRS("PartyDate"))&"-"&Month(PartyRS("PartyDate"))&"-"&Year(PartyRS("PartyDate")) %> <%=PartyRS("Subject")%> "><%=PartyRS("Place")%>
<% PartyRS.Close %> <% PartySQL = "Select PartyDate, Subject, ID, Place from Party where PartyDate < #" & Maand & "/" & Dag & "/" & Jaar & "# ORDER BY PartyDate DESC" Set PartyRS = partyDB.Execute (PartySQL) %>

<% If Request("ShowAll") = "Yes" then Do While Not PartyRS.EOF MyLoop PartyRS.MoveNext Loop ElseIf request("ShowAll") = "" Or Request("ShowAll") = "No" then For i = 1 to 10 MyLoop PartyRS.MoveNext Next %> <% End If %>

Parties that were:
Date: Title: Where:
<% If Request("ShowAll") = "" Or Request("ShowAll") = "No" Then %> Click ?ShowAll=Yes">here to see the complete party history <% ElseIf Request("ShowAll") = "Yes" Then %> Click hereto see only the last 10 parties <% End If %>
<% Sub MyLoop %> <%= Day(PartyRS("PartyDate"))&"-"&Month(PartyRS("PartyDate"))&"-"&Year(PartyRS("PartyDate")) %> <%=PartyRS("Subject")%> "><%=PartyRS("Place")%> <% End Sub %>