- <%@ Page Language="VB" %>
- <%@ Import Namespace="System.Xml" %>
- <%@ Import Namespace="System.Xml.XPath" %>
- <%@ Import Namespace="System.Xml.Xsl" %>
-
- <script runat="server">
- sub Page_Load(obj as object, e as eventargs)
- Dim objDocument as New XPathDocument (Server.MapPath("film.xml"))
-
- Dim objNav as XPathNavigator = objDocument.CreateNavigator
-
- Dim objXslT As XslTransform = New XslTransform()
- dim objWriter as XmlTextWriter = new XmlTextWriter (Server.MapPath("film.html"), nothing)
-
- try
- objXslT.Load(Server.MapPath("film.xsl"))
- objXslT.Transform(objNav, nothing, objWriter)
- objWriter.Close
-
- lblMessage.Text = "Le fichier film.html a bien été généré"
- catch ex As Exception
- lblMessage.Text = ex.Message
- end try
- end sub
- </script>
-
- <html><body>
- <asp:Label id="lblMessage" runat="server"
- maintainstate=false/>
- </body></html>
-
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>
<%@ Import Namespace="System.Xml.XPath" %>
<%@ Import Namespace="System.Xml.Xsl" %>
<script runat="server">
sub Page_Load(obj as object, e as eventargs)
Dim objDocument as New XPathDocument (Server.MapPath("film.xml"))
Dim objNav as XPathNavigator = objDocument.CreateNavigator
Dim objXslT As XslTransform = New XslTransform()
dim objWriter as XmlTextWriter = new XmlTextWriter (Server.MapPath("film.html"), nothing)
try
objXslT.Load(Server.MapPath("film.xsl"))
objXslT.Transform(objNav, nothing, objWriter)
objWriter.Close
lblMessage.Text = "Le fichier film.html a bien été généré"
catch ex As Exception
lblMessage.Text = ex.Message
end try
end sub
</script>
<html><body>
<asp:Label id="lblMessage" runat="server"
maintainstate=false/>
</body></html>