<WebMethod()> _
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)> _
Public Sub JsonCalendar()
  ' Return JSON data
  Try
    Dim retJSON As String = ""

    Dim query As String = "GetJSON"
    Dim sqlCmd As New SqlCommand(query, New SqlConnection(ConfigurationManager.ConnectionStrings("STRCONN").ConnectionString))

    sqlCmd.CommandType = CommandType.StoredProcedure
    sqlCmd.Parameters.AddWithValue("@ParameterSQL", "Select * from JsonView").Direction = ParameterDirection.Input

    sqlCmd.Connection.Open()

    Dim dr As SqlDataReader = sqlCmd.ExecuteReader

    If dr.HasRows Then

      dr.Read()

      retJSON = dr(0)

    End If
    dr.Close()
    sqlCmd.Connection.Close()




    Context.Response.Write(retJSON)
  Catch ex As Exception
    Context.Response.Write("")
  End Try
End Sub