<%
isdebug=false
if not isdebug then on error resume next
sSQL = "EXEC p_dhGetLinks "
if isdebug then writeln "sSQL = " & sSQL
set rsLinks = GetRSStatic(sSQL)
'sLinkCat = rsLinks("LinkCategory")
strLinks = ""
if not rsLinks.eof then
iCnt = rsLinks.RecordCount
do while not rsLinks.eof
' if NOT (Trim(LCase(rsLinks("LinkCategory"))) = Trim(LCase(sLinkCat))) then
' strLinks = strLinks & "
