SpacoController.vb

<HttpGet>
Public Function GetALl(Optional offset As Integer = 0,
                       Optional count As Integer = 100) As HttpResponseMessage
    If offset < 0 Then
        offset = 0
    End If

    If count < 0 OrElse count > 100 Then
        count = 100
    End If

    Dim res = New HttpResponseMessage(HttpStatusCode.OK)
    res.Content = New StringContent(CreateFeed(offset, count), Encoding.UTF8, "application/xml")
    Return res
End Function