<%@ Page Language="VB" Inherits="System.Web.Mvc.ViewPage" %>

<%@ Register TagPrefix="uc" TagName="Menu" Src="~/Views/Shared/Menu.ascx" %>
<%@ Register TagPrefix="uc" TagName="CourseMenu" Src="~/Views/Course/CourseMenu.ascx" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>SubIndex</title>
</head>
<%  Dim dt As Data.DataTable = ViewData("table")%>
<body>
    <uc:Menu id="MenuTop" 
        runat="server"/>
    <uc:CourseMenu id="SubMenu" 
        runat="server" />
    <div>
    <h1><% Response.Write(ViewData("PageName"))%></h1>
    <table>
    <tr>
    <th style=" width:200px;" >
    <% Response.Write("code")%>
    </th>
    <th style=" width:800px;" >
    Description
    </th>
    <th>
    Voir
    </th>
    </tr>
    <% For intCpt As Integer = 0 To dt.Rows.Count - 1%>
    <tr>
    <td>
    <% Response.Write(dt.Rows(intCpt).Item(dt.TableName & "_code"))%>
    </td>
    <td>
    <% Response.Write(dt.Rows(intCpt).Item(dt.TableName & "_description"))%>
    </td>
    <td>
    <a href="
    <% Response.Write("Course/SubDetails/" & dt.tablename & "/" & dt.Rows(intCpt).Item(dt.TableName & "_id"))%>
    ">Voir</a>
    </td>
    </tr>
    <% next %>
    </table>
    </div>
</body>
</html>
