%
Function addSpace(string)
addSpace = Replace(string, "-", " ")
End Function
Function upperCase(string)
dim a_result, i
a_result = split(string," ")
for i = lbound(a_result) to ubound(a_result)
upperCase = upperCase & " " & ucase(left(a_result(i),1)) & mid(a_result(i),2)
next
upperCase = mid(upperCase,2)
End Function
%>
<%
bootInput=request.queryString("boot")
showInput=request.queryString("show")
If bootInput<>"" Then
set xsl=createObject("MSXML2.DOMDocument")
xsl.async=false
xsl.load server.mapPath("boot.xsl")
set bootInputNode=xsl.selectSingleNode("//xsl:param[@name='boot']")
set showInputNode=xsl.selectSingleNode("//xsl:param[@name='show']")
bootInputNode.setAttribute "select","'"+bootInput+"'"
showInputNode.setAttribute "select","'"+showInput+"'"
set xml=createObject("MSXML.DOMDocument")
xml.load(Server.MapPath("bootsongs.xml"))
response.write xml.transformNode(xsl)
Else response.write "
No boot selected
"
End If
%>