wieso läuft das nicht

Code:
<%
strXSLPath="-xsl format.xsl"
strXMLPath="-xml daten.xml"
strPDFPath="-pdf outputxxx.pdf"
call xml2pdf(strXSLPath, strXMLPath, strPDFPath)
Function xml2pdf(strXSLPath, strXMLPath, strPDFPath)
Dim strCommand
strCommand = "J:\INTRANET\PRODUCTIVE\D_IPU\IPU_TEST\FOP/fop.bat " & strXSLPath & " " & strXMLPath & " " & strPDFPath
Set objShell = Server.CreateObject("wscript.shell")
xml2pdf = objShell.run("cmd.exe /C " & strCommand)
Set objShell = nothing
End Function
%>
