|
<% While NOT rsCat.EOF
If rsCat("subID") = rsLink("fldName") then
Heading = rsCat("subHEADING")
End if %><%= rsCat("subHEADING")%>
<% rsCat.MoveNext()
Wend %>
|
<%= Heading %>
<% While Not rsLink.EOF %>
<% If rsLink("fldHYPERLINK") <> "" Then %>" onmouseover="window.status='<%= rsLink("fldNAME") %>' ;return true" onmouseout="window.status=' ';return true"><%= rsLink("fldNAME")%>
<% Else %>
<%= rsLink("fldNAME") %>
<% End If %> - <%= rsLink("fldDESCRIPTION") %>
<% rsLink.MoveNext()
Wend %>
|
