<%@ language = "VBScript" %>
<% option explicit %>
Softnet - Sitemap
<%
function getXsltParameter
dim xsltParameter
dim isIExplorer
xsltParameter = ""
isIExplorer = getIsIExplorer
if isIExplorer then
xsltParameter = "xhtml"
else
xsltParameter = "xhtml_simple"
end if
getXsltParameter = cStr(xsltParameter)
end function
function getIsIExplorer
dim objBrowser
dim isIExplorer
set objBrowser = Server.CreateObject("MSWC.BrowserType")
isIExplorer = objBrowser.Browser = "IE"
getIsIExplorer = cBool(isIExplorer)
end function
%>