VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "TestClass"
Attribute VB_Creatable = True
Attribute VB_Exposed = True
Function CreateStdResponse(meth As String, request As String) As String
    CreateStdResponse = "Content-Type: text/html" & vbCrLf & vbCrLf _
        & "<body><h1>This is a test response " & meth & ".</h1>" _
        & "<p><b>Parameters: </b>" & request & "</body>"
End Function

Sub DoGet(request As String, Response As String)
    Response = CreateStdResponse("using the GET method", request)
End Sub

Sub DoPost(request As String, Response As String)
    Response = CreateStdResponse("using the POST method", request)
End Sub

Sub SimpleCall(request As String, Response As String)
    Response = CreateStdResponse("using URL invocation", request)
End Sub

