<% 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 - <% response.write upperCase(addSpace(request.queryString("boot")))%> bootleg CD info <% If request.queryString("show") = "true" Then response.write ", showing all sources " End If %>- It's Just Too Much: A Guide to Unofficial VU Recordings and reviews for the Velvet Underground bootleg CD <% response.write upperCase(addSpace(request.queryString("boot"))) %>." />
<% 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 %>