- <%@ Page Language="VB" %>
- <%@ Import Namespace="System.Xml" %>
- <%@ Import Namespace="System.Data" %>
- <%@ Import Namespace="System.Data.OleDb" %>
-
- <script runat=server>
- private i, j as integer
- private strOutput as string = ""
-
- sub Page_Load(obj as object, e as eventargs)
- dim xmldoc as new XMLDataDocument()
-
- try
- xmldoc.DataSet.ReadXml(Server.MapPath("film.xml"))
-
- DataGrid1.DataSource = xmldoc.DataSet
- DataGrid1.DataMember = xmldoc.DataSet.Tables(0).TableName
-
- DataGrid1.DataBind()
-
- catch ex as Exception
- strOutput = "Impossible d'accéder au fichier XML"
- end try
-
- output.Text = strOutput
- end sub
- </script>
-
- <html>
- <body>
- <asp:Label id="output" runat="server" />
-
- <asp:DataGrid id="DataGrid1" runat="server"
- BorderColor="black"
- GridLines="Vertical"
- cellpadding="4"
- cellspacing="0"
- width="450"
- Font-Name="Arial"
- Font-Size="8pt"
- HeaderStyle-BackColor="#cc9966"
- FooterStyle-BackColor="#cccc99"
- ItemStyle-BackColor="#ffffff"
- AlternatingItemStyle-Backcolor="#cccccc" />
- </body>
- </html>
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat=server>
private i, j as integer
private strOutput as string = ""
sub Page_Load(obj as object, e as eventargs)
dim xmldoc as new XMLDataDocument()
try
xmldoc.DataSet.ReadXml(Server.MapPath("film.xml"))
DataGrid1.DataSource = xmldoc.DataSet
DataGrid1.DataMember = xmldoc.DataSet.Tables(0).TableName
DataGrid1.DataBind()
catch ex as Exception
strOutput = "Impossible d'accéder au fichier XML"
end try
output.Text = strOutput
end sub
</script>
<html>
<body>
<asp:Label id="output" runat="server" />
<asp:DataGrid id="DataGrid1" runat="server"
BorderColor="black"
GridLines="Vertical"
cellpadding="4"
cellspacing="0"
width="450"
Font-Name="Arial"
Font-Size="8pt"
HeaderStyle-BackColor="#cc9966"
FooterStyle-BackColor="#cccc99"
ItemStyle-BackColor="#ffffff"
AlternatingItemStyle-Backcolor="#cccccc" />
</body>
</html>