SOAP i asp

För det första så måste du ha en webservice att "prata" med.
Sedan behöver du veta vilka funktioner som den servicen innehåller för att du skall kunna skicka datat rätt.

I exemplet nedan använder jag en funktion för att skicka data till en webservice mha SOAP (Toolkit3.0 ) tillsammans med ASP.
I detta exempel får jag tillbaka true/false från webservicen.

strWSDL = "[I]URL till webservice[/I]"
strUsername = "[I]root[/I]"
strPassword = "[I]qwerty[/I]"
strKortNummer = "[I]1111222233334444[/I]"

Function GetCardStatus(strCardNumber)
	Set objSoapClient = Server.CreateObject("MSSOAP.SoapClient30")
	objSoapClient.ClientProperty("ServerHTTPRequest") = True
	Call objSoapClient.mssoapinit(strWSDL)
	GetCardStatus = objSoapClient.[I]GetCardStatus[/I](strUsername, strPassword, strCardNumber)
End Function

Och för att använda funktionen:

If GetCardStatus(strKortNummer) Then
	Response.Write("SANT")
Else
	Response.Write("FALSKT")
End If

Att tänka på är följande som står på MS hemsida:
"The Microsoft SOAP Toolkit is deprecated by the .NET Framework. The toolkit provides basic Web services capabilities for COM components and applications. SOAP Toolkit support has been extended from the originally posted July 1, 2004 deadline. Mainstream SOAP Toolkit support will now be retired in March 31, 2005 with extended support lasting until March 31, 2008."

Hejsan!
Jag får inte riktigt till det, får hela tiden ett felmeddelande:
Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment

VAd an detta bero på, jag har 2 parametrar som skall fyllas i med siffror vilket jag gör.

Det är följande kod jag använder, allting ser rätt ut i mina ögon men jag får hela tiden följaden fel:
Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment

på raden: retCode = objSoap.GetStatus(123456,005424555)

Dim objSoap, retCode

Set objSoap = Server.CreateObject("MSSOAP.SOAPClient30")
objSoap.ClientProperty("ServerHTTPRequest") = True 
Call objSoap.MSSoapInit("https://blablabla.asmx?WSDL")
objSoap.ConnectorProperty("EnableAutoProxy") = True
   
retCode = objSoap.GetStatus(123456,005424555)

Set objSoap = Nothing