tdelibs/kate/tests/highlight.asp

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