<%
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
%>
The Velvet Underground - <% If request.queryString("type")<>"" Then response.write upperCase(addSpace(request.queryString("type"))) End If %> Song Index <% If request.queryString("order")="date" Then response.write "Ordered by Date " End If %><% If request.queryString("order")="type" Then response.write "Ordered by Type " End If %><% If request.queryString("best")="true" Then response.write "Showing Best Quality Sources Only " End If %>- It's Just Too Much: A Guide to Unofficial VU Recordings
"" Then response.write "Index of songs found on featured Velvet Underground bootleg CDs under the category: " +upperCase(addSpace(request.queryString("type")))+ "." Else response.write "The Velvet Underground song index bootleg CD category selection page." End If %><% If request.queryString("order")="date" Then response.write " Entries on this page are ordered by date." End If %><% If request.queryString("order")="type" Then response.write " Entries on this page are ordered by type." End If %><% If request.queryString("best")="true" Then response.write " Only the best quality sources are shown." End If %>" />
<%
typeInput=request.queryString("type")
orderInput=request.queryString("order")
bestInput=request.queryString("best")
set xsl=createObject("MSXML2.DOMDocument")
xsl.async=false
xsl.load server.mapPath("song-index.xsl")
set typeInputNode=xsl.selectSingleNode("//xsl:param[@name='type']")
set orderInputNode=xsl.selectSingleNode("//xsl:param[@name='order']")
set bestInputNode=xsl.selectSingleNode("//xsl:param[@name='best']")
typeInputNode.setAttribute "select","'"+typeInput+"'"
orderInputNode.setAttribute "select","'"+orderInput+"'"
bestInputNode.setAttribute "select","'"+bestInput+"'"
set xml=createObject("MSXML.DOMDocument")
xml.load(Server.MapPath("bootsongs.xml"))
response.write xml.transformNode(xsl)
%>