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

We are writing text.

<%=newVar%>

We have written text and outputted a variable.

<% end if end sub %>