windows-nt/Source/XPSP1/NT/inetsrv/iis/img/htmla/iihding.inc

28 lines
1,007 B
PHP
Raw Normal View History

2020-09-26 03:20:57 -05:00
<%
function heading(colwidth,thestring,sortstr)
dim writeStr, listSort
listSort = Session("ListSort")
writeStr = "<TD VALIGN='bottom' WIDTH = " & colwidth & " BORDERCOLOR=" & Session("BGCOLOR") & " BORDERCOLORDARK='#FFFFFF' BORDERCOLORLIGHT='#000000'"
if listSort and (sortstr <> "") 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 & "<A HREF = " & quote & "javascript:parent.head.sortList('"& sortstr & "');" & quote & ">" & thestring & "</A>"
end if
else
writeStr = writeStr & ">"
writeStr = writeStr & sFont("","","",True)
writeStr = writeStr & thestring
end if
writeStr = writeStr & "</TD>"
heading = writeStr
end function
%>