<% function heading(colwidth,thestring,sortstr) dim writeStr, listSort listSort = Session("ListSort") writeStr = " "") then if Session("hasDHTML") then writeStr = writeStr & " OnCLick=" & quote & "parent.head.sortList('" & sortstr & "');" & quote writeStr = writeStr & " style='cursor: hand;'" writeStr = writeStr & ">" writeStr = writeStr & sFont("","","",True) writeStr = writeStr & thestring else writeStr = writeStr & ">" writeStr = writeStr & sFont("","","",True) writeStr = writeStr & "" & thestring & "" end if else writeStr = writeStr & ">" writeStr = writeStr & sFont("","","",True) writeStr = writeStr & thestring end if writeStr = writeStr & "" heading = writeStr end function %>