<%
'Load XML
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = false

dim iPage
iPage = Cint(Request.QueryString("p"))
If iPage < 1 Then
    iPage = 1
End If

xml.load(Server.MapPath(iPage & ".xml"))

If xml.parseError.errorcode <> 0 Then
    Response.Write(xml.parseError.reason)
End If

'Load XSL
set xsl = Server.CreateObject("Microsoft.XMLDOM")
xsl.async = false
xsl.load(Server.MapPath("boke.xsl"))

If xsl.parseError.errorcode <> 0 Then
    Response.Write(xsl.parseError.reason)
End If

'Transform file
Response.Write(xml.transformNode(xsl))
%>