VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "routines"
Attribute VB_Creatable = True
Attribute VB_Exposed = True
Function CreateStdResponse(meth As String, request As String) As String

If debugging Then
    MsgBox "From Browser (Parameter 1):" & meth
    MsgBox "From Browser (Parameter 2):" & request
End If
    
    ParseFieldValue request
    CreateStdResponse = "Content-Type: text/html" _
    & vbCrLf & request & vbCrLf & WebStub()
         
         
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("calling the POST method", request)
End Sub

Sub SimpleCall(request As String, response As String)
    response = CreateStdResponse("using URL invocation", request)
   ' Response = Response & "...plus this ..."
End Sub

Sub SQLStatement(request As String, response As String)

    Dim lSQL As String
    lSQL = request
    

End Sub
