<%

function StrToJavascript(value)
  arrValue = Split(value, chr(13)&chr(10))
  for each line in arrValue
    Response.Write "document.write(""" & Replace(Replace(line, "'", "\'"), """", "\""") & """);"
  next
end function


dim objWM

' Create the WebMenu object and set properties
set objWM = Server.CreateObject("Coalesys.CSWebMenu.2")

' Set for browser auto detect
objWM.UserAgent = Request.ServerVariables("HTTP_USER_AGENT")

' Load the WebMenu State File
objWM.LoadState(Server.MapPath("./") + "\\menu.wms")

Response.write objWM.GenerateStyleSheet

set objWM = nothing

%>