VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "SimpleServer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Function Ping() As String
    Dim ServerDate As Date
    Dim StrRtn As String
    
    'Get the current system date
    ServerDate = Now()
    
    StrRtn = "Simple Server says: Today is "
    
    StrRtn = StrRtn + CStr(ServerDate)
     
    Ping = StrRtn
End Function


Public Function ServerDate() As Date
    
    'Get the current system date
    ServerDate = Now()
   
End Function



Public Function EchoAll(ByVal InputVal As String, _
                    ByRef Echo As String, _
                    ByRef ServerTime As Date) As String
    
    'Get the current system date
    Echo = InputVal
    ServerTime = Now()
   
   EchoAll = "Echoed back"
End Function




