You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
58 lines
1.5 KiB
58 lines
1.5 KiB
<% '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 %> |