Skip to content

Instantly share code, notes, and snippets.

@jz5
Created December 17, 2015 12:49
Show Gist options
  • Save jz5/48a761468bbd24800633 to your computer and use it in GitHub Desktop.
Save jz5/48a761468bbd24800633 to your computer and use it in GitHub Desktop.
<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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment