[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    kdelibs/kate/tests
From:       Anders Lund <anders () alweb ! dk>
Date:       2005-01-20 22:36:50
Message-ID: 20050120223650.EA3F81BA78 () office ! kde ! org
[Download RAW message or body]

CVS commit by alund: 

Load ASP hl


  M +12 -12    highlight.asp   1.2


--- kdelibs/kate/tests/highlight.asp  #1.1:1.2
@@ -1,3 +1,3 @@
-<% 
+<% '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") @@ -6,15 +6,15 @@
 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
@@ -22,9 +22,9 @@
 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 
+        do until rs.eof
                 if (not find( rs(sortColumn), sorted )) then
                         redim preserve sorted(i+1)
@@ -34,9 +34,9 @@
                 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
@@ -44,7 +44,7 @@
 sub testSub( variable ) ' do nothing impressive...
         dim newVar
-        
+
         newVar = variable
-        
+
         if ( variable = true )
                 response.end


[prev in list] [next in list] [prev in thread] [next in thread]