<% 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 t = node.attributes(1).text if t=tp then for j = 0 to node.childNodes.length - 1 set t = node.childNodes(j) if cnt = num then text = replace(t.text, "%OENAME%", Obj.AppName & " " & Obj.AppEdition) Response.writeln("

" & t.attributes(0).text & "

") Response.writeln("
" & text & "
") end if cnt = cnt + 1 next end if next %>