<% set Obj = folders.ExtObject on error resume next num = CInt(request("num")) tp = request("tp") %> <%=Obj.AppName%> <%=Obj.AppEdition%> <% header = "header" if Obj.AppCompany <> "MetaProducts" then header="header-no-logo" %>
<% Set doc = folders.CreateObject("Microsoft.XMLDOM") doc.async = false doc.load (folders.TemplatesPath & "start\tutorial.xml" ) set root = doc.documentElement cnt = 1 for i = 0 to root.childNodes.length - 1 set node = root.childNodes(i) name = node.attributes(0).text tp = node.attributes(1).text if tp="1" then response.write("

" & name & "

" & chr(13) & chr(10)) response.write("
    " & chr(13) & chr(10)) for j = 0 to node.childNodes.length - 1 set t = node.childNodes(j) response.write("
  • " & t.attributes(0).text & "
    " & chr(13) & chr(10)) response.write("" & t.attributes(1).text & "" & chr(13) & chr(10)) response.write("
    " & chr(13) & chr(10)) response.write("
  • ") cnt = cnt + 1 next response.write("
") end if next %>