<%
Sub CreateTopMenu(PageID,sMenuName)
Dim Rs, MenuID, bFirst
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs = Conn.Execute("Select ID From TblPages Where isHidden = 0 And isActive = 1 And PageName = '" & sMenuName & "' And ParentID = " & PageID)
If Not Rs.EOF Then
MenuID = Rs("ID").Value
Rs.Close
bFirst = True
Set Rs = Conn.Execute("Select PageName,Link,Target,Extra From TblPages Where isActive = 1 And ParentID = " & MenuID & " Order By SortOrder")
Response.Write " |
"
Do While Not Rs.EOF
If bFirst Then
Response.Write " |
"
Else
Response.Write " |
"
End If
Response.Write "" & Rs("PageName").Value & "
| " & vbCrLf
Rs.MoveNext
bFirst = False
Loop
End If
Rs.Close
Set Rs = Nothing
End Sub
%>