<% 'kate: hl ASP;
if ( instr(request.servervariables("PATH_INFO"),"login.asp") <= 0 and instr(request.servervariables("PATH_INFO"),"inset") <= 0 and instr(request.servervariables("PATH_INFO"),"Data") <= 0 and instr(request.servervariables("PATH_INFO"),"dropDown") <= 0 ) then
   Session("originalRequestedPage") = Request.ServerVariables("PATH_INFO") & "?" & Request.ServerVariables("QUERY_STRING")
end if
function countRecords( rsToCount )
   numRecs = 0
   do until rsToCount.eof
      numRecs = numRecs + 1
      rsToCount.movenext
   loop
   rsToCount.close ' just to make sure nobody
      ' tries to operate on the recordset,
      ' which has already reached eof
   countRecords = numRecs
end function
function unique( rs, sortColumn ) ' return unique instances of text in sortColumn within rs
   dim sorted()
   redim sorted(1)
   dim i
   i = 0
   do until rs.eof
      if (not find( rs(sortColumn), sorted )) then
         redim preserve sorted(i+1)
         sorted(i) = rs(sortColumn)
          i = i + 1
      end if
      rs.MoveNext
   loop
   redim preserve sorted(i-1) ' the function will add an extra blank entry to the array
   rs.Close    ' close the recordset - we'll be using it again - and reset i - well be using it again, too
   unique = sorted
end function
sub testSub( variable ) ' do nothing impressive...
   dim newVar
   newVar = variable
   if ( variable = true )
      response.end
   else %>
<p>We are writing text.</p>
<p class="stuff"><%=newVar%></p>
<p>We have written text and outputted a variable.</p>
<%    end if
end sub %>