Warning, /frameworks/syntax-highlighting/autotests/input/highlight.asp is written in an unsupported language. File is not indexed.

 <% '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 %>