<% s=Request.QueryString("numresponse") number=Int(s) thousand=Int(number/1000) hundred=Int((number MOD 1000)/100) tensunits=Int(number MOD 100) thousandfile="""numbers_BN\" & thousand & "_BN.wav""" hundredfile="""numbers_BN\" & hundred & "_BN.wav""" tensunitsfile="""numbers_BN\" & tensunits & "_BN.wav""" str = """sox-14-4-0\sox.exe""" & " " if number = 0 then str = str & " " & """numbers_BN\0_BN.wav""" & " " end if if thousand <> 0 then str = str & thousandfile & " " & """numbers_BN\000_BN.wav""" & " " end if if hundred <> 0 then str = str & hundredfile & " " & """numbers_BN\00_BN.wav""" & " " end if if tensunits <> 0 then str = str & tensunitsfile & " " end if str = str & """numbers_BN\combined.wav""" response.write(str) Set WShShell = Server.CreateObject("WScript.Shell") RetCode = WShShell.run(str, ,False) If RetCode = 0 Then sErr = "done" Else sErr = "ERROR: " & RetCode End If response.write(thousand & " " & hundred & " " & tensunits) %>