'' There is a full example server using Visual Basic included in the SkyWire
'' COM Server install. 

'' Starting the Server 
'' A server must listen on a certain port and be set to active. 
Set AstaServer = New CAstaCOMServer 
AstaServer.Port = 9090 
AstaServer.AllowAnonymousPDAs = True 
AstaServer.Active = True 

 
'' Authentication a Username and password is presented from remote clients. 
Private Function AstaServer_OnAuthenticate(ByVal Username As String,
    ByVal Password As String) As Boolean 
	AstaServer_OnAuthenticate = True 
End Function 

 
'' Handling Client Requests 
'' Client requests come in using a MsgToken that supports the SkyWireServer
'' API or allows for some custom Business Logic to be implemented on the middle
'' tier. 
Private Sub AstaServer_OnParamList(ByVal MsgID As Long,
    ByVal InParamList As AstaCOMServer.ICAstaParamList,
    OutParamList As AstaCOMServer.ICAstaParamList,
    ErrorCode As Long, ErrorMessage As String) 

	Dim x As Integer 
	Dim RowCount As Integer 

	Select Case MsgID 
	Case 1001 
	    DoServerTime OutParamList 

	Case 1003 
	    UserDataSet.MoveFirst 
	    DoSelect InParamList.Params(0).AsString, OutParamList 

	Case 1004 
	    DoTables OutParamList 

	Case 1005 
	    For x = 0 To InParamList.Count - 1 
	    	LogIt "SQL ExecSQL 1005: " & InParamList.Params(x).AsString 
	    Next 
	    DoExecSQL OutParamList 

	Case 1006 
	    DoTableFields OutParamList 


	Case Else 
	    DoServerTime OutParamList 
	End Select 

End Sub