Dim loginName As String = "spread@reasonables.com"

Dim loginPassword As String = "spread"

Dim myStatus As SubscriptionStatus = SubscriptionStatus.Active

Dim mySubscriptionsData As Dataset

'Create a SpreadWebService object and use its method.

Dim MySpread As New SpreadWebService

mySubscriptionsData = MySpread.getSubscription(loginName, loginPassword, myStatus)

    
    /**
    * @name     getSubscription
    * @function get all contact lists
    * @param
    *  loginEmail Login Email of Spread.
    *  password Login Password of Spread.
    *  status   The status of subscription
    * @return
    *  		dataset.
    * DataSet Columns:
    * subscription Name,description,status,no.of subscribers
    */
    public function getSubscription($loginEmail,$password,$status){
        $paraArray = array(
	        'loginEmail' => $loginEmail,
	        'password'   => $password,
		'status'     => $status
        );
        $Client = new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        $subscriptionData = $Client -> getSubscription( $paraArray );
        return $subscriptionData ;
    }