sub select for mySQL

<WebMethod()> Public Function YourIPAddress() As String
    Dim sCallersIPAddress As String = Context.Request.UserHostAddress
    Dim sReply As String
    sReply = "<<- This is either your PC's IP, or the proxy you use."
    Return (sCallersIPAddress & sReply)
  End Function
  <WebMethod()> Public Function LocalFunction(ByVal YourName As String) As String
    Dim sCallersIPAddress As String = Context.Request.UserHostAddress
    Dim sReply As String
    If sCallersIPAddress <> "127.0.0.1" Then
      ' A webservice request from an external PC
      sReply = "Hey, " & YourName & ", IP " & sCallersIPAddress & " may not execute this function!"
    Else
      ' Do something different for calls from localhost
      sReply = "Hello, " & YourName & ", IP " & sCallersIPAddress & " this app is runnning from " & Context.Request.PhysicalApplicationPath
    End If
    Return (sReply)
  End Function