<%Response.Buffer = true%> <% TimePeriod = Request("TimePeriod") TimePeriodFix = Replace(TimePeriod," ","%20") page = trim(Request("page")) if page="" or not IsNumeric(page) then page = 1 else page = CInt(page) end if sort = Request("sort") Set RS = getEntries(page,TimePeriod,sort) %> Our America

<%=TimePeriod%>
Click a column heading to sort by student name, state, or title. Click a title to read the selection.
<% If Not RS.EOF then NoOfPages = RS.PageCount PageString = "Page: "&page&" of "&NoOfPages&"   " if Page > 1 then PrevString = "Previous" else PrevString = "" end if PageString = PageString&PrevString&" | " for i = 1 to NoOfPages if i = Page then NumString = i else NumString = ""&i&"" end if PageString = PageString&" "&NumString&" | " next if Page < NoOfPages then NextString = "Next" else NextString = "" end if PageString = PageString&" "&NextString End If 'End Rs.EOF %> <%=PageString%>

<% If RS.EOF then %> <% else %> <% Dim count count = 0 Do While (count <% RS.MoveNext LOOP END IF %>
There are no entries for <%=TimePeriod%> at this time.
State Student
<%=RS("State")%> <%=RS("FirstName")%>  <%=RS("LastInitial")%>

<% Set RS = nothing %>