<% Dim SortOrder, SortDir SortOrder = Request("SortOrder") If SortOrder = "" Then SortOrder = "Name" SortDir = Request("SortDir") If SortDir = "" Then SortDir = "ASC" Dim Surveys SQL = "SELECT * FROM Survey" SQL = SQL & " WHERE ((Active = True) AND ((#" & IsoDate(Date) & "# >= StartDate) AND (#" & IsoDate(Date) & "# <= EndDate)))" SQL = SQL & " ORDER BY " & SortOrder & " " & SortDir & ";" Set Surveys = Server.CreateObject("ADODB.Recordset") Surveys.CursorType = 1 Surveys.Open SQL, Conn Dim rowClass rowClass = "EvenRow" %> <%=strPageTitle%>

<%=strPageTitle%>

<%=strWebsiteTitle%> > <%=strPageTitle%>

<% If Surveys.RecordCount <> 0 Then Do While Not Surveys.EOF If rowClass = "OddRow" Then rowClass = "EvenRow" Else rowClass = "OddRow" End If %> <% Surveys.MoveNext Loop Else %> <% End If ' end If Surveys.RecordCount <> 0 %>
Name Description Date
"><%=Surveys("Name")%>  <%=Surveys("Description")%>  <% Select Case Surveys("ListDateDisplayFormat") Case Null OR 0 'Display nothing. Response.write " " Case 1 'Display Start Date only. Response.write Surveys("StartDate") Case 2 'Display End Date only. Response.write Surveys("EndDate") Case 3 'Display Start and End Date. Response.write Surveys("StartDate") & "-" & Surveys("EndDate") Case Else 'Display nothing. Response.write " " End Select %> 
No surveys are currently available.
<% Surveys.Close Set Surveys = Nothing Conn.Close Set Conn = Nothing %>